Commit | Line | Data |
3f7759c1 |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4c7e2bf4 |
4 | use Test::More tests => 22; |
3f7759c1 |
5 | use Test::Exception; |
6 | |
7 | require Class::MOP; |
8 | use lib 't/lib'; |
9 | |
10 | ok(!Class::MOP::is_class_loaded(), "is_class_loaded with no argument returns false"); |
11 | ok(!Class::MOP::is_class_loaded(''), "can't load the empty class"); |
12 | ok(!Class::MOP::is_class_loaded(\"foo"), "can't load a class name reference??"); |
13 | |
2c0fb064 |
14 | ok(!Class::MOP::_is_valid_class_name(undef), 'undef is not a valid class name'); |
15 | ok(!Class::MOP::_is_valid_class_name(''), 'empty string is not a valid class name'); |
16 | ok(!Class::MOP::_is_valid_class_name(\"foo"), 'a reference is not a valid class name'); |
17 | ok(!Class::MOP::_is_valid_class_name('bogus name'), q{'bogus name' is not a valid class name}); |
18 | ok(Class::MOP::_is_valid_class_name('Foo'), q{'Foo' is a valid class name}); |
19 | ok(Class::MOP::_is_valid_class_name('Foo::Bar'), q{'Foo::Bar' is a valid class name}); |
20 | ok(Class::MOP::_is_valid_class_name('Foo_::Bar2'), q{'Foo_::Bar2' is a valid class name}); |
b3b7a216 |
21 | throws_ok { Class::MOP::load_class('bogus name') } qr/Invalid class name \(bogus name\)/; |
3f7759c1 |
22 | |
07940968 |
23 | my $meta = Class::MOP::load_class('BinaryTree'); |
24 | ok($meta, "successfully loaded the class BinaryTree"); |
25 | is($meta->name, "BinaryTree", "load_class returns the metaclass"); |
3f7759c1 |
26 | can_ok('BinaryTree' => 'traverse'); |
27 | |
28 | do { |
29 | package Class; |
30 | sub method {} |
31 | }; |
32 | |
4c7e2bf4 |
33 | |
34 | my $ret = Class::MOP::load_class('Class'); |
35 | ok($ret, "this should not die!"); |
36 | is( $ret, "Class", "class name returned" ); |
37 | |
38 | ok( !Class::MOP::does_metaclass_exist("Class"), "no metaclass for non MOP class" ); |
3f7759c1 |
39 | |
40 | throws_ok { |
41 | Class::MOP::load_class('FakeClassOhNo'); |
42 | } qr/Can't locate /; |
43 | |
44 | throws_ok { |
45 | Class::MOP::load_class('SyntaxError'); |
46 | } qr/Missing right curly/; |
47 | |
9e275e86 |
48 | { |
49 | package Other; |
50 | use constant foo => "bar"; |
51 | } |
52 | |
b3b7a216 |
53 | lives_ok { |
2c0fb064 |
54 | ok(Class::MOP::is_class_loaded("Other"), 'is_class_loaded(Other)'); |
b3b7a216 |
55 | } |
56 | "a class with just constants is still a class"; |
4c7e2bf4 |
57 | |
58 | { |
59 | package Lala; |
60 | use metaclass; |
61 | } |
62 | |
63 | isa_ok( Class::MOP::load_class("Lala"), "Class::MOP::Class", "when an object has a metaclass it is returned" ); |