[Module-build-checkins] Module-Build/t metadata2.t,1.7,1.8

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29213/t

Modified Files:
	metadata2.t 
Log Message:
Use the slurp() routine from t/common.pl

Index: metadata2.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata2.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- metadata2.t	1 Dec 2005 08:20:17 -0000	1.7
+++ metadata2.t	4 Dec 2005 03:10:05 -0000	1.8
@@ -69,20 +69,6 @@
 =cut
 ---
 
-sub _slurp {
-    my $filename = shift;
-    die "$filename doesn't exist. Aborting" if not -e $filename;
-
-    use IO::File;
-    my $fh = IO::File->new( "< $filename" )
-        or die "Couldn't open $filename: $!. Aborting.";
-    local $/;
-    my $content = <$fh>;
-    $fh->close;
-    return $content;
-}
-
-
 my $dist = DistGen->new( dir => $tmp );
 
 $dist->change_file( 'Build.PL', <<"---" );
@@ -112,7 +98,7 @@
 ok( -e "lib/Simple.pm", "Creating Simple.pm" );
 my $mb = Module::Build->new_from_context;
 $mb->do_create_readme;
-like( _slurp("README"), qr/NAME/, 
+like( slurp("README"), qr/NAME/, 
     "Generating README from .pm");
 is( $mb->dist_author->[0], 'Simple Simon <si...@si...m>', 
     "Extracting AUTHOR from .pm");
@@ -133,7 +119,7 @@
 ok( -e "lib/Simple.pod", "Creating Simple.pod" );
 $mb = Module::Build->new_from_context;
 $mb->do_create_readme;
-like( _slurp("README"), qr/NAME/, "Generating README from .pod");
+like( slurp("README"), qr/NAME/, "Generating README from .pod");
 is( $mb->dist_author->[0], 'Simple Simon <si...@si...m>', 
     "Extracting AUTHOR from .pod");
 is( $mb->dist_abstract, "A simple module", 
@@ -158,10 +144,10 @@
 ok( -e "lib/Simple.pod", "Creating Simple.pod" );
 $mb = Module::Build->new_from_context;
 $mb->do_create_readme;
-like( _slurp("README"), qr/NAME/, "Generating README from .pod over .pm");
-is( $mb->dist_author->[0], 'Simple Simon <si...@si...m>', 
+like( slurp("README"), qr/NAME/, "Generating README from .pod over .pm");
+is( $mb->dist_author->[0], 'Simple Simon <si...@si...m>',
     "Extracting AUTHOR from .pod over .pm");
-is( $mb->dist_abstract, "A simple module", 
+is( $mb->dist_abstract, "A simple module",
     "Extracting abstract from .pod over .pm");