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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
use strict;
use warnings;
use FindBin;
use Test::More;
use Test::Exception;
use Class::Inspector;
use lib "$FindBin::Bin/lib";
plan tests => 25;
BEGIN {
package TestPackage::A;
sub some_method {}
}
use_ok('MyModule');
MyModule->load_components('Foo');
# Clear down inc so ppl dont mess us up with installing modules that we
# expect not to exist
#@INC = ();
# This breaks Carp1.08/perl 5.10.0; bah
throws_ok { MyModule->load_components('+ClassC3ComponentFooThatShouldntExist'); } qr/^Can't locate ClassC3ComponentFooThatShouldntExist.pm in \@INC/;
is(MyModule->new->message, "Foo MyModule", "it worked");
ok( MyModule->ensure_class_found('MyModule::Plugin::Foo'),
'loaded package MyModule::Plugin::Foo was found' );
ok( !Class::Inspector->loaded('MyModule::OwnComponent'),
'MyModule::OwnComponent not loaded yet' );
ok( MyModule->ensure_class_found('MyModule::OwnComponent'),
'package MyModule::OwnComponent was found' );
ok( !Class::Inspector->loaded('MyModule::OwnComponent'),
'MyModule::OwnComponent not loaded by ensure_class_found()' );
ok( MyModule->ensure_class_found('TestPackage::A'),
'anonymous package TestPackage::A found' );
ok( !MyModule->ensure_class_found('FAKE::WONT::BE::FOUND'),
'fake package not found' );
# Test load_optional_class
my $retval = eval { MyModule->load_optional_class('ANOTHER::FAKE::PACKAGE') };
ok( !$@, 'load_optional_class on a nonexistent class did not throw' );
ok( !$retval, 'nonexistent package not loaded' );
$retval = eval { MyModule->load_optional_class('MyModule::OwnComponent') };
ok( !$@, 'load_optional_class on an existing class did not throw' );
ok( $retval, 'MyModule::OwnComponent loaded' );
throws_ok (
sub { MyModule->load_optional_class('MyModule::ErrorComponent') },
qr/did not return a true value/,
'MyModule::ErrorComponent threw ok'
);
eval { MyModule->load_optional_class('ENDS::WITH::COLONS::') };
like( $@, qr/Invalid class name 'ENDS::WITH::COLONS::'/, 'Throw on Class::' );
# Simulate a PAR environment
{
my @code;
local @INC = @INC;
unshift @INC, sub {
if ($_[1] =~ m{^VIRTUAL/PAR/PACKAGE[0-9]*\.pm$}) {
return (sub { return 0 unless @code; $_ = shift @code; 1; } );
}
else {
return ();
}
};
$retval = eval { MyModule->load_optional_class('FAKE::PAR::PACKAGE') };
ok( !$@, 'load_optional_class on a nonexistent PAR class did not throw' );
ok( !$retval, 'nonexistent PAR package not loaded' );
# simulate a class which does load but does not return true
@code = (
q/package VIRTUAL::PAR::PACKAGE1;/,
q/0;/,
);
$retval = eval { MyModule->load_optional_class('VIRTUAL::PAR::PACKAGE1') };
ok( $@, 'load_optional_class of a no-true-returning PAR module did throw' );
ok( !$retval, 'no-true-returning PAR package not loaded' );
# simulate a normal class
@code = (
q/package VIRTUAL::PAR::PACKAGE2;/,
q/1;/,
);
$retval = eval { MyModule->load_optional_class('VIRTUAL::PAR::PACKAGE2') };
ok( !$@, 'load_optional_class of a PAR module did not throw' );
ok( $retval, 'PAR package "loaded"' );
# see if we can still load stuff with the coderef present
$retval = eval { MyModule->load_optional_class('AnotherModule') };
ok( !$@, 'load_optional_class did not throw' ) || diag $@;
ok( $retval, 'AnotherModule loaded' );
@code = (
q/package VIRTUAL::PAR::PACKAGE3;/,
q/1;/,
);
$retval = eval { MyModule->ensure_class_found('VIRTUAL::PAR::PACKAGE3') };
ok( !$@, 'ensure_class_found of a PAR module did not throw' );
ok( $retval, 'PAR package "found"' );
}
|
