Commit | Line | Data |
3f7759c1 |
1 | use strict; |
2 | use warnings; |
86a4d873 |
3 | use Test::More; |
13b8971f |
4 | use Test::Fatal; |
3f7759c1 |
5 | |
6 | require Class::MOP; |
7 | use lib 't/lib'; |
8 | |
13b8971f |
9 | ok exception { |
bd0ad278 |
10 | Class::MOP::is_class_loaded() |
13b8971f |
11 | }, "is_class_loaded with no argument dies"; |
bd0ad278 |
12 | |
3f7759c1 |
13 | ok(!Class::MOP::is_class_loaded(''), "can't load the empty class"); |
14 | ok(!Class::MOP::is_class_loaded(\"foo"), "can't load a class name reference??"); |
15 | |
2c0fb064 |
16 | ok(!Class::MOP::_is_valid_class_name(undef), 'undef is not a valid class name'); |
17 | ok(!Class::MOP::_is_valid_class_name(''), 'empty string is not a valid class name'); |
18 | ok(!Class::MOP::_is_valid_class_name(\"foo"), 'a reference is not a valid class name'); |
19 | ok(!Class::MOP::_is_valid_class_name('bogus name'), q{'bogus name' is not a valid class name}); |
20 | ok(Class::MOP::_is_valid_class_name('Foo'), q{'Foo' is a valid class name}); |
21 | ok(Class::MOP::_is_valid_class_name('Foo::Bar'), q{'Foo::Bar' is a valid class name}); |
22 | ok(Class::MOP::_is_valid_class_name('Foo_::Bar2'), q{'Foo_::Bar2' is a valid class name}); |
13b8971f |
23 | like exception { Class::MOP::load_class('bogus name') }, qr/Invalid class name \(bogus name\)/; |
3f7759c1 |
24 | |
13b8971f |
25 | like exception { |
9bbf7fe2 |
26 | Class::MOP::load_class('__PACKAGE__') |
13b8971f |
27 | }, qr/__PACKAGE__\.pm.*\@INC/, 'errors sanely on __PACKAGE__.pm'; |
9bbf7fe2 |
28 | |
7716a8f9 |
29 | Class::MOP::load_class('BinaryTree'); |
3f7759c1 |
30 | can_ok('BinaryTree' => 'traverse'); |
31 | |
32 | do { |
33 | package Class; |
34 | sub method {} |
35 | }; |
36 | |
4c7e2bf4 |
37 | |
7716a8f9 |
38 | { |
39 | local $@; |
40 | eval { Class::MOP::load_class('Class') }; |
9914477f |
41 | ok( ! $@, 'load_class does not die if the package is already defined' ); |
7716a8f9 |
42 | } |
4c7e2bf4 |
43 | |
44 | ok( !Class::MOP::does_metaclass_exist("Class"), "no metaclass for non MOP class" ); |
3f7759c1 |
45 | |
13b8971f |
46 | like exception { |
3f7759c1 |
47 | Class::MOP::load_class('FakeClassOhNo'); |
13b8971f |
48 | }, |
202ccce0 |
49 | qr/Can't locate /; |
3f7759c1 |
50 | |
13b8971f |
51 | like exception { |
3f7759c1 |
52 | Class::MOP::load_class('SyntaxError'); |
13b8971f |
53 | }, |
202ccce0 |
54 | qr/Missing right curly/; |
3f7759c1 |
55 | |
13b8971f |
56 | like exception { |
44da14be |
57 | delete $INC{'SyntaxError.pm'}; |
58 | Class::MOP::load_first_existing_class( |
59 | 'FakeClassOhNo', 'SyntaxError', 'Class' |
60 | ); |
13b8971f |
61 | }, |
2beec805 |
62 | qr/Missing right curly/, |
44da14be |
63 | 'load_first_existing_class does not pass over an existing (bad) module'; |
64 | |
13b8971f |
65 | like exception { |
fea44045 |
66 | Class::MOP::load_class('This::Does::Not::Exist'); |
13b8971f |
67 | }, |
a02f24cb |
68 | qr{Can't locate This/Does/Not/Exist\.pm in \@INC}, |
69 | 'load_first_existing_class throws a familiar error for a single module'; |
fea44045 |
70 | |
9e275e86 |
71 | { |
72 | package Other; |
73 | use constant foo => "bar"; |
74 | } |
75 | |
13b8971f |
76 | ok ! exception { |
2c0fb064 |
77 | ok(Class::MOP::is_class_loaded("Other"), 'is_class_loaded(Other)'); |
13b8971f |
78 | }, |
b3b7a216 |
79 | "a class with just constants is still a class"; |
4c7e2bf4 |
80 | |
81 | { |
82 | package Lala; |
83 | use metaclass; |
84 | } |
85 | |
13b8971f |
86 | ok ! exception { |
1d8153bd |
87 | is(Class::MOP::load_first_existing_class("Lala", "Does::Not::Exist"), "Lala", 'load_first_existing_class 1/2 params ok, class name returned'); |
88 | is(Class::MOP::load_first_existing_class("Does::Not::Exist", "Lala"), "Lala", 'load_first_existing_class 2/2 params ok, class name returned'); |
13b8971f |
89 | }, 'load_classes works'; |
1d8153bd |
90 | |
13b8971f |
91 | like exception { |
063ad0c5 |
92 | Class::MOP::load_first_existing_class("Does::Not::Exist", "Also::Does::Not::Exist") |
13b8971f |
93 | }, qr/Does::Not::Exist.*Also::Does::Not::Exist/s, 'Multiple non-existant classes cause exception'; |
5a24cf8a |
94 | |
b8575233 |
95 | { |
96 | sub whatever { |
97 | TestClassLoaded::this_method_does_not_even_exist(); |
98 | } |
99 | |
100 | ok( ! Class::MOP::is_class_loaded('TestClassLoaded'), |
101 | 'the mere mention of TestClassLoaded in the whatever sub does not make us think it has been loaded' ); |
102 | } |
5a24cf8a |
103 | |
7f820be6 |
104 | { |
105 | require TestClassLoaded::Sub; |
106 | ok( ! Class::MOP::is_class_loaded('TestClassLoaded'), |
107 | 'requiring TestClassLoaded::Sub does not make us think TestClassLoaded is loaded' ); |
108 | } |
109 | |
110 | { |
111 | require TestClassLoaded; |
112 | ok( Class::MOP::is_class_loaded('TestClassLoaded'), |
113 | 'We see that TestClassLoaded is loaded after requiring it (it has methods but no $VERSION or @ISA)' ); |
114 | } |
115 | |
116 | { |
117 | require TestClassLoaded2; |
118 | ok( Class::MOP::is_class_loaded('TestClassLoaded2'), |
119 | 'We see that TestClassLoaded2 is loaded after requiring it (it has a $VERSION but no methods or @ISA)' ); |
120 | } |
121 | |
122 | { |
123 | require TestClassLoaded3; |
124 | ok( Class::MOP::is_class_loaded('TestClassLoaded3'), |
125 | 'We see that TestClassLoaded3 is loaded after requiring it (it has an @ISA but no methods or $VERSION)' ); |
126 | } |
d9d8a21b |
127 | |
128 | { |
129 | { |
130 | package Not::Loaded; |
131 | our @ISA; |
132 | } |
133 | |
134 | ok( ! Class::MOP::is_class_loaded('Not::Loaded'), |
135 | 'the mere existence of an @ISA for a package does not mean a class is loaded' ); |
136 | } |
137 | |
138 | { |
139 | { |
140 | package Loaded::Ish; |
141 | our @ISA = 'Foo'; |
142 | } |
143 | |
144 | ok( Class::MOP::is_class_loaded('Loaded::Ish'), |
145 | 'an @ISA with members does mean a class is loaded' ); |
146 | } |
147 | |
4154c4d0 |
148 | { |
149 | { |
150 | package Class::WithVersion; |
151 | our $VERSION = 23; |
152 | }; |
153 | |
154 | ok( Class::MOP::is_class_loaded('Class::WithVersion', { -version => 13 }), |
155 | 'version 23 satisfies version requirement 13' ); |
156 | |
157 | ok( !Class::MOP::is_class_loaded('Class::WithVersion', { -version => 42 }), |
158 | 'version 23 does not satisfy version requirement 42' ); |
159 | |
13b8971f |
160 | like exception { |
4154c4d0 |
161 | Class::MOP::load_first_existing_class('Affe', 'Tiger', 'Class::WithVersion' => { -version => 42 }); |
13b8971f |
162 | }, qr/Class::WithVersion version 42 required--this is only version 23/, |
4154c4d0 |
163 | 'load_first_existing_class gives correct exception on old version'; |
164 | |
13b8971f |
165 | ok ! exception { |
4154c4d0 |
166 | Class::MOP::load_first_existing_class('Affe', 'Tiger', 'Class::WithVersion' => { -version => 13 }); |
13b8971f |
167 | }, 'loading class with required version with load_first_existing_class'; |
4154c4d0 |
168 | |
13b8971f |
169 | like exception { |
4154c4d0 |
170 | Class::MOP::load_class('Class::WithVersion' => { -version => 42 }); |
13b8971f |
171 | }, qr/Class::WithVersion version 42 required--this is only version 23/, |
4154c4d0 |
172 | 'load_class gives correct exception on old version'; |
173 | |
13b8971f |
174 | ok ! exception { |
4154c4d0 |
175 | Class::MOP::load_class('Class::WithVersion' => { -version => 13 }); |
13b8971f |
176 | }, 'loading class with required version with load_class'; |
4154c4d0 |
177 | |
178 | } |
179 | |
86a4d873 |
180 | done_testing; |