Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13729/t
Modified Files:
metadata2.t
Log Message:
Allow the 'distmeta' action to continue when 'MANIFEST' is missing, omitting the generation of the 'provieds' field.
Fixed some failing regex from generated MANIFEST.SKIP file.
Index: metadata2.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata2.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- metadata2.t 30 Sep 2005 01:09:53 -0000 1.1
+++ metadata2.t 20 Oct 2005 03:40:48 -0000 1.2
@@ -3,7 +3,7 @@
use lib 't/lib';
use strict;
-use Test::More 'no_plan'; # tests => 35;
+use Test::More tests => 18;
use File::Spec ();
@@ -15,8 +15,37 @@
my $cwd = Cwd::cwd;
my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' );
+use Module::Build;
use DistGen;
-my $dist = DistGen->new( dir => $tmp );
+
+
+############################## ACTION distmeta works without a MANIFEST file
+
+my $dist = DistGen->new( dir => $tmp, skip_manifest => 1 );
+$dist->regen;
+
+chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
+
+ok ! -e 'MANIFEST';
+
+my $mb = Module::Build->new_from_context;
+
+my $out;
+$out = eval { stderr_of(sub{$mb->dispatch('distmeta')}) };
+is $@, '';
+
+like $out, qr/Nothing to enter for 'provides'/;
+
+ok -e 'META.yml';
+
+chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
+$dist->remove;
+
+
+############################## Check generation of README file
+
+$dist = DistGen->new( dir => $tmp );
+
$dist->change_file( 'Build.PL', <<"---" );
use Module::Build;
my \$builder = Module::Build->new(
@@ -32,8 +61,6 @@
chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
-use Module::Build;
-my $mb = Module::Build->new_from_context;
my $provides; # Used a bunch of times below
my $pod_text = <<'---';
@@ -59,7 +86,7 @@
return scalar <$fh>;
}
-############################## Single Module
+
# .pm File with pod
#
|
