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