module-build-checkins Mailing List for Module::Build (Page 9)
Status: Beta
Brought to you by:
kwilliams
Menu
▾
▴
module-build-checkins — Notification of CVS commits
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(82) |
Dec
(58) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(49) |
Feb
(57) |
Mar
(49) |
Apr
(49) |
May
(2) |
Jun
(147) |
Jul
(60) |
Aug
(55) |
Sep
(51) |
Oct
(68) |
Nov
(61) |
Dec
(44) |
| 2006 |
Jan
(27) |
Feb
(38) |
Mar
(89) |
Apr
(31) |
May
(17) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Ken W. <kwi...@us...> - 2006-01-05 19:54:20
|
Update of /cvsroot/module-build/ExtUtils-ParseXS/lib/ExtUtils In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18191/lib/ExtUtils Modified Files: ParseXS.pm Log Message: Squash a warning Index: ParseXS.pm =================================================================== RCS file: /cvsroot/module-build/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm,v retrieving revision 1.39 retrieving revision 1.40 diff -u -d -r1.39 -r1.40 --- ParseXS.pm 10 Oct 2005 15:04:04 -0000 1.39 +++ ParseXS.pm 5 Jan 2006 19:54:11 -0000 1.40 @@ -456,7 +456,7 @@ \b ( \w+ | length\( \s*\w+\s* \) ) \s* $ /x); next unless defined($pre) && length($pre); - my $out_type; + my $out_type = ''; my $inout_var; if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\s+//) { my $type = $1; |
|
From: Ken W. <kwi...@us...> - 2006-01-05 19:54:19
|
Update of /cvsroot/module-build/ExtUtils-ParseXS In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18191 Modified Files: Changes Log Message: Squash a warning Index: Changes =================================================================== RCS file: /cvsroot/module-build/ExtUtils-ParseXS/Changes,v retrieving revision 1.43 retrieving revision 1.44 diff -u -d -r1.43 -r1.44 --- Changes 10 Oct 2005 15:03:42 -0000 1.43 +++ Changes 5 Jan 2006 19:54:11 -0000 1.44 @@ -1,5 +1,10 @@ Revision history for Perl extension ExtUtils::ParseXS. +2.16 + + - Fix an undefined-variable warning related to 'inout' parameter + processing. + 2.15 Mon Oct 10 11:02:13 EDT 2005 - I accidentally left out a README from the distribution. Now it's |
|
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; |
|
From: Ken W. <kwi...@us...> - 2005-12-29 03:04:29
|
Update of /cvsroot/module-build/Module-Build/t/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4457 Modified Files: MBTest.pm Log Message: Need to load Config.pm Index: MBTest.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/lib/MBTest.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- MBTest.pm 29 Dec 2005 03:01:48 -0000 1.1 +++ MBTest.pm 29 Dec 2005 03:04:22 -0000 1.2 @@ -17,6 +17,7 @@ use Exporter; use Test::More; +use Config; # We pass everything through to Test::More use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO); |
|
From: Ken W. <kwi...@us...> - 2005-12-29 03:01:56
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4111/t Modified Files: basic.t Log Message: Abstract all this preamble stuff out to a support module Index: basic.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v retrieving revision 1.49 retrieving revision 1.50 diff -u -d -r1.49 -r1.50 --- basic.t 29 Dec 2005 01:45:13 -0000 1.49 +++ basic.t 29 Dec 2005 03:01:48 -0000 1.50 @@ -1,15 +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 => 55; - +use lib 't/lib'; +use MBTest tests => 55; use Cwd (); my $cwd = Cwd::cwd; |
|
From: Ken W. <kwi...@us...> - 2005-12-29 03:01:56
|
Update of /cvsroot/module-build/Module-Build/t/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4111/t/lib Added Files: MBTest.pm Log Message: Abstract all this preamble stuff out to a support module --- NEW FILE: MBTest.pm --- package MBTest; use strict; use File::Spec; BEGIN { # In case the test wants to use Test::More or our other bundled # modules, make sure they can be loaded. They'll still do "use # Test::More" in the test script. my $t_lib = File::Spec->catdir('t', 'bundled'); push @INC, $t_lib; # Let user's installed version override # Make sure none of our tests load the users ~/.modulebuildrc file $ENV{MODULEBUILDRC} = 'NONE'; } use Exporter; use Test::More; # We pass everything through to Test::More use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS $TODO); $VERSION = 0.01; @ISA = qw(Test::More); # Test::More isa Exporter @EXPORT = @Test::More::EXPORT; %EXPORT_TAGS = %Test::More::EXPORT_TAGS; # We have a few extra exports, but Test::More has a special import() # that won't take extra additions. my @extra_exports = qw(stdout_of stderr_of slurp find_in_path); push @EXPORT, @extra_exports; __PACKAGE__->export(scalar caller, @extra_exports); sub save_handle { my ($handle, $subr) = @_; my $outfile = 'save_out'; local *SAVEOUT; open SAVEOUT, ">&" . fileno($handle) or die "Can't save output handle: $!"; open $handle, "> $outfile" or die "Can't create $outfile: $!"; eval {$subr->()}; open $handle, ">&SAVEOUT" or die "Can't restore output: $!"; my $ret = slurp($outfile); 1 while unlink $outfile; return $ret; } sub stdout_of { save_handle(\*STDOUT, @_) } sub stderr_of { save_handle(\*STDERR, @_) } sub slurp { my $fh = IO::File->new($_[0]) or die "Can't open $_[0]: $!"; local $/; return scalar <$fh>; } sub find_in_path { my $thing = shift; my @path = split $Config{path_sep}, $ENV{PATH}; my @exe_ext = $^O eq 'MSWin32' ? ('', # may have extension already split($Config{path_sep}, $ENV{PATHEXT} || '.com;.exe;.bat')) : (''); foreach (@path) { my $fullpath = File::Spec->catfile($_, $thing); foreach my $ext ( @exe_ext ) { return "$fullpath$ext" if -e "$fullpath$ext"; } } return; } 1; |
|
From: Ken W. <kwi...@us...> - 2005-12-29 02:58:51
|
Update of /cvsroot/module-build/Module-Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3354 Modified Files: .cvsignore Log Message: Index: .cvsignore =================================================================== RCS file: /cvsroot/module-build/Module-Build/.cvsignore,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- .cvsignore 25 Sep 2005 23:37:33 -0000 1.9 +++ .cvsignore 29 Dec 2005 02:58:43 -0000 1.10 @@ -9,3 +9,4 @@ Module-Build* README cover_db +.project |
|
From: Ken W. <kwi...@us...> - 2005-12-29 01:57:08
|
Update of /cvsroot/module-build/Module-Build/t/lib/Test In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27203/lib/Test Removed Files: Builder.pm More.pm Simple.pm Log Message: Move bundled modules to a different area than our support code --- Simple.pm DELETED --- --- More.pm DELETED --- --- Builder.pm DELETED --- |
|
From: Ken W. <kwi...@us...> - 2005-12-29 01:57:08
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27203 Modified Files: common.pl Log Message: Move bundled modules to a different area than our support code Index: common.pl =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/common.pl,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- common.pl 22 Nov 2005 11:07:23 -0000 1.15 +++ common.pl 29 Dec 2005 01:56:52 -0000 1.16 @@ -1,12 +1,13 @@ use strict; use Config; -BEGIN { +use lib 't/lib'; +BEGIN { # In case the test wants to use Test::More or our other bundled # modules, make sure they can be loaded. They'll still do "use # Test::More" in the test script. - my $t_lib = File::Spec->catdir('t', 'lib'); + my $t_lib = File::Spec->catdir('t', 'bundled'); push @INC, $t_lib; # Let user's installed version override # Make sure none of our tests load the users ~/.modulebuildrc file |
|
From: Ken W. <kwi...@us...> - 2005-12-29 01:57:08
|
Update of /cvsroot/module-build/Module-Build/t/bundled/Test In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27203/bundled/Test Added Files: Builder.pm More.pm Simple.pm Log Message: Move bundled modules to a different area than our support code --- NEW FILE: Simple.pm --- package Test::Simple; use 5.004; use strict 'vars'; use vars qw($VERSION); $VERSION = '0.49'; use Test::Builder; my $Test = Test::Builder->new; sub import { my $self = shift; my $caller = caller; *{$caller.'::ok'} = \&ok; $Test->exported_to($caller); $Test->plan(@_); } =head1 NAME Test::Simple - Basic utilities for writing tests. =head1 SYNOPSIS use Test::Simple tests => 1; ok( $foo eq $bar, 'foo is bar' ); =head1 DESCRIPTION ** If you are unfamiliar with testing B<read Test::Tutorial> first! ** This is an extremely simple, extremely basic module for writing tests suitable for CPAN modules and other pursuits. If you wish to do more complicated testing, use the Test::More module (a drop-in replacement for this one). The basic unit of Perl testing is the ok. For each thing you want to test your program will print out an "ok" or "not ok" to indicate pass or fail. You do this with the ok() function (see below). The only other constraint is you must pre-declare how many tests you plan to run. This is in case something goes horribly wrong during the test and your test program aborts, or skips a test or whatever. You do this like so: use Test::Simple tests => 23; You must have a plan. =over 4 =item B<ok> ok( $foo eq $bar, $name ); ok( $foo eq $bar ); ok() is given an expression (in this case C<$foo eq $bar>). If it's true, the test passed. If it's false, it didn't. That's about it. ok() prints out either "ok" or "not ok" along with a test number (it keeps track of that for you). # This produces "ok 1 - Hell not yet frozen over" (or not ok) ok( get_temperature($hell) > 0, 'Hell not yet frozen over' ); If you provide a $name, that will be printed along with the "ok/not ok" to make it easier to find your test when if fails (just search for the name). It also makes it easier for the next guy to understand what your test is for. It's highly recommended you use test names. All tests are run in scalar context. So this: ok( @stuff, 'I have some stuff' ); will do what you mean (fail if stuff is empty) =cut sub ok ($;$) { $Test->ok(@_); } =back Test::Simple will start by printing number of tests run in the form "1..M" (so "1..5" means you're going to run 5 tests). This strange format lets Test::Harness know how many tests you plan on running in case something goes horribly wrong. If all your tests passed, Test::Simple will exit with zero (which is normal). If anything failed it will exit with how many failed. If you run less (or more) tests than you planned, the missing (or extras) will be considered failures. If no tests were ever run Test::Simple will throw a warning and exit with 255. If the test died, even after having successfully completed all its tests, it will still be considered a failure and will exit with 255. So the exit codes are... 0 all tests successful 255 test died any other number how many failed (including missing or extras) If you fail more than 254 tests, it will be reported as 254. This module is by no means trying to be a complete testing system. It's just to get you started. Once you're off the ground its recommended you look at L<Test::More>. =head1 EXAMPLE Here's an example of a simple .t file for the fictional Film module. use Test::Simple tests => 5; use Film; # What you're testing. my $btaste = Film->new({ Title => 'Bad Taste', Director => 'Peter Jackson', Rating => 'R', NumExplodingSheep => 1 }); ok( defined($btaste) and ref $btaste eq 'Film', 'new() works' ); ok( $btaste->Title eq 'Bad Taste', 'Title() get' ); ok( $btaste->Director eq 'Peter Jackson', 'Director() get' ); ok( $btaste->Rating eq 'R', 'Rating() get' ); ok( $btaste->NumExplodingSheep == 1, 'NumExplodingSheep() get' ); It will produce output like this: 1..5 ok 1 - new() works ok 2 - Title() get ok 3 - Director() get not ok 4 - Rating() get # Failed test (t/film.t at line 14) ok 5 - NumExplodingSheep() get # Looks like you failed 1 tests of 5 Indicating the Film::Rating() method is broken. =head1 CAVEATS Test::Simple will only report a maximum of 254 failures in its exit code. If this is a problem, you probably have a huge test script. Split it into multiple files. (Otherwise blame the Unix folks for using an unsigned short integer as the exit status). Because VMS's exit codes are much, much different than the rest of the universe, and perl does horrible mangling to them that gets in my way, it works like this on VMS. 0 SS$_NORMAL all tests successful 4 SS$_ABORT something went wrong Unfortunately, I can't differentiate any further. =head1 NOTES Test::Simple is B<explicitly> tested all the way back to perl 5.004. Test::Simple is thread-safe in perl 5.8.0 and up. =head1 HISTORY This module was conceived while talking with Tony Bowden in his kitchen one night about the problems I was having writing some really complicated feature into the new Testing module. He observed that the main problem is not dealing with these edge cases but that people hate to write tests B<at all>. What was needed was a dead simple module that took all the hard work out of testing and was really, really easy to learn. Paul Johnson simultaneously had this idea (unfortunately, he wasn't in Tony's kitchen). This is it. =head1 SEE ALSO =over 4 =item L<Test::More> More testing functions! Once you outgrow Test::Simple, look at Test::More. Test::Simple is 100% forward compatible with Test::More (i.e. you can just use Test::More instead of Test::Simple in your programs and things will still work). =item L<Test> The original Perl testing module. =item L<Test::Unit> Elaborate unit testing. =item L<Test::Inline>, L<SelfTest> Embed tests in your code! =item L<Test::Harness> Interprets the output of your test program. =back =head1 AUTHORS Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern E<lt>sc...@po...E<gt>, wardrobe by Calvin Klein. =head1 COPYRIGHT Copyright 2001 by Michael G Schwern E<lt>sc...@po...E<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut 1; --- NEW FILE: More.pm --- package Test::More; use 5.004; use strict; use Test::Builder; # Can't use Carp because it might cause use_ok() to accidentally succeed # even though the module being used forgot to use Carp. Yes, this # actually happened. sub _carp { my($file, $line) = (caller(1))[1,2]; warn @_, " at $file line $line\n"; } require Exporter; [...1291 lines suppressed...] =head1 AUTHORS Michael G Schwern E<lt>sc...@po...E<gt> with much inspiration from Joshua Pritikin's Test module and lots of help from Barrie Slaymaker, Tony Bowden, blackstar.co.uk, chromatic and the perl-qa gang. =head1 COPYRIGHT Copyright 2001, 2002 by Michael G Schwern E<lt>sc...@po...E<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut 1; --- NEW FILE: Builder.pm --- package Test::Builder; use 5.004; # $^C was only introduced in 5.005-ish. We do this to prevent # use of uninitialized value warnings in older perls. $^C ||= 0; use strict; use vars qw($VERSION); $VERSION = '0.19'; my $IsVMS = $^O eq 'VMS'; # Make Test::Builder thread-safe for ithreads. BEGIN { use Config; # Load threads::shared when threads are turned on if( $] >= 5.008 && $Config{useithreads} && $INC{'threads.pm'}) { [...1460 lines suppressed...] Test::Simple, Test::More, Test::Harness =head1 AUTHORS Original code by chromatic, maintained by Michael G Schwern E<lt>sc...@po...E<gt> =head1 COPYRIGHT Copyright 2002 by chromatic E<lt>chr...@wg...E<gt>, Michael G Schwern E<lt>sc...@po...E<gt>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://www.perl.com/perl/misc/Artistic.html> =cut 1; |
|
From: Ken W. <kwi...@us...> - 2005-12-29 01:54:47
|
Update of /cvsroot/module-build/Module-Build/t/bundled/Test In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26891/bundled/Test Log Message: Directory /cvsroot/module-build/Module-Build/t/bundled/Test added to the repository |
|
From: Ken W. <kwi...@us...> - 2005-12-29 01:54:39
|
Update of /cvsroot/module-build/Module-Build/t/bundled In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26876/bundled Log Message: Directory /cvsroot/module-build/Module-Build/t/bundled added to the repository |
|
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; |
|
From: Ken W. <kwi...@us...> - 2005-12-29 01:45:21
|
Update of /cvsroot/module-build/Module-Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25745 Modified Files: Changes Log Message: Fix the loading from t/lib Index: Changes =================================================================== RCS file: /cvsroot/module-build/Module-Build/Changes,v retrieving revision 1.405 retrieving revision 1.406 diff -u -d -r1.405 -r1.406 --- Changes 23 Dec 2005 16:46:50 -0000 1.405 +++ Changes 29 Dec 2005 01:45:12 -0000 1.406 @@ -1,5 +1,12 @@ Revision history for Perl extension Module::Build. +0.27_05 + + - In t/common.pl, we were attempting to let the user's installed + Test::More take precedence over ours, but getting thwarted by all + the test scripts' loading Test::More beforehand. Fixed. [Spotted + by Yitzchak Scott-Thoennes] + 0.27_04 Fri Dec 23 10:43:34 CST 2005 - Removed experimental feature that extended the prerequisite system |
|
From: Ken W. <kwi...@us...> - 2005-12-23 16:53:00
|
Update of /cvsroot/module-build/Module-Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15709 Modified Files: MANIFEST MANIFEST.SKIP Log Message: Index: MANIFEST =================================================================== RCS file: /cvsroot/module-build/Module-Build/MANIFEST,v retrieving revision 1.49 retrieving revision 1.50 diff -u -d -r1.49 -r1.50 --- MANIFEST 11 Oct 2005 00:06:43 -0000 1.49 +++ MANIFEST 23 Dec 2005 16:52:50 -0000 1.50 @@ -48,6 +48,7 @@ t/notes.t t/parents.t t/pod_parser.t +t/ppm.t t/runthrough.t t/signature.t t/tilde.t Index: MANIFEST.SKIP =================================================================== RCS file: /cvsroot/module-build/Module-Build/MANIFEST.SKIP,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- MANIFEST.SKIP 11 Oct 2005 00:06:44 -0000 1.20 +++ MANIFEST.SKIP 23 Dec 2005 16:52:50 -0000 1.21 @@ -32,3 +32,4 @@ /Script$ ^META- Plugin +^doc_check.pl$ |
|
From: Ken W. <kwi...@us...> - 2005-12-23 16:46:59
|
Update of /cvsroot/module-build/Module-Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14513 Modified Files: Changes Log Message: Version bump Index: Changes =================================================================== RCS file: /cvsroot/module-build/Module-Build/Changes,v retrieving revision 1.404 retrieving revision 1.405 diff -u -d -r1.404 -r1.405 --- Changes 22 Dec 2005 01:46:59 -0000 1.404 +++ Changes 23 Dec 2005 16:46:50 -0000 1.405 @@ -1,6 +1,6 @@ Revision history for Perl extension Module::Build. -0.27_04 +0.27_04 Fri Dec 23 10:43:34 CST 2005 - Removed experimental feature that extended the prerequisite system to apply ('requires', 'recommends', and 'conflicts') prereqs to all |
|
From: Ken W. <kwi...@us...> - 2005-12-23 16:46:59
|
Update of /cvsroot/module-build/Module-Build/lib/Module In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14513/lib/Module Modified Files: Build.pm Log Message: Version bump Index: Build.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build.pm,v retrieving revision 1.205 retrieving revision 1.206 diff -u -d -r1.205 -r1.206 --- Build.pm 22 Dec 2005 01:46:59 -0000 1.205 +++ Build.pm 23 Dec 2005 16:46:50 -0000 1.206 @@ -15,7 +15,7 @@ use vars qw($VERSION @ISA); @ISA = qw(Module::Build::Base); -$VERSION = '0.27_03'; +$VERSION = '0.27_04'; $VERSION = eval $VERSION; # Okay, this is the brute-force method of finding out what kind of |
|
From: Ken W. <kwi...@us...> - 2005-12-22 01:47:07
|
Update of /cvsroot/module-build/Module-Build/lib/Module In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14212/lib/Module Modified Files: Build.pm Log Message: Clarify directory name Index: Build.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build.pm,v retrieving revision 1.204 retrieving revision 1.205 diff -u -d -r1.204 -r1.205 --- Build.pm 2 Dec 2005 12:12:21 -0000 1.204 +++ Build.pm 22 Dec 2005 01:46:59 -0000 1.205 @@ -289,11 +289,10 @@ =item distdir -Creates a directory called C<$(DISTNAME)-$(VERSION)> (if that -directory already exists, it will be removed first). Then copies all -the files listed in the F<MANIFEST> file to that directory. This -directory is what people will see when they download your distribution -and unpack it. +Creates a "distribution directory" named C<$dist_name-$dist_version> +(if that directory already exists, it will be removed first), then +copies all the files listed in the F<MANIFEST> file to that directory. +This directory is what the distribution tarball is created from. =item distmeta |
|
From: Ken W. <kwi...@us...> - 2005-12-22 01:47:07
|
Update of /cvsroot/module-build/Module-Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14212 Modified Files: Changes Log Message: Clarify directory name Index: Changes =================================================================== RCS file: /cvsroot/module-build/Module-Build/Changes,v retrieving revision 1.403 retrieving revision 1.404 diff -u -d -r1.403 -r1.404 --- Changes 2 Dec 2005 12:12:21 -0000 1.403 +++ Changes 22 Dec 2005 01:46:59 -0000 1.404 @@ -11,6 +11,9 @@ list of all prerequisites, the versions required, and the versions actually installed. [David Wheeler] + - Clarified the directory name that's created during the 'distdir' + action. [Suggested by Typler MacDonald] + - Fixed a bug when creating the META.yml file without the help of YAML.pm - some common strings weren't quoted & escaped properly. Now only some uncommon ones are. [Spotted by Joshua ben Jore] |
|
From: Randy W. S. <si...@us...> - 2005-12-14 23:30:34
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20449/lib/Module/Build Modified Files: Base.pm Log Message: Pod::Simple based parsers only support one document per instance. Recent versions of Pod::Man reveal this bug, resulting in empty manpages. This issue is known, and Pod::Simple will be fixed to allow multiple instances. Until then we create a new instance for each manpage. Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.538 retrieving revision 1.539 diff -u -d -r1.538 -r1.539 --- Base.pm 4 Dec 2005 09:50:13 -0000 1.538 +++ Base.pm 14 Dec 2005 23:30:25 -0000 1.539 @@ -2187,16 +2187,19 @@ sub manify_bin_pods { my $self = shift; - require Pod::Man; - my $parser = Pod::Man->new( section => 1 ); # binary manpages go in section 1 + my $files = $self->_find_pods( $self->{properties}{bindoc_dirs}, exclude => [ qr/\.bat$/ ] ); return unless keys %$files; - + my $mandir = File::Spec->catdir( $self->blib, 'bindoc' ); File::Path::mkpath( $mandir, 0, 0777 ); + require Pod::Man; foreach my $file (keys %$files) { + # Pod::Simple based parsers only support one document per instance. + # This is expected to change in a future version (Pod::Simple > 3.03). + my $parser = Pod::Man->new( section => 1 ); # binaries go in section 1 my $manpage = $self->man1page_name( $file ) . '.' . $self->config( 'man1ext' ); my $outfile = File::Spec->catfile($mandir, $manpage); @@ -2209,15 +2212,18 @@ sub manify_lib_pods { my $self = shift; - require Pod::Man; - my $parser = Pod::Man->new( section => 3 ); # library manpages go in section 3 + my $files = $self->_find_pods($self->{properties}{libdoc_dirs}); return unless keys %$files; - + my $mandir = File::Spec->catdir( $self->blib, 'libdoc' ); File::Path::mkpath( $mandir, 0, 0777 ); + require Pod::Man; while (my ($file, $relfile) = each %$files) { + # Pod::Simple based parsers only support one document per instance. + # This is expected to change in a future version (Pod::Simple > 3.03). + my $parser = Pod::Man->new( section => 3 ); # libraries go in section 3 my $manpage = $self->man3page_name( $relfile ) . '.' . $self->config( 'man3ext' ); my $outfile = File::Spec->catfile( $mandir, $manpage); |
|
From: Randy W. S. <si...@us...> - 2005-12-04 09:50:22
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11850/lib/Module/Build Modified Files: Base.pm Log Message: Since we chdir to the base of the distribution directory containing the Build.PL and Build script, we need only test againt the basename of the script used to invoke the build. Otherwise we are running up_to_date on Build.PL and an invalid path to the Build script. Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.537 retrieving revision 1.538 diff -u -d -r1.537 -r1.538 --- Base.pm 4 Dec 2005 07:41:39 -0000 1.537 +++ Base.pm 4 Dec 2005 09:50:13 -0000 1.538 @@ -1178,11 +1178,14 @@ use strict; use Cwd; +use File::Basename; use File::Spec; +my \$progname; my \$orig_dir; BEGIN { \$^W = 1; # Use warnings + \$progname = basename(\$0); \$orig_dir = Cwd::cwd(); my \$base_dir = '$q{base_dir}'; unless (chdir(\$base_dir)) { @@ -1200,7 +1203,7 @@ \$^X = Module::Build->find_perl_interpreter unless File::Spec->file_name_is_absolute(\$^X); -if (-e 'Build.PL' and not $build_package->up_to_date("Build.PL", \$0)) { +if (-e 'Build.PL' and not $build_package->up_to_date('Build.PL', \$progname)) { warn "Warning: Build.PL has been altered. You may need to run 'perl Build.PL' again.\\n"; } |
|
From: Randy W. S. <si...@us...> - 2005-12-04 08:48:19
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4584/t Modified Files: xs.t Log Message: The "base" module in Perl 5.005 doesn't seem to work as expected, so we manually require the modules and stuff them in @INC. Also, rename the sample ok() method to okay() to get rid of a reserved word warning. Index: xs.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- xs.t 27 Nov 2005 09:32:50 -0000 1.34 +++ xs.t 4 Dec 2005 08:48:09 -0000 1.35 @@ -61,7 +61,7 @@ like stdout_of( sub {$mb->run_perl_command([ '-Mblib', '-M'.$dist->name, - '-we', "print @{[$dist->name]}::ok()"])}), qr/ok$/; + '-we', "print @{[$dist->name]}::okay()"])}), qr/ok$/; like stdout_of( sub {$mb->run_perl_command([ '-Mblib', '-M'.$dist->name, @@ -172,7 +172,7 @@ MODULE = Simple PACKAGE = Simple SV * -ok() +okay() CODE: RETVAL = newSVpv( "ok", 0 ); OUTPUT: @@ -182,11 +182,13 @@ $dist->add_file( 'Simple.pm', <<"---" ); package Simple; -use base qw( Exporter DynaLoader ); - -use vars qw( \$VERSION \@EXPORT_OK ); \$VERSION = '0.01'; -\@EXPORT_OK = qw( ok ); + +require Exporter; +require DynaLoader; + +\@ISA = qw( Exporter DynaLoader ); +\@EXPORT_OK = qw( okay ); bootstrap Simple \$VERSION; @@ -215,7 +217,7 @@ use Simple; ok( 1 ); -ok( Simple::ok() eq 'ok' ); +ok( Simple::okay() eq 'ok' ); --- $dist->regen; |
|
From: Randy W. S. <si...@us...> - 2005-12-04 08:48:18
|
Update of /cvsroot/module-build/Module-Build/t/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4584/t/lib Modified Files: DistGen.pm Log Message: The "base" module in Perl 5.005 doesn't seem to work as expected, so we manually require the modules and stuff them in @INC. Also, rename the sample ok() method to okay() to get rid of a reserved word warning. Index: DistGen.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/lib/DistGen.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- DistGen.pm 29 Nov 2005 05:13:04 -0000 1.14 +++ DistGen.pm 4 Dec 2005 08:48:09 -0000 1.15 @@ -91,18 +91,20 @@ use strict; use $self->{name}; -ok( 1 ); +ok 1; --- } else { $self->add_file( $module_filename, <<"---" ) unless $self->{filedata}{$module_filename}; package $self->{name}; -use base qw( Exporter DynaLoader ); - -use vars qw( \$VERSION \@EXPORT_OK ); \$VERSION = '0.01'; -\@EXPORT_OK = qw( ok ); + +require Exporter; +require DynaLoader; + +\@ISA = qw(Exporter DynaLoader); +\@EXPORT_OK = qw( okay ); bootstrap $self->{name} \$VERSION; @@ -135,7 +137,7 @@ MODULE = $self->{name} PACKAGE = $self->{name} SV * -ok() +okay() CODE: RETVAL = newSVpv( "ok", 0 ); OUTPUT: @@ -161,9 +163,9 @@ use strict; use $self->{name}; -ok( 1 ); +ok 1; -ok( $self->{name}::ok() eq 'ok' ); +ok( $self->{name}::okay() eq 'ok' ); --- } } |
|
From: Randy W. S. <si...@us...> - 2005-12-04 07:41:47
|
Update of /cvsroot/module-build/Module-Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1679 Modified Files: Build.PL Log Message: Allow features to be enabled when 'recommends' type prereqs fail. I.e. a feature is only disabled when a 'requires' or 'conflicts' type prereq fails. Note that the full prereq specification is still stored in *::ConfigData, but any 'recommends' type prereqs are ignored. Index: Build.PL =================================================================== RCS file: /cvsroot/module-build/Module-Build/Build.PL,v retrieving revision 1.62 retrieving revision 1.63 diff -u -d -r1.62 -r1.63 --- Build.PL 2 Dec 2005 12:12:21 -0000 1.62 +++ Build.PL 4 Dec 2005 07:41:39 -0000 1.63 @@ -58,8 +58,8 @@ C_support => { description => "Can compile/link C & XS code", - requires => { 'ExtUtils::CBuilder' => 0.15, - 'ExtUtils::ParseXS' => 2.02, }, + requires => { 'ExtUtils::CBuilder' => 0.15, }, + recommends => { 'ExtUtils::ParseXS' => 1.02, }, }, manpage_support => { |
|
From: Randy W. S. <si...@us...> - 2005-12-04 07:41:47
|
Update of /cvsroot/module-build/Module-Build/lib/Module/Build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1679/lib/Module/Build Modified Files: Base.pm Notes.pm Log Message: Allow features to be enabled when 'recommends' type prereqs fail. I.e. a feature is only disabled when a 'requires' or 'conflicts' type prereq fails. Note that the full prereq specification is still stored in *::ConfigData, but any 'recommends' type prereqs are ignored. Index: Base.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v retrieving revision 1.536 retrieving revision 1.537 diff -u -d -r1.536 -r1.537 --- Base.pm 4 Dec 2005 03:11:55 -0000 1.536 +++ Base.pm 4 Dec 2005 07:41:39 -0000 1.537 @@ -404,19 +404,28 @@ if (@_) { my $key = shift; - if ($ph->{features}->exists($key)) { return $ph->{features}->access($key, @_) } + if ($ph->{features}->exists($key)) { + return $ph->{features}->access($key, @_); + } if (my $info = $ph->{auto_features}->access($key)) { - return not $self->prereq_failures($info); + my $failures = $self->prereq_failures($info); + my $disabled = grep( /^(?:\w+_)?(?:requires|conflicts)$/, + keys %$failures ) ? 1 : 0; + return !$disabled; } + return $ph->{features}->access($key, @_); } - + # No args - get the auto_features & overlay the regular features my %features; my %auto_features = $ph->{auto_features}->access(); while (my ($name, $info) = each %auto_features) { - $features{$name} = not $self->prereq_failures($info); + my $failures = $self->prereq_failures($info); + my $disabled = grep( /^(?:\w+_)?(?:requires|conflicts)$/, + keys %$failures ) ? 1 : 0; + $features{$name} = $disabled ? 0 : 1; } %features = (%features, $ph->{features}->access()); @@ -452,7 +461,10 @@ my $notes_name = $module_name . '::ConfigData'; # TODO: Customize name ??? my $notes_pm = File::Spec->catfile($self->blib, 'lib', split /::/, "$notes_name.pm"); - return if $self->up_to_date([$self->config_file('config_data'), $self->config_file('features')], $notes_pm); + return if $self->up_to_date(['Build.PL', + $self->config_file('config_data'), + $self->config_file('features') + ], $notes_pm); $self->log_info("Writing config notes to $notes_pm\n"); File::Path::mkpath(File::Basename::dirname($notes_pm)); @@ -887,11 +899,16 @@ $self->log_info(" $name" . '.' x ($max_name_len - length($name) + 4)); if ( my $failures = $self->prereq_failures($info) ) { - $self->log_info("disabled\n"); + my $disabled = grep( /^(?:\w+_)?(?:requires|conflicts)$/, + keys %$failures ) ? 1 : 0; + $self->log_info( $disabled ? "disabled\n" : "enabled\n" ); + my $log_text; - foreach my $type ( grep $failures->{$_}, @{$self->prereq_action_types} ) { - while (my ($module, $status) = each %{$failures->{$type}}) { - my $prefix = ($type =~ /^(?:\w+_)?recommends$/) ? '*' : '-'; + while (my ($type, $prereqs) = each %$failures) { + while (my ($module, $status) = each %$prereqs) { + my $required = + ($type =~ /^(?:\w+_)?(?:requires|conflicts)$/) ? 1 : 0; + my $prefix = ($required) ? '-' : '*'; $log_text .= " $prefix $status->{message}\n"; } } @@ -962,18 +979,18 @@ } # Check to see if there are any prereqs to check - my $prereqs = $self->_enum_prereqs; - return 1 unless $prereqs; + my $info = $self->_enum_prereqs; + return 1 unless $info; $self->log_info("Checking prerequisites...\n"); - my $failures = $self->prereq_failures($prereqs); + my $failures = $self->prereq_failures($info); if ( $failures ) { - foreach my $fail ( sort keys( %$failures ) ) { - while (my ($module, $status) = each %{$failures->{$fail}}) { - my $prefix = ($fail =~ /^(?:\w+_)?recommends$/) ? '*' : '- ERROR:'; + while (my ($type, $prereqs) = each %$failures) { + while (my ($module, $status) = each %$prereqs) { + my $prefix = ($type =~ /^(?:\w+_)?recommends$/) ? '*' : '- ERROR:'; $self->log_warn(" $prefix $status->{message}\n"); } } Index: Notes.pm =================================================================== RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Notes.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- Notes.pm 2 Dec 2005 12:12:21 -0000 1.9 +++ Notes.pm 4 Dec 2005 07:41:39 -0000 1.10 @@ -166,7 +166,7 @@ require Module::Build; # XXX should get rid of this while (my ($type, $prereqs) = each %%info) { - next if $type eq 'description'; + next if $type eq 'description' || $type eq 'recommends'; my %%p = %%$prereqs; # Ditto here. while (my ($modname, $spec) = each %%p) { |
