[Module-build-checkins] Module-Build/t compat.t,1.35,1.36 destinations.t,1.39,1.40 ext.t,1.17,1.18 extend.t,1.20,1.21 files.t,1.12,1.13 install.t,1.30,1.31 manifypods.t,1.20,1.21 metadata.t,1.11,1.12 metadata2.t,1.9,1.10 moduleinfo.t,1.14,1.15 notes.t,1.17,1.18 parents.t,1.4,1.5 pod_parser.t,1.5,1.6 ppm.t,1.6,1.7 runthrough.t,1.61,1.62 signature.t,1.16,1.17 tilde.t,1.14,1.15 versions.t,1.9,1.10 xs.t,1.36,1.37 common.pl,1.16,NONE

[Ken W. <kwi...@us...>]

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

Modified Files:
	compat.t destinations.t ext.t extend.t files.t install.t 
	manifypods.t metadata.t metadata2.t moduleinfo.t notes.t 
	parents.t pod_parser.t ppm.t runthrough.t signature.t tilde.t 
	versions.t xs.t 
Removed Files:
	common.pl 
Log Message:
Use the new MBTest module everywhere, get rid of common.pl

Index: files.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/files.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- files.t	29 Dec 2005 01:45:13 -0000	1.12
+++ files.t	29 Dec 2005 03:12:44 -0000	1.13
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 6;
+use lib 't/lib';
+use MBTest tests => 6;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: signature.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/signature.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- signature.t	29 Dec 2005 01:45:13 -0000	1.16
+++ signature.t	29 Dec 2005 03:12:44 -0000	1.17
@@ -1,16 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-#########################
-
-use Test::More;
+use lib 't/lib';
+use MBTest;
 
 if ( $ENV{TEST_SIGNATURE} ) {
   if ( have_module( 'Module::Signature' ) ) {

Index: extend.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/extend.t,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- extend.t	29 Dec 2005 01:45:13 -0000	1.20
+++ extend.t	29 Dec 2005 03:12:44 -0000	1.21
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 52;
+use lib 't/lib';
+use MBTest tests => 52;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- ext.t	29 Dec 2005 01:45:13 -0000	1.17
+++ ext.t	29 Dec 2005 03:12:44 -0000	1.18
@@ -1,17 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-#########################
-
-use Test::More;
-
+use lib 't/lib';
+use MBTest;
 
 my @unix_splits = 
   (

Index: pod_parser.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/pod_parser.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- pod_parser.t	29 Dec 2005 01:45:13 -0000	1.5
+++ pod_parser.t	29 Dec 2005 03:12:44 -0000	1.6
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 7;
+use lib 't/lib';
+use MBTest tests => 7;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- compat.t	29 Dec 2005 01:45:13 -0000	1.35
+++ compat.t	29 Dec 2005 03:12:43 -0000	1.36
@@ -1,17 +1,10 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-#########################
-
+use lib 't/lib';
+use MBTest;
+use File::Spec;
 use Config;
-use Test::More;
 
 # Don't let our own verbosity/test_file get mixed up with our subprocess's
 my @makefile_keys = qw(TEST_VERBOSE HARNESS_VERBOSE TEST_FILES MAKEFLAGS);

Index: ppm.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ppm.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ppm.t	29 Dec 2005 01:45:13 -0000	1.6
+++ ppm.t	29 Dec 2005 03:12:44 -0000	1.7
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More;
+use lib 't/lib';
+use MBTest;
 use Module::Build;
 
 my( $manpage_support, $HTML_support );
@@ -211,3 +205,30 @@
   ok exists( $files->{$file} ) && $files->{$file}, $file;
 }
 
+# A hash of all Config.pm settings related to installing
+# manpages with values set to an empty string.
+sub manpage_reset {
+  return (
+    installman1dir => '',
+    installman3dir => '',
+    installsiteman1dir => '',
+    installsiteman3dir => '',
+    installvendorman1dir => '',
+    installvendorman3dir => '',
+  );
+}
+
+# A hash of all Config.pm settings related to installing
+# html documents with values set to an empty string.
+sub html_reset {
+  return (
+    installhtmldir => '',
+    installhtml1dir => '',
+    installhtml3dir => '',
+    installsitehtml1dir => '',
+    installsitehtml3dir => '',
+    installvendorhtml1dir => '',
+    installvendorhtml3dir => '',
+  );
+}
+

--- common.pl DELETED ---

Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- xs.t	29 Dec 2005 01:45:13 -0000	1.36
+++ xs.t	29 Dec 2005 03:12:44 -0000	1.37
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More;
+use lib 't/lib';
+use MBTest;
 use Module::Build;
 
 { local $SIG{__WARN__} = sub {};

Index: manifypods.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/manifypods.t,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- manifypods.t	29 Dec 2005 01:45:13 -0000	1.20
+++ manifypods.t	29 Dec 2005 03:12:44 -0000	1.21
@@ -1,16 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-#########################
-
-use Test::More;
+use lib 't/lib';
+use MBTest;
 use Module::Build;
 
 if ( Module::Build->current->feature('manpage_support') ) {

Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- destinations.t	29 Dec 2005 01:45:13 -0000	1.39
+++ destinations.t	29 Dec 2005 03:12:43 -0000	1.40
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 92;
+use lib 't/lib';
+use MBTest tests => 92;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: runthrough.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- runthrough.t	29 Dec 2005 01:45:13 -0000	1.61
+++ runthrough.t	29 Dec 2005 03:12:44 -0000	1.62
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 28;
+use lib 't/lib';
+use MBTest tests => 28;
 use Module::Build;
 
 my $have_yaml = Module::Build->current->feature('YAML_support');

Index: moduleinfo.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/moduleinfo.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- moduleinfo.t	29 Dec 2005 01:45:13 -0000	1.14
+++ moduleinfo.t	29 Dec 2005 03:12:44 -0000	1.15
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 64;
+use lib 't/lib';
+use MBTest tests => 64;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: versions.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/versions.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- versions.t	29 Dec 2005 01:45:13 -0000	1.9
+++ versions.t	29 Dec 2005 03:12:44 -0000	1.10
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 2;
+use lib 't/lib';
+use MBTest tests => 2;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: parents.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/parents.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- parents.t	29 Dec 2005 01:45:13 -0000	1.4
+++ parents.t	29 Dec 2005 03:12:44 -0000	1.5
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 27;
+use lib 't/lib';
+use MBTest tests => 27;
 
 #########################
 

Index: notes.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- notes.t	29 Dec 2005 01:45:13 -0000	1.17
+++ notes.t	29 Dec 2005 03:12:44 -0000	1.18
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 8;
+use lib 't/lib';
+use MBTest tests => 8;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: tilde.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- tilde.t	29 Dec 2005 01:45:13 -0000	1.14
+++ tilde.t	29 Dec 2005 03:12:44 -0000	1.15
@@ -3,14 +3,8 @@
 # Test ~ expansion from command line arguments.
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 11;
+use lib 't/lib';
+use MBTest tests => 11;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- install.t	29 Dec 2005 01:45:13 -0000	1.30
+++ install.t	29 Dec 2005 03:12:44 -0000	1.31
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 34;
+use lib 't/lib';
+use MBTest tests => 34;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: metadata2.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata2.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- metadata2.t	29 Dec 2005 01:45:13 -0000	1.9
+++ metadata2.t	29 Dec 2005 03:12:44 -0000	1.10
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 18;
+use lib 't/lib';
+use MBTest tests => 18;
 
 use Cwd ();
 my $cwd = Cwd::cwd;

Index: metadata.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/metadata.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- metadata.t	29 Dec 2005 01:45:13 -0000	1.11
+++ metadata.t	29 Dec 2005 03:12:44 -0000	1.12
@@ -1,14 +1,8 @@
 #!/usr/bin/perl -w
 
 use strict;
-use File::Spec ();
-
-BEGIN {
-  my $common_pl = File::Spec->catfile( 't', 'common.pl' );
-  require $common_pl;
-}
-
-use Test::More tests => 46;
+use lib 't/lib';
+use MBTest tests => 46;
 
 use Cwd ();
 my $cwd = Cwd::cwd;