run parrot in current directory

fperrad · Sep 4, 2009 · e57bace · e57bace
1 parent 0304594
commit e57bace
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/Parrot/Test/Xml.pm b/t/Parrot/Test/Xml.pm
@@ -44,11 +44,12 @@ foreach my $func ( keys %language_test_map ) {
 
         my $params = $options{params} || q{};
 
+        my $parrot = File::Spec->catfile( $self->{relpath}, $self->{parrot} );
         # flatten filenames (don't use directories)
         my $lang_fn = File::Spec->rel2abs( Parrot::Test::per_test( '.xml', $count ) );
         my $out_fn = File::Spec->rel2abs( Parrot::Test::per_test( '.out', $count ) );
         my @test_prog = (
-            "$self->{parrot} languages/xml/xml.pbc $lang_fn",
+            "$parrot xml.pbc $lang_fn",
         );
 
         # This does not create byte code, but lua code
@@ -58,7 +59,6 @@ foreach my $func ( keys %language_test_map ) {
         # STDERR is written into same output file
         my $exit_code = Parrot::Test::run_command(
             \@test_prog,
-            CD     => $self->{relpath},
             STDOUT => $out_fn,
             STDERR => $out_fn,
         );