[Module-build-checkins] Module-Build/t basic.t,1.48,1.49 compat.t,1.34,1.35 destinations.t,1.38,1.39
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2005-12-29 01:45:23
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25745/t Modified Files: basic.t 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 Log Message: Fix the loading from t/lib Index: files.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/files.t,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- files.t 20 Oct 2005 16:45:19 -0000 1.11 +++ files.t 29 Dec 2005 01:45:13 -0000 1.12 @@ -1,13 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; +use File::Spec (); -use Test::More tests => 6; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} -use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +use Test::More 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.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- signature.t 20 Oct 2005 16:45:19 -0000 1.15 +++ signature.t 29 Dec 2005 01:45:13 -0000 1.16 @@ -1,11 +1,12 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; + +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} ######################### Index: extend.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/extend.t,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- extend.t 28 Jul 2005 03:45:44 -0000 1.19 +++ extend.t 29 Dec 2005 01:45:13 -0000 1.20 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 52; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- ext.t 28 Jun 2005 05:31:03 -0000 1.16 +++ ext.t 29 Dec 2005 01:45:13 -0000 1.17 @@ -1,11 +1,12 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; + +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} ######################### Index: pod_parser.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/pod_parser.t,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- pod_parser.t 8 Jul 2005 01:29:38 -0000 1.4 +++ pod_parser.t 29 Dec 2005 01:45:13 -0000 1.5 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 7; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- compat.t 20 Oct 2005 16:45:19 -0000 1.34 +++ compat.t 29 Dec 2005 01:45:13 -0000 1.35 @@ -1,12 +1,12 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} ######################### Index: basic.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v retrieving revision 1.48 retrieving revision 1.49 diff -u -d -r1.48 -r1.49 --- basic.t 21 Nov 2005 03:29:42 -0000 1.48 +++ basic.t 29 Dec 2005 01:45:13 -0000 1.49 @@ -1,14 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; +use File::Spec (); -use Test::More tests => 55; - +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} -use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +use Test::More tests => 55; use Cwd (); Index: ppm.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/ppm.t,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- ppm.t 4 Dec 2005 05:41:22 -0000 1.5 +++ ppm.t 29 Dec 2005 01:45:13 -0000 1.6 @@ -1,16 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} +use Test::More; use Module::Build; my( $manpage_support, $HTML_support ); Index: xs.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- xs.t 4 Dec 2005 08:48:09 -0000 1.35 +++ xs.t 29 Dec 2005 01:45:13 -0000 1.36 @@ -1,16 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} +use Test::More; use Module::Build; { local $SIG{__WARN__} = sub {}; Index: manifypods.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/manifypods.t,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- manifypods.t 21 Nov 2005 06:24:58 -0000 1.19 +++ manifypods.t 29 Dec 2005 01:45:13 -0000 1.20 @@ -1,12 +1,12 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} ######################### Index: destinations.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v retrieving revision 1.38 retrieving revision 1.39 diff -u -d -r1.38 -r1.39 --- destinations.t 1 Dec 2005 08:26:35 -0000 1.38 +++ destinations.t 29 Dec 2005 01:45:13 -0000 1.39 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 92; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.60 retrieving revision 1.61 diff -u -d -r1.60 -r1.61 --- runthrough.t 20 Oct 2005 16:45:19 -0000 1.60 +++ runthrough.t 29 Dec 2005 01:45:13 -0000 1.61 @@ -1,18 +1,18 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; +use File::Spec (); + +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} use Test::More tests => 28; +use Module::Build; my $have_yaml = Module::Build->current->feature('YAML_support'); - -use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; - - ######################### use Cwd (); Index: moduleinfo.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/moduleinfo.t,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- moduleinfo.t 14 Oct 2005 00:45:52 -0000 1.13 +++ moduleinfo.t 29 Dec 2005 01:45:13 -0000 1.14 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 64; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- versions.t 20 Oct 2005 16:45:19 -0000 1.8 +++ versions.t 29 Dec 2005 01:45:13 -0000 1.9 @@ -1,13 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; +use File::Spec (); -use Test::More tests => 2; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} -use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +use Test::More 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.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- parents.t 20 Oct 2005 16:45:19 -0000 1.3 +++ parents.t 29 Dec 2005 01:45:13 -0000 1.4 @@ -1,14 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 27; - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More tests => 27; ######################### Index: notes.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- notes.t 20 Oct 2005 16:45:19 -0000 1.16 +++ notes.t 29 Dec 2005 01:45:13 -0000 1.17 @@ -1,13 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; +use File::Spec (); -use Test::More tests => 8; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} -use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +use Test::More 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.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- tilde.t 20 Oct 2005 16:45:19 -0000 1.13 +++ tilde.t 29 Dec 2005 01:45:13 -0000 1.14 @@ -2,16 +2,15 @@ # Test ~ expansion from command line arguments. -use lib 't/lib'; use strict; - -use Test::More tests => 11; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- install.t 21 Nov 2005 03:29:42 -0000 1.29 +++ install.t 29 Dec 2005 01:45:13 -0000 1.30 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 34; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- metadata2.t 4 Dec 2005 03:10:05 -0000 1.8 +++ metadata2.t 29 Dec 2005 01:45:13 -0000 1.9 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 18; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More 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.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- metadata.t 29 Nov 2005 05:03:09 -0000 1.10 +++ metadata.t 29 Dec 2005 01:45:13 -0000 1.11 @@ -1,15 +1,14 @@ #!/usr/bin/perl -w -use lib 't/lib'; use strict; - -use Test::More tests => 46; - - use File::Spec (); -my $common_pl = File::Spec->catfile( 't', 'common.pl' ); -require $common_pl; +BEGIN { + my $common_pl = File::Spec->catfile( 't', 'common.pl' ); + require $common_pl; +} + +use Test::More tests => 46; use Cwd (); my $cwd = Cwd::cwd; |