Fix quoting in some hpc tests
authorIan Lynagh <igloo@earth.li>
Sat, 2 Jan 2010 17:42:21 +0000 (17:42 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 2 Jan 2010 17:42:21 +0000 (17:42 +0000)
tests/simple/tixs/test.T

index 84e8f7f..7d9847e 100644 (file)
@@ -4,56 +4,53 @@ setTestOpts(compose(only_compiler_types(['ghc']),
 
 hpcsample = 'hpc_sample'
 
-test('hpc_help', normal, run_command, [config.hpc + ' help'])
-test('hpc_help_help', normal, run_command, [config.hpc + ' help help'])
+test('hpc_help', normal, run_command, ["'" + config.hpc + "' help"])
+test('hpc_help_help', normal, run_command, ["'" + config.hpc + "' help help"])
 
-test('hpc_help_report', normal, run_command, [config.hpc + ' help report'])
+test('hpc_help_report', normal, run_command, ["'" + config.hpc + "' help report"])
 test('hpc_report_001', normal, run_command, \
-       [config.hpc + ' report ' + hpcsample + '.tix --xml-output'])
+       ["'" + config.hpc + "' report " + hpcsample + ".tix --xml-output"])
 test('hpc_report_002', normal, run_command, \
-       [config.hpc + ' report ' + hpcsample + '.tix --xml-output --per-module'])
+       ["'" + config.hpc + "' report " + hpcsample + ".tix --xml-output --per-module"])
 test('hpc_report_003', normal, run_command, \
-       [config.hpc + ' report ' + hpcsample + '.tix --per-module --decl-list'])
-test('hpc_report_error_001', exit_code(1), run_command, [config.hpc + ' report']) # no .tix file
-test('hpc_report_error_002', exit_code(1), run_command, [config.hpc + ' report hpc001.hs']) # bad .tix file
+       ["'" + config.hpc + "' report " + hpcsample + ".tix --per-module --decl-list"])
+test('hpc_report_error_001', exit_code(1), run_command, ["'" + config.hpc + "' report"]) # no .tix file
+test('hpc_report_error_002', exit_code(1), run_command, ["'" + config.hpc + "' report hpc001.hs"]) # bad .tix file
 
-test('hpc_help_markup', normal, run_command, [config.hpc + ' help markup'])
-test('hpc_markup_error_001', exit_code(1), run_command, [config.hpc + ' markup']) # no .tix file
-test('hpc_markup_error_002', exit_code(1), run_command, [config.hpc + ' markup hpc001.hs']) # bad .tix file
+test('hpc_help_markup', normal, run_command, ["'" + config.hpc + "' help markup"])
+test('hpc_markup_error_001', exit_code(1), run_command, ["'" + config.hpc + "' markup"]) # no .tix file
+test('hpc_markup_error_002', exit_code(1), run_command, ["'" + config.hpc + "' markup hpc001.hs"]) # bad .tix file
 test('hpc_markup_001', normal, run_command, \
-       ['(' + config.hpc + ' markup ' + hpcsample + '.tix --highlight-covered ; cat Main.hs.html )'])
+       ['(' + "'" + config.hpc + "' markup " + hpcsample + ".tix --highlight-covered ; cat Main.hs.html )"])
 test('hpc_markup_002', normal, run_command, \
-       ['(' + config.hpc + ' markup ' + hpcsample + '.tix --fun-entry-count ; cat Main.hs.html )'])
+       ['(' + "'" + config.hpc + "' markup " + hpcsample + ".tix --fun-entry-count ; cat Main.hs.html )"])
 
