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

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

diff --git a/t/append_null.t b/t/append_null.t
index 1a3a5e4..3c8b924 100644 (file)
--- a/t/append_null.t
+++ b/t/append_null.t
@@ -1,12 +1,9 @@
 #!/usr/local/bin/perl -w
 
 use strict ;
+use File::Slurp ;
 
-use Test::More tests => 2 ;
-
-BEGIN{ 
-       use_ok( 'File::Slurp', qw( read_file write_file append_file ) ) ;
-}
+use Test::More tests => 1 ;
 
 my $data = <<TEXT ;
 line 1
@@ -24,5 +21,4 @@ my $read_data = read_file( $file ) ;
 
 is( $data, $read_data ) ;
 
-
 unlink $file ;