[svn:parrot] r9815 - trunk/languages/bc/lib/Parrot/Test

[fperrad]

Author: fperrad
Date: Sun Nov  6 23:51:55 2005
New Revision: 9815

Modified:
   trunk/languages/bc/lib/Parrot/Test/Bc.pm
Log:
use run_command with an array.
now work on Win32.

Modified: trunk/languages/bc/lib/Parrot/Test/Bc.pm
==============================================================================
--- trunk/languages/bc/lib/Parrot/Test/Bc.pm    (original)
+++ trunk/languages/bc/lib/Parrot/Test/Bc.pm    Sun Nov  6 23:51:55 2005
@@ -49,10 +49,10 @@ foreach my $func ( keys %language_test_m
         my $pir_f          = Parrot::Test::per_test( '.pir', $count );
         my $bc_out_f       = Parrot::Test::per_test( $ENV{PARROT_BC_TEST_PROG} 
? '.posix_out' : '.parrot_out', $count );
         my $test_prog_args = $ENV{TEST_PROG_ARGS} || '';
-        my $test_prog      = $ENV{PARROT_BC_TEST_PROG} ?
-                               "$ENV{PARROT_BC_TEST_PROG}  ${test_prog_args} 
languages/${lang_f}" :
-                               "python languages/bc/bc.py languages/${lang_f} 
&& $self->{parrot} languages/${pir_f}";
-        # die Dumper( $test_prog );
+        my @test_prog      = $ENV{PARROT_BC_TEST_PROG} ?
+                 ( "$ENV{PARROT_BC_TEST_PROG}  ${test_prog_args} 
languages/${lang_f}" ):
+                 ( "python languages/bc/bc.py languages/${lang_f}", 
+                   "$self->{parrot} languages/${pir_f}" );
 
         # This does nor create byte code, but bc code
         my $parrotdir       = dirname( $self->{parrot} );
@@ -60,7 +60,7 @@ foreach my $func ( keys %language_test_m
 
         # STDERR is written into same output file
         my $exit_code = Parrot::Test::run_command( 
-            $test_prog, 
+            [EMAIL PROTECTED], 
             CD => $self->{relpath}, 
             STDOUT => $bc_out_f, STDERR => $bc_out_f 
         );
@@ -74,6 +74,7 @@ foreach my $func ( keys %language_test_m
                                                   );
         unless ( $pass ) {
             my $diag = '';
+            my $test_prog = join ' && ', @test_prog;
             $diag .= "'$test_prog' failed with exit code $exit_code." if 
$exit_code;
             $self->{builder}->diag( $diag ) if $diag;
         }