From 37bf6f59285411a3535832e8b72953dbd31d680e Mon Sep 17 00:00:00 2001
From: Francois Perrad <francois.perrad@gadz.org>
Date: Fri, 4 Sep 2009 12:00:33 +0200
Subject: [PATCH] run parrot in current directory

---
 t/Parrot/Test/Markdown.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/Parrot/Test/Markdown.pm b/t/Parrot/Test/Markdown.pm
index 211124e..b99bd39 100644
--- a/t/Parrot/Test/Markdown.pm
+++ b/t/Parrot/Test/Markdown.pm
@@ -45,11 +45,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( '.text', $count ) );
         my $out_fn = File::Spec->rel2abs( Parrot::Test::per_test( '.html', $count ) );
         my @test_prog = (
-            "$self->{parrot} languages/markdown/markdown.pbc $lang_fn",
+            "$parrot markdown.pbc $lang_fn",
         );
 
         # This does not create byte code, but lua code
@@ -59,7 +60,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,
         );