t/newline.t

   1 use Test::More tests => 2 ;
   2
   3 use strict;
   4 use File::Slurp ;
   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