-test('hpc_help_show', normal, run_command, [config.hpc + ' help show'])
-test('hpc_show', normal, run_command, [config.hpc + ' show ' + hpcsample + '.tix'])
-test('hpc_show_error_001', exit_code(1), run_command, [config.hpc + ' show']) # no .tix file
-test('hpc_show_error_002', exit_code(1), run_command, [config.hpc + ' show hpc001.hs']) # bad .tix file
+test('hpc_help_show', normal, run_command, ["'" + config.hpc + "' help show"])
+test('hpc_show', normal, run_command, ["'" + config.hpc + "' show " + hpcsample + ".tix"])
+test('hpc_show_error_001', exit_code(1), run_command, ["'" + config.hpc + "' show"]) # no .tix file
+test('hpc_show_error_002', exit_code(1), run_command, ["'" + config.hpc + "' show hpc001.hs"]) # bad .tix file
 
-test('hpc_help_version', normal, run_command, [config.hpc + ' help version'])
-test('hpc_version', normal, run_command, [config.hpc + ' version'])
+test('hpc_help_version', normal, run_command, ["'" + config.hpc + "' help version"])
+test('hpc_version', normal, run_command, ["'" + config.hpc + "' version"])
 
-test('hpc_help_draft', normal, run_command, [config.hpc + ' help draft'])
-test('hpc_draft', normal, run_command, [config.hpc + ' draft ' + hpcsample + '.tix'])
+test('hpc_help_draft', normal, run_command, ["'" + config.hpc + "' help draft"])
+test('hpc_draft', normal, run_command, ["'" + config.hpc + "' draft " + hpcsample + ".tix"])
 
-test('hpc_help_overlay', normal, run_command, [config.hpc + ' help overlay'])
+test('hpc_help_overlay', normal, run_command, ["'" + config.hpc + "' help overlay"])
 test('hpc_overlay', normal, run_command,
-                       [     config.hpc + ' overlay sample_overlay.ovr > sample_overlay.tix' +
-                       ';  cat sample_overlay.tix ' +
-                       ';' + config.hpc + ' combine ' + hpcsample + '.tix sample_overlay.tix > total.tix' +
-                       ';' + config.hpc + ' report total.tix' +
-                       '']);
+                       [     "'" + config.hpc + "' overlay sample_overlay.ovr > sample_overlay.tix" +
+                       ";  cat sample_overlay.tix " +
+                       ";'" + config.hpc + "' combine " + hpcsample + ".tix sample_overlay.tix > total.tix" +
+                       ";'" + config.hpc + "' report total.tix"]);
 test('hpc_overlay2', normal, run_command,
-                       [     config.hpc + ' overlay sample_overlay.ovr --output=sample_overlay.tix' +
-                       ';  cat sample_overlay.tix ' +
-                       ';' + config.hpc + ' combine ' + hpcsample + '.tix sample_overlay.tix --output=total.tix' +
-                       ';' + config.hpc + ' report total.tix' +
-                       '']);
+                       [     "'" + config.hpc + "' overlay sample_overlay.ovr --output=sample_overlay.tix" +
+                       ";  cat sample_overlay.tix " +
+                       ";'" + config.hpc + "' combine " + hpcsample + ".tix sample_overlay.tix --output=total.tix" +
+                       ";'" + config.hpc + "' report total.tix"]);
 test('hpc_hand_overlay', normal, run_command,
-                       [     config.hpc + ' overlay hand_overlay.ovr --output=sample_overlay.tix' +
-                       ';  cat sample_overlay.tix ' +
-                       ';' + config.hpc + ' combine ' + hpcsample + '.tix sample_overlay.tix --output=total.tix' +
-                       ';' + config.hpc + ' report total.tix' +
-                       '']);
+                       [     "'" + config.hpc + "' overlay hand_overlay.ovr --output=sample_overlay.tix" +
+                       ";  cat sample_overlay.tix " +
+                       ";'" + config.hpc + "' combine " + hpcsample + ".tix sample_overlay.tix --output=total.tix" +
+                       ";'" + config.hpc + "' report total.tix"]);
 
-test('hpc_bad_001', exit_code(1), run_command, [config.hpc + ' bad arguments'])
+test('hpc_bad_001', exit_code(1), run_command, ["'" + config.hpc + "' bad arguments"])