1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
### Module::Load test suite ###
BEGIN { chdir 't' if -d 't' }
use strict;
use lib qw[../lib to_load];
use Module::Load;
use Test::More tests => 13;
{
my $mod = 'Must::Be::Loaded';
my $file = Module::Load::_to_file($mod,1);
eval { load $mod };
is( $@, '', qq[Loading module '$mod'] );
ok( defined($INC{$file}), q[... found in %INC] );
}
{
my $mod = 'LoadMe.pl';
my $file = Module::Load::_to_file($mod);
eval { load $mod };
is( $@, '', qq[Loading File '$mod'] );
ok( defined($INC{$file}), q[... found in %INC] );
}
{
my $mod = 'LoadIt';
my $file = Module::Load::_to_file($mod,1);
eval { load $mod };
is( $@, '', qq[Loading Ambigious Module '$mod'] );
ok( defined($INC{$file}), q[... found in %INC] );
}
{
my $mod = 'ToBeLoaded';
my $file = Module::Load::_to_file($mod);
eval { load $mod };
is( $@, '', qq[Loading Ambigious File '$mod'] );
ok( defined($INC{$file}), q[... found in %INC] );
}
### Test importing functions ###
{ my $mod = 'TestModule';
my @funcs = qw[func1 func2];
eval { load $mod, @funcs };
is( $@, '', qq[Loaded exporter module '$mod'] );
for my $func (@funcs) {
ok( $mod->can($func), "$mod -> can( $func )" );
ok( __PACKAGE__->can($func), "we -> can ( $func )" );
}
}
|
