[svn:parrot] r49682 - trunk/t/pmc

[fperrad at svn.parrot.org]

Author: fperrad
Date: Tue Oct 26 11:50:55 2010
New Revision: 49682
URL: https://trac.parrot.org/parrot/changeset/49682

Log:
fix Perl5 part on Windows (but tests still fail)

Modified:
   trunk/t/pmc/io_stdin.t

Modified: trunk/t/pmc/io_stdin.t
==============================================================================
--- trunk/t/pmc/io_stdin.t	Tue Oct 26 10:04:22 2010	(r49681)
+++ trunk/t/pmc/io_stdin.t	Tue Oct 26 11:50:55 2010	(r49682)
@@ -36,6 +36,7 @@
         my (undef, $file) = create_tempfile(UNLINK => 1);
         open(my $out, '>', $file) or die "bug";
         print $out $string;
+        $file =~ s/\//\\/g if $^O eq 'MSWin32';
         return $file;
     };
 
@@ -43,10 +44,11 @@
     my $input_file = $stuff->($input_string);
     my $code_file = $stuff->($code);
 
+    my $parrot = $^O eq 'MSWin32' ? '.\parrot.exe' : './parrot';
     # Slurp and compare the output.
     my $result = do {
         local $/;
-        open(my $in, '-|', "./parrot '$code_file' < '$input_file'")
+        open(my $in, '-|', "$parrot $code_file < $input_file")
             or die "bug";
         <$in>;
     };