The exex sub needs to return an array of strings.

bschmalhofer · Mar 4, 2009 · bd1c7f3 · bd1c7f3
1 parent bbf5a2c
commit bd1c7f3
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/t/harness b/t/harness
@@ -84,12 +84,12 @@ $verbosity ||= 0;
               my ( $harness, $test_file ) = @_;
 
               # the directory t/embed contains only PIR test files
-              #return [ "$path_to_parrot/parrot pipp.pbc",  '--run-pir', $test_file ] if $test_file =~ m!t/embed/.*[.]t$!;
-              return [ "$path_to_parrot/parrot", $test_file ] if $test_file =~ m!t/embed/.*[.]t$!;
+              return [ "$path_to_parrot/parrot", 'pipp.pbc',  '--run-pir', $test_file ] if $test_file =~ m!t/embed/.*[.]t$!;
+              #return [ "$path_to_parrot/parrot", $test_file ] if $test_file =~ m!t/embed/.*[.]t$!;
 
               # the directory t/pmc contains only PIR test files
-              #return [ "$path_to_parrot/parrot pipp.pbc", '--run-pir', $test_file ] if $test_file =~ m!t/pmc/.*[.]t$!;
-              return [ "$path_to_parrot/parrot", $test_file ] if $test_file =~ m!t/pmc/.*[.]t$!;
+              return [ "$path_to_parrot/parrot", 'pipp.pbc', '--run-pir', $test_file ] if $test_file =~ m!t/pmc/.*[.]t$!;
+              #return [ "$path_to_parrot/parrot", $test_file ] if $test_file =~ m!t/pmc/.*[.]t$!;
 
               # the directory t/in_php contains only test scripts written in PHP
               return [ @cmd, $test_file ] if $test_file =~ m!t/in_php/.*[.]t$!;