bfce002b81347265cfda07071ab85a1f38bad212
[packages/hpc.git] / tests / all.T
1 setTestOpts(compose(only_compiler_types(['ghc']),
2                     omit_ways(['ghci'])))
3
4 # Set up the hpc common variable(s).
5 hpc = config.top + '/../utils/hpc/hpc';
6 hpc_args = ['perl hpcrun.pl --hpc=' + hpc,'-fhpc'];
7
8 test('hpc001', normal, compile_and_run_with_prefix, hpc_args)
9 test('hpc_help', normal, run_command, [hpc + ' help'])
10 test('hpc_help_help', normal, run_command, [hpc + ' help help'])
11
12 test('hpc_help_report', normal, run_command, [hpc + ' help report'])
13 test('hpc_report_001', normal, run_command, \
14         [hpc + ' report hpc001.tix --xml-output']) 
15 test('hpc_report_002', normal, run_command, \
16         [hpc + ' report hpc001.tix --xml-output --per-module']) 
17 test('hpc_report_003', normal, run_command, \
18         [hpc + ' report hpc001.tix --per-module --decl-list']) 
19 test('hpc_report_error_001', exit_code(1), run_command, [hpc + ' report']) # no .tix file
20 test('hpc_report_error_002', exit_code(1), run_command, [hpc + ' report hpc001.hs']) # bad .tix file
21
22 test('hpc_help_markup', normal, run_command, [hpc + ' help markup'])
23 test('hpc_markup_error_001', exit_code(1), run_command, [hpc + ' markup']) # no .tix file
24 test('hpc_markup_error_002', exit_code(1), run_command, [hpc + ' markup hpc001.hs']) # bad .tix file
25 test('hpc_markup_001', normal, run_command, \
26         ['(' + hpc + ' markup hpc001.tix --highlight-covered ; cat Main.hs.html )']) 
27 test('hpc_markup_002', normal, run_command, \
28         ['(' + hpc + ' markup hpc001.tix --fun-entry-count ; cat Main.hs.html )']) 
29
30 test('hpc_help_show', normal, run_command, [hpc + ' help show'])
31 test('hpc_show', normal, run_command, [hpc + ' show hpc001.tix'])
32 test('hpc_show_error_001', exit_code(1), run_command, [hpc + ' show']) # no .tix file
33 test('hpc_show_error_002', exit_code(1), run_command, [hpc + ' show hpc001.hs']) # bad .tix file
34
35 test('hpc_help_version', normal, run_command, [hpc + ' help version'])
36 test('hpc_version', normal, run_command, [hpc + ' version'])
37
38 test('hpc_bad_001', exit_code(1), run_command, [hpc + ' bad arguments'])
39
40 test('hpc001', normal, compile_and_run_with_prefix, ['perl hpcrun.pl --hpc=' + hpc,'-fhpc'])