Follow changes in testsuite
[packages/hpc.git] / tests / simple / tixs / test.T
1 setTestOpts(compose(only_compiler_types(['ghc']),
2                     compose(omit_ways(['ghci']),
3                             when(fast(), skip))))
4
5 hpcsample = 'hpc_sample'
6
7 test('hpc_help', normal, run_command, ["'" + config.hpc + "' help"])
8 test('hpc_help_help', normal, run_command, ["'" + config.hpc + "' help help"])
9
10 test('hpc_help_report', normal, run_command, ["'" + config.hpc + "' help report"])
11 test('hpc_report_001', normal, run_command, \
12         ["'" + config.hpc + "' report " + hpcsample + ".tix --xml-output"])
13 test('hpc_report_002', normal, run_command, \
14         ["'" + config.hpc + "' report " + hpcsample + ".tix --xml-output --per-module"])
15 test('hpc_report_003', normal, run_command, \
16         ["'" + config.hpc + "' report " + hpcsample + ".tix --per-module --decl-list"])
17 test('hpc_report_error_001', exit_code(1), run_command, ["'" + config.hpc + "' report"]) # no .tix file
18 test('hpc_report_error_002', exit_code(1), run_command, ["'" + config.hpc + "' report hpc001.hs"]) # bad .tix file
19
20 test('hpc_help_markup', normal, run_command, ["'" + config.hpc + "' help markup"])
21 test('hpc_markup_error_001', exit_code(1), run_command, ["'" + config.hpc + "' markup"]) # no .tix file
22 test('hpc_markup_error_002', exit_code(1), run_command, ["'" + config.hpc + "' markup hpc001.hs"]) # bad .tix file
23 test('hpc_markup_001', normal, run_command, \
24         ['(' + "'" + config.hpc + "' markup " + hpcsample + ".tix --highlight-covered ; cat Main.hs.html )"])
25 test('hpc_markup_002', normal, run_command, \
26         ['(' + "'" + config.hpc + "' markup " + hpcsample + ".tix --fun-entry-count ; cat Main.hs.html )"])
27
28 test('hpc_help_show', normal, run_command, ["'" + config.hpc + "' help show"])
29 test('hpc_show', normal, run_command, ["'" + config.hpc + "' show " + hpcsample + ".tix"])
30 test('hpc_show_error_001', exit_code(1), run_command, ["'" + config.hpc + "' show"]) # no .tix file
31 test('hpc_show_error_002', exit_code(1), run_command, ["'" + config.hpc + "' show hpc001.hs"]) # bad .tix file
32
33 test('hpc_help_version', normal, run_command, ["'" + config.hpc + "' help version"])
34 test('hpc_version', normal, run_command, ["'" + config.hpc + "' version"])
35
36 test('hpc_help_draft', normal, run_command, ["'" + config.hpc + "' help draft"])
37 test('hpc_draft', normal, run_command, ["'" + config.hpc + "' draft " + hpcsample + ".tix"])
38
39 test('hpc_help_overlay', normal, run_command, ["'" + config.hpc + "' help overlay"])
40
41 test('hpc_overlay', [ extra_clean(['sample_overlay1.tix', 'total1.tix']) ],
42                      run_command,
43                        [     "'" + config.hpc + "' overlay sample_overlay.ovr > sample_overlay1.tix" +
44                         ";  cat sample_overlay1.tix " +
45                         ";'" + config.hpc + "' combine " + hpcsample + ".tix sample_overlay1.tix > total1.tix" +
46                         ";'" + config.hpc + "' report total1.tix"]);
47
48 test('hpc_overlay2', [ extra_clean(['sample_overlay2.tix', 'total2.tix']) ],
49                      run_command,
50                         [     "'" + config.hpc + "' overlay sample_overlay.ovr --output=sample_overlay2.tix" +
51                         ";  cat sample_overlay2.tix " +
52                         ";'" + config.hpc + "' combine " + hpcsample + ".tix sample_overlay2.tix --output=total2.tix" +
53                         ";'" + config.hpc + "' report total2.tix"]);
54
55 test('hpc_hand_overlay', [ extra_clean(['sample_overlay3.tix', 'total3.tix']) ],
56                          run_command,
57                         [     "'" + config.hpc + "' overlay hand_overlay.ovr --output=sample_overlay3.tix" +
58                         ";  cat sample_overlay3.tix " +
59                         ";'" + config.hpc + "' combine " + hpcsample + ".tix sample_overlay3.tix --output=total3.tix" +
60                         ";'" + config.hpc + "' report total3.tix"]);
61
62 test('hpc_bad_001', exit_code(1), run_command, ["'" + config.hpc + "' bad arguments"])