Commit | Line | Data |
635c7876 |
1 | use Test::More tests => 2 + 2 ; |
2 | |
3 | use strict; |
4 | |
5 | BEGIN { |
6 | require_ok( 'File::Slurp' ) ; |
7 | use_ok('File::Slurp', qw(write_file read_file) ) ; |
8 | } |
9 | |
10 | |
11 | my $data = "\r\n\r\n\r\n" ; |
12 | my $file_name = 'newline.txt' ; |
13 | |
14 | stdio_write_file( $file_name, $data ) ; |
15 | my $slurped_data = read_file( $file_name ) ; |
16 | |
17 | my $stdio_slurped_data = stdio_read_file( $file_name ) ; |
18 | |
19 | |
20 | print 'data ', unpack( 'H*', $data), "\n", |
21 | 'slurp ', unpack('H*', $slurped_data), "\n", |
22 | 'stdio slurp ', unpack('H*', $stdio_slurped_data), "\n"; |
23 | |
24 | is( $data, $slurped_data, 'slurp' ) ; |
25 | |
26 | write_file( $file_name, $data ) ; |
27 | $slurped_data = stdio_read_file( $file_name ) ; |
28 | |
29 | is( $data, $slurped_data, 'spew' ) ; |
30 | |
31 | unlink $file_name ; |
32 | |
33 | sub stdio_write_file { |
34 | |
35 | my( $file_name, $data ) = @_ ; |
36 | |
37 | local( *FH ) ; |
38 | |
39 | open( FH, ">$file_name" ) || die "Couldn't create $file_name: $!"; |
40 | |
41 | print FH $data ; |
42 | } |
43 | |
44 | sub stdio_read_file { |
45 | |
46 | my( $file_name ) = @_ ; |
47 | |
48 | open( FH, $file_name ) || die "Couldn't open $file_name: $!"; |
49 | |
50 | local( $/ ) ; |
51 | |
52 | my $data = <FH> ; |
53 | |
54 | return $data ; |
55 | } |
56 | |
57 | |