Author: particle
Date: Mon Dec 15 11:18:20 2008
New Revision: 33925
Modified:
trunk/t/perl/Parrot_Test.t
Log:
[t] account for different name for null device on windows
Modified: trunk/t/perl/Parrot_Test.t
==============================================================================
--- trunk/t/perl/Parrot_Test.t (original)
+++ trunk/t/perl/Parrot_Test.t Mon Dec 15 11:18:20 2008
@@ -495,11 +495,11 @@
my $dn = File::Spec->devnull();
( $out, $err, $chdir ) = Parrot::Test::_handle_test_options( {
STDOUT => '',
- STDERR => '/dev/null',
+ STDERR => ($^O eq 'MSWin32')? 'nul' : '/dev/null',
CD => '',
} );
is($out, '', "Got expected value for STDOUT");
-is($err, $dn, "Got expected value for STDERR using /dev/null");
+is($err, $dn, "Got expected value for STDERR using null device");
is($chdir, '', "Got expected value for working directory");
( $out, $err, $chdir ) = Parrot::Test::_handle_test_options( {
