summaryrefslogtreecommitdiff
path: root/cpan/Module-Load
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2014-02-20 23:31:43 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2014-02-20 23:31:43 +0000
commit58572ed82f6c0a15ad935d2628e9196804bb0449 (patch)
treed2de0a0e531ae5e316bdeeb8d0d6affee118e689 /cpan/Module-Load
parent3e63bed3c572617faf16446e7b44b5ea0b78e979 (diff)
downloadperl-58572ed82f6c0a15ad935d2628e9196804bb0449.tar.gz
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
Diffstat (limited to 'cpan/Module-Load')
-rw-r--r--cpan/Module-Load/lib/Module/Load.pm2
-rw-r--r--cpan/Module-Load/t/02_Module-Load.t99
2 files changed, 54 insertions, 47 deletions
diff --git a/cpan/Module-Load/lib/Module/Load.pm b/cpan/Module-Load/lib/Module/Load.pm
index bcab45435a..9e69f83230 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 2f33bfe831..2565f262f8 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();