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
[perl5.git] / ext / IO / t / io_file.t
CommitLineData
a84e44cd
JB
1#!./perl -w
2
3BEGIN { chdir 't' if -d 't'; }
4
5use strict;
6use lib '../lib';
1d7a7f6e 7use Test::More tests => ($^O =~ /MSWin32/ ? 9 : 6);
a84e44cd
JB
8
9my $Class = 'IO::File';
10my $All_Chars = join '', "\r\n", map( chr, 1..255 ), "zzz\n\r";
11my $File = 'bin.'.$$;
12my $Expect = quotemeta $All_Chars;
13
14use_ok( $Class );
15can_ok( $Class, "binmode" );
16
17### file the file with binary data;
18### use standard open to make sure we can compare binmodes
19### on both.
20{ my $tmp;
21 open $tmp, ">$File" or die "Could not open '$File': $!";
22 binmode $tmp;
23 print $tmp $All_Chars;
24 close $tmp;
25}
26
27### now read in the file, once without binmode, once with.
28### without binmode should fail at least on win32...
29if( $^O =~ /MSWin32/ ) {
30 my $fh = $Class->new;
31
32 isa_ok( $fh, $Class );
33 ok( $fh->open($File), " Opened '$File'" );
34
35 my $cont = do { local $/; <$fh> };
36 unlike( $cont, qr/$Expect/, " Content match fails without binmode" );
37}
38
39### now with binmode, it must pass
40{ my $fh = $Class->new;
41
42 isa_ok( $fh, $Class );
43 ok( $fh->open($File), " Opened '$File' $!" );
44 ok( $fh->binmode, " binmode enabled" );
45
46 my $cont = do { local $/; <$fh> };
47 like( $cont, qr/$Expect/, " Content match passes with binmode" );
48}
49
50unlink $File;