In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/58572ed82f6c0a15ad935d2628e9196804bb0449?hp=3e63bed3c572617faf16446e7b44b5ea0b78e979>
- Log ----------------------------------------------------------------- commit 58572ed82f6c0a15ad935d2628e9196804bb0449 Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk> Date: Thu Feb 20 23:31:43 2014 +0000 Update Module-Load to CPAN version 0.32 [DELTA] 0.32 Thu Feb 20 22:53:19 GMT 2014 * Fix tests to support statically built perls ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Module-Load/lib/Module/Load.pm | 2 +- cpan/Module-Load/t/02_Module-Load.t | 99 ++++++++++++++++++++----------------- 3 files changed, 55 insertions(+), 48 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 81ce86f..43188f1 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -819,7 +819,7 @@ use File::Glob qw(:case); }, 'Module::Load' => { - 'DISTRIBUTION' => 'BINGOS/Module-Load-0.30.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Module-Load-0.32.tar.gz', 'FILES' => q[cpan/Module-Load], }, diff --git a/cpan/Module-Load/lib/Module/Load.pm b/cpan/Module-Load/lib/Module/Load.pm index bcab454..9e69f83 100644 --- a/cpan/Module-Load/lib/Module/Load.pm +++ b/cpan/Module-Load/lib/Module/Load.pm @@ -1,6 +1,6 @@ package Module::Load; -$VERSION = '0.30'; +$VERSION = '0.32'; use strict; use warnings; diff --git a/cpan/Module-Load/t/02_Module-Load.t b/cpan/Module-Load/t/02_Module-Load.t index 2f33bfe..2565f26 100644 --- a/cpan/Module-Load/t/02_Module-Load.t +++ b/cpan/Module-Load/t/02_Module-Load.t @@ -3,6 +3,7 @@ use Test::More; use strict; use warnings; +use Config; # # Module::Load; test new features: @@ -74,16 +75,6 @@ subtest 'load/prevcompat' => sub{ Data::Dumper->Dump([$WORLD]);'); is_peace_in_world(); - _test('use Module::Load; - load("Data::Dumper","Dumper","DumperX"); - Data::Dumper->Dump([$WORLD]);'); - is_peace_in_world(); - - _test('use Module::Load "all"; - load("Data::Dumper","Dumper","DumperX"); - DumperX([$WORLD]);'); - is_peace_in_world(); - _test('use Module::Load "all"; load("______");'); cant_locate(); @@ -127,11 +118,6 @@ subtest 'autoload' => sub{ Dumper($WORLD);'); is_peace_in_world(); - _test('use Module::Load; - Module::Load::autoload("Data::Dumper","Dumper","DumperX"); - DumperX($WORLD);'); - is_peace_in_world(); - _test('use Module::Load "autoload"; autoload("Data::Dumper"); Dumper($WORLD);'); @@ -143,11 +129,6 @@ subtest 'autoload' => sub{ is_peace_in_world(); _test('use Module::Load "all"; - autoload("Data::Dumper","Dumper","DumperX"); - DumperX($WORLD);'); - is_peace_in_world(); - - _test('use Module::Load "all"; autoload("______");'); cant_locate(); @@ -220,21 +201,6 @@ subtest 'load_remote' => sub{ XYZ::Module::Dumper($WORLD);'); is_peace_in_world(); - _test('use Module::Load; - Module::Load::load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); - XYZ::Module::Dumper($WORLD);'); - is_peace_in_world(); - - _test('use Module::Load "load_remote"; - load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); - XYZ::Module::Dumper($WORLD);'); - is_peace_in_world(); - - _test('use Module::Load "all"; - load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); - XYZ::Module::Dumper($WORLD);'); - is_peace_in_world(); - _test('use Module::Load "all"; load_remote("XYZ::Module","______","Data::Dumper"); XYZ::Module::Dumper($WORLD);'); @@ -264,16 +230,6 @@ subtest 'autoload_remote' => sub{ XYZ::Module::Dumper($WORLD);'); is_peace_in_world(); - _test('use Module::Load; - Module::Load::autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); - XYZ::Module::DumperX($WORLD);'); - is_peace_in_world(); - - _test('use Module::Load "autoload_remote"; - autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); - XYZ::Module::Dumper($WORLD);'); - is_peace_in_world(); - _test('use Module::Load "all"; autoload_remote("XYZ::Module","______","Data::Dumper"); XYZ::Module::Dumper($WORLD);'); @@ -303,7 +259,6 @@ subtest 'complex' => sub{ Data::Dumper->Dump([$WORLD]);'); isnt_def_sub(); - _test('use Module::Load "load","autoload"; load("Data::Dumper", "Dumper"); autoload("Carp"); @@ -346,5 +301,57 @@ subtest 'complex' => sub{ done_testing(); }; +subtest 'dumpxs' => sub{ + unless ( $Config::Config{usedl} ) { + plan skip_all => 'Statically linked perl'; + } + _test('use Module::Load; + load("Data::Dumper","Dumper","DumperX"); + Data::Dumper->Dump([$WORLD]);'); + is_peace_in_world(); + + _test('use Module::Load "all"; + load("Data::Dumper","Dumper","DumperX"); + DumperX([$WORLD]);'); + is_peace_in_world(); + + _test('use Module::Load; + Module::Load::autoload("Data::Dumper","Dumper","DumperX"); + DumperX($WORLD);'); + is_peace_in_world(); + + _test('use Module::Load "all"; + autoload("Data::Dumper","Dumper","DumperX"); + DumperX($WORLD);'); + is_peace_in_world(); + + _test('use Module::Load; + Module::Load::load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); + XYZ::Module::Dumper($WORLD);'); + is_peace_in_world(); + + _test('use Module::Load "load_remote"; + load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); + XYZ::Module::Dumper($WORLD);'); + is_peace_in_world(); + + _test('use Module::Load "all"; + load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); + XYZ::Module::Dumper($WORLD);'); + is_peace_in_world(); + + _test('use Module::Load; + Module::Load::autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); + XYZ::Module::DumperX($WORLD);'); + is_peace_in_world(); + + _test('use Module::Load "autoload_remote"; + autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX"); + XYZ::Module::Dumper($WORLD);'); + is_peace_in_world(); + + done_testing(); +}; + done_testing(); -- Perl5 Master Repository