[tools] use fake executable in autounfudge and test_summary

rakudo · Feb 26, 2009 · 2758f79 · 2758f79
1 parent e6b7133
commit 2758f79
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/tools/autounfudge.pl b/tools/autounfudge.pl
@@ -258,10 +258,9 @@ sub tests_ok {
 }
 
 sub get_harness {
-    my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
     return TAP::Harness->new({
             verbosity   => -2,
-            exec        => [$parrot, '-G', 'perl6.pbc'],
+            exec        => ['./perl6'],
             merge       => 1,
     });
 }

diff --git a/tools/test_summary.pl b/tools/test_summary.pl
@@ -73,8 +73,7 @@
     my $tname = $tname{$tfile};
     my $syn = substr($tname, 0, 3); $syn{$syn}++;
     printf "%s%s..", $tname, '.' x ($max - length($tname));
-    my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
-    my $cmd = "$parrot perl6.pbc $tfile";
+    my $cmd = "./perl6 $tfile";
     my @results = split "\n", `$cmd`;
     my ($test, $pass, $fail, $todo, $skip) = (0,0,0,0,0);
     my (%skip, %todopass, %todofail);