This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Adjust test count for non-windows machines
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 Nov 2004 18:17:07 +0000 (18:17 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 9 Nov 2004 18:17:07 +0000 (18:17 +0000)
p4raw-id: //depot/perl@23490

ext/IO/t/io_file.t

index a2e608a..22d177e 100755 (executable)
@@ -4,7 +4,7 @@ BEGIN { chdir 't' if -d 't'; }
 
 use strict;
 use lib '../lib';
 
 use strict;
 use lib '../lib';
-use Test::More tests => 9;
+use Test::More tests => ($^O =~ /MSWin32/ ? 9 : 6);
 
 my $Class       = 'IO::File';
 my $All_Chars   = join '', "\r\n", map( chr, 1..255 ), "zzz\n\r";
 
 my $Class       = 'IO::File';
 my $All_Chars   = join '', "\r\n", map( chr, 1..255 ), "zzz\n\r";