Skip to content
Snippets Groups Projects
Commit 50b87b49 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix tests/hpcrun.pl to handle paths containing spaces

parent 0740bc45
No related branches found
No related tags found
No related merge requests found
......@@ -22,15 +22,15 @@ die "no option --hpc=* provided\n" if (!defined($HPC));
$binary = $ARGV[0] . $exeext;
system("rm -f $binary.tix") if (defined($CLEAR));
unlink "$binary.tix" if (defined($CLEAR));
system(@ARGV);
system @ARGV;
print "\n\n";
system("$HPC report $binary.tix");
system ($HPC, "report", "$binary.tix");
print "\n\n";
system("$HPC report $binary.tix --per-module");
system ($HPC, "report", "$binary.tix", "--per-module");
print "\n\n";
open(MARKUP,"$HPC markup $binary.tix| ");
open(MARKUP, "-|", $HPC, "markup", "$binary.tix");
while(<MARKUP>) {
my $line = $_;
print $line;
......
......@@ -2,7 +2,7 @@ setTestOpts(compose(only_compiler_types(['ghc']),
compose(omit_ways(['ghci']),
skip_if_fast)))
hpc_prefix = 'perl ../hpcrun.pl --clear --exeext=' + config.exeext + ' --hpc=' + config.hpc;
hpc_prefix = "perl ../hpcrun.pl --clear --exeext=" + config.exeext + " --hpc='" + config.hpc + "'";
test('hpc001', cmd_prefix(hpc_prefix), compile_and_run, ['-fhpc'])
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment