X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FPerl-Docs.git;a=blobdiff_plain;f=t%2Fwrite_file_win32.t;fp=t%2Fwrite_file_win32.t;h=0000000000000000000000000000000000000000;hp=1e424568fbe0eeda40c70b51b4485ba16d20d995;hb=47f1263f57592cfd836dee694c227575bc9cde46;hpb=cf83821d2b095a464d353ea98e41bfa8b262caef

diff --git a/t/write_file_win32.t b/t/write_file_win32.t
deleted file mode 100644
index 1e42456..0000000
--- a/t/write_file_win32.t
+++ /dev/null
@@ -1,29 +0,0 @@
-use strict;
-use File::Slurp ;
-
-use Test::More tests => 1;
-
-BEGIN { $^W = 1 }
-
-sub simple_write_file {
-    open FH, ">$_[0]" or die "Couldn't open $_[0] for write: $!";
-    print FH $_[1];
-    close FH ;
-}
-
-sub newline_size {
-    my ($code) = @_;
-
-    my $file = __FILE__ . '.tmp';
-
-    local $\ = '';
-    $code->($file, "\n" x 3);
-
-    my $size = -s $file;
-
-    unlink $file;
-
-    return $size;
-}
-
-is(newline_size(\&write_file), newline_size(\&simple_write_file), 'newline');