t/write_file_win32.t

   1 use Test::More tests => 2 + 1;
   2 use strict;
   3 BEGIN { $^W = 1 }
   4
   5 BEGIN {
   6     require_ok('File::Slurp');
   7     use_ok('File::Slurp', 'write_file');
   8 }
   9
  10
  11 sub simple_write_file {
  12     open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!";
  13     print $fh $_[1];
  14 }
  15
  16 sub newline_size {
  17     my ($code) = @_;
  18
  19     my $file = __FILE__ . '.tmp';
  20
  21     local $\ = '';
  22     $code->($file, "\n" x 3);
  23
  24     my $size = -s $file;
  25
  26     unlink $file;
  27
  28     return $size;
  29 }
  30
  31 is(newline_size(\&write_file), newline_size(\&simple_write_file), 'newline');