Changing raytracer tests to work with 6.9
[packages/hpc.git] / tests / raytrace / test.T
1 setTestOpts(compose(only_compiler_types(['ghc']),
2                     compose(omit_ways(['ghci']),
3                             skip_if_fast)))
4
5 hpc = config.top + '/../utils/hpc/hpc-inplace';
6 hpc_prefix = 'perl ../hpcrun.pl --clear --exeext=' + config.exeext + ' --hpc=' + hpc;
7
8 test('hpc_raytrace', \
9         compose(skip_if_fast, cmd_prefix(hpc_prefix)), \
10         multimod_compile_and_run, \
11         ['Main','-fhpc -package parsec'])
12
13 runCmd("cd " + getTestDir() + " && tar xf tixs.tar")
14
15 hpcsample = 'hpc_sample'
16
17 test('hpc_report_multi_001', normal, run_command, \
18         [hpc + ' report ' + hpcsample + ' --include=Geometry --per-module'])
19 test('hpc_report_multi_002', normal, run_command, \
20         [hpc + ' report ' + hpcsample + ' --exclude=Geometry --per-module'])
21 test('hpc_report_multi_003', normal, run_command, \
22         [hpc + ' report ' + hpcsample + ' --include=Geometry --per-module --decl-list']) 
23
24 test('hpc_markup_multi_001', normal, run_command, \
25         [hpc + ' markup ' + hpcsample + ' --include=Geometry'])
26 test('hpc_markup_multi_002', normal, run_command, \
27         [hpc + ' markup ' + hpcsample + ' --exclude=Geometry'])
28 test('hpc_markup_multi_003', normal, run_command, \
29         [hpc + ' markup ' + hpcsample + ' --fun-entry-count']) 
30
31 test('hpc_show_multi_001', normal, run_command, [hpc + ' show ' + hpcsample + ''])
32 test('hpc_show_multi_002', normal, run_command, [hpc + ' show ' + hpcsample + ' --include=Geometry'])
33
34 clean_o_hi()