1 #!/usr/local/bin/perl -w
9 use_ok( 'File::Slurp', ) ;
12 my $file = 'slurp.data' ;
19 [ map( "aaaaaaaa\n\n", 1 .. 3 ) ],
20 [ map( "aaaaaaaa\n\n", 1 .. 3 ), 'aaaaaaaa' ],
21 [ map( "aaaaaaaa" . ( "\n" x (2 + rand 3) ), 1 .. 100 ) ],
22 [ map( "aaaaaaaa" . ( "\n" x (2 + rand 3) ), 1 .. 100 ), 'aaaaaaaa' ],
26 plan( tests => 3 * @text_data ) ;
28 #print "# text slurp\n" ;
30 foreach my $data ( @text_data ) {
32 test_text_slurp( $data ) ;
42 my( $data_ref ) = @_ ;
44 my @data_lines = @{$data_ref} ;
45 my $data_text = join( '', @data_lines ) ;
49 my $err = write_file( $file, $data_text ) ;
50 ok( $err, 'write_file - ' . length $data_text ) ;
53 my @array = read_file( $file ) ;
54 ok( eq_array( \@array, \@data_lines ),
55 'array read_file - ' . length $data_text ) ;
57 print "READ:\n", map( "[$_]\n", @array ),
58 "EXP:\n", map( "[$_]\n", @data_lines )
59 unless eq_array( \@array, \@data_lines ) ;
61 my $array_ref = read_file( $file, array_ref => 1 ) ;
62 ok( eq_array( $array_ref, \@data_lines ),
63 'array ref read_file - ' . length $data_text ) ;