edited all .t tests to not use use_ok to load File::Slurp. they now all

[urisagit/Perl-Docs.git] / t / write_file_win32.t

diff --git a/t/write_file_win32.t b/t/write_file_win32.t
index f0d8638..2c4023e 100644 (file)
--- a/t/write_file_win32.t
+++ b/t/write_file_win32.t
@@ -1,12 +1,9 @@
-use Test::More tests => 2 + 1;
 use strict;
-BEGIN { $^W = 1 }
+use File::Slurp ;
 
-BEGIN {
-    require_ok('File::Slurp');
-    use_ok('File::Slurp', 'write_file');
-}
+use Test::More tests => 1;
 
+BEGIN { $^W = 1 }
 
 sub simple_write_file {
     open my $fh, '>', $_[0] or die "Couldn't open $_[0] for write: $!";