Author: colink
Date: Tue Oct 2 11:00:42 2007
New Revision: 21753
Modified:
branches/unified_testing/tools/util/runtests
Log:
[unified testing] locate a parrot binary
Modified: branches/unified_testing/tools/util/runtests
==============================================================================
--- branches/unified_testing/tools/util/runtests (original)
+++ branches/unified_testing/tools/util/runtests Tue Oct 2 11:00:42 2007
@@ -13,13 +13,13 @@
my $parrotDir = File::Spec->catdir( $FindBin::Bin, (File::Spec->updir) x 2 );
$parrotDir = Cwd::realpath($parrotDir);
-my $parrot = File::Spec->catfile($parrotDir, 'parrot');
-
my $prove = App::Prove->new;
unshift @ARGV, qw(--harness Parrot::TAP::Harness);
$prove->process_args([EMAIL PROTECTED]);
+$Parrot::TAP::Harness::parrot = File::Spec->catfile($parrotDir, 'parrot');
+
my($run_exec, $running_make_test, $gc_debug, $make_html);
my %options = (
'running-make-test' => \$running_make_test,
@@ -90,7 +90,7 @@
use base 'TAP::Harness';
use constant auto_inherit => 1;
- my $parrot = './parrot'; # TODO pick a parrot
+ our $parrot = './parrot'; # TODO pick a parrot
# This gets called just before running each test. The return value
# gets handed to a TAP::Parser->new(). Private -- yeah...whatever.
