Thread: [Module-build-checkins] Module-Build/t compat.t,1.35,1.36 destinations.t,1.39,1.40 ext.t,1.17,1.18 e
Status: Beta
Brought to you by:
kwilliams
Menu
▾
▴
module-build-checkins
|
From: Ken W. <kwi...@us...> - 2005-12-29 03:12:53
|
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; |
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X