diff options
Diffstat (limited to 't/cmop/metaclass_loads_classes.t')
-rw-r--r-- | t/cmop/metaclass_loads_classes.t | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/t/cmop/metaclass_loads_classes.t b/t/cmop/metaclass_loads_classes.t new file mode 100644 index 0000000..9c0fa01 --- /dev/null +++ b/t/cmop/metaclass_loads_classes.t @@ -0,0 +1,38 @@ +use strict; +use warnings; + +use Test::More; + +use Class::Load qw(is_class_loaded); + +use lib 't/cmop/lib'; + +{ + package Foo; + + use strict; + use warnings; + + use metaclass 'MyMetaClass' => ( + 'attribute_metaclass' => 'MyMetaClass::Attribute', + 'instance_metaclass' => 'MyMetaClass::Instance', + 'method_metaclass' => 'MyMetaClass::Method', + 'random_metaclass' => 'MyMetaClass::Random', + ); +} + +my $meta = Foo->meta; + +isa_ok($meta, 'MyMetaClass', '... Correct metaclass'); +ok(is_class_loaded('MyMetaClass'), '... metaclass loaded'); + +is($meta->attribute_metaclass, 'MyMetaClass::Attribute', '... Correct attribute metaclass'); +ok(is_class_loaded('MyMetaClass::Attribute'), '... attribute metaclass loaded'); + +is($meta->instance_metaclass, 'MyMetaClass::Instance', '... Correct instance metaclass'); +ok(is_class_loaded('MyMetaClass::Instance'), '... instance metaclass loaded'); + +is($meta->method_metaclass, 'MyMetaClass::Method', '... Correct method metaclass'); +ok(is_class_loaded('MyMetaClass::Method'), '... method metaclass loaded'); + +done_testing; |