handle different build layouts in test_summary.pl

rakudo · Feb 15, 2009 · a3fd610 · a3fd610
1 parent 314d8ce
commit a3fd610
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tools/test_summary.pl b/tools/test_summary.pl
@@ -73,7 +73,8 @@
     my $tname = $tname{$tfile};
     my $syn = substr($tname, 0, 3); $syn{$syn}++;
     printf "%s%s..", $tname, '.' x ($max - length($tname));
-    my $cmd = "../../parrot perl6.pbc $tfile";
+    my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
+    my $cmd = "$parrot perl6.pbc $tfile";
     my @results = split "\n", `$cmd`;
     my ($test, $pass, $fail, $todo, $skip) = (0,0,0,0,0);
     my (%skip, %todopass, %todofail);