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

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

diff --git a/t/slurp.t b/t/slurp.t
index 2d4f741..7a28e5b 100644 (file)
--- a/t/slurp.t
+++ b/t/slurp.t
@@ -1,12 +1,9 @@
 #!/usr/local/bin/perl -w
 
 use strict ;
+use File::Slurp qw( write_file slurp ) ;
 
-use Test::More tests => 2 ;
-
-BEGIN{ 
-       use_ok( 'File::Slurp', qw( write_file slurp ) ) ;
-}
+use Test::More tests => 1 ;
 
 my $data = <<TEXT ;
 line 1