1 ### Module::Load test suite ###
3 if( $ENV{PERL_CORE} ) {
4 chdir '../lib/Module/Load' if -d '../lib/Module/Load';
5 unshift @INC, '../../..';
9 BEGIN { chdir 't' if -d 't' }
12 use lib qw[../lib to_load];
14 use Test::More tests => 13;
18 my $mod = 'Must::Be::Loaded';
19 my $file = Module::Load::_to_file($mod,1);
23 is( $@, '', qq[Loading module '$mod'] );
24 ok( defined($INC{$file}), q[... found in %INC] );
28 my $mod = 'LoadMe.pl';
29 my $file = Module::Load::_to_file($mod);
33 is( $@, '', qq[Loading File '$mod'] );
34 ok( defined($INC{$file}), q[... found in %INC] );
39 my $file = Module::Load::_to_file($mod,1);
43 is( $@, '', qq[Loading Ambigious Module '$mod'] );
44 ok( defined($INC{$file}), q[... found in %INC] );
48 my $mod = 'ToBeLoaded';
49 my $file = Module::Load::_to_file($mod);
53 is( $@, '', qq[Loading Ambigious File '$mod'] );
54 ok( defined($INC{$file}), q[... found in %INC] );
57 ### Test importing functions ###
58 { my $mod = 'TestModule';
59 my @funcs = qw[func1 func2];
61 eval { load $mod, @funcs };
62 is( $@, '', qq[Loaded exporter module '$mod'] );
64 for my $func (@funcs) {
65 ok( $mod->can($func), "$mod -> can( $func )" );
66 ok( __PACKAGE__->can($func), "we -> can ( $func )" );