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");
|
