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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 7;
BEGIN {
use_ok('metaclass');
}
# meta classes
{
package Foo::Meta::Instance;
use base 'Class::MOP::Instance';
package Bar::Meta::Instance;
use base 'Class::MOP::Instance';
package FooBar::Meta::Instance;
use base 'Foo::Meta::Instance', 'Bar::Meta::Instance';
}
$@ = undef;
eval {
package Foo;
metaclass->import(':instance_metaclass' => 'Foo::Meta::Instance');
};
ok(!$@, '... Foo.meta => Foo::Meta is compatible') || diag $@;
$@ = undef;
eval {
package Bar;
metaclass->import(':instance_metaclass' => 'Bar::Meta::Instance');
};
ok(!$@, '... Bar.meta => Bar::Meta is compatible') || diag $@;
$@ = undef;
eval {
package Foo::Foo;
metaclass->import(':instance_metaclass' => 'Bar::Meta::Instance');
Foo::Foo->meta->superclasses('Foo');
};
ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
$@ = undef;
eval {
package Bar::Bar;
metaclass->import(':instance_metaclass' => 'Foo::Meta::Instance');
Bar::Bar->meta->superclasses('Bar');
};
ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
$@ = undef;
eval {
package FooBar;
metaclass->import(':instance_metaclass' => 'FooBar::Meta::Instance');
FooBar->meta->superclasses('Foo');
};
ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
$@ = undef;
eval {
package FooBar2;
metaclass->import(':instance_metaclass' => 'FooBar::Meta::Instance');
FooBar2->meta->superclasses('Bar');
};
ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
|
