develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33925 - trunk/t/perl

From:
particle
Date:
December 15, 2008 11:18
Subject:
[svn:parrot] r33925 - trunk/t/perl
Message ID:
20081215191821.6445FCBA12@x12.develooper.com
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( {



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About