6 use Test::More tests => 24;
19 sub bar { 'Foo::bar' }
25 my $anon_class = Class::MOP::Class->create_anon_class();
26 isa_ok($anon_class, 'Class::MOP::Class');
28 ($anon_class_id) = ($anon_class->name =~ /Class::MOP::Class::__ANON__::SERIAL::(\d+)/);
30 ok(exists $main::Class::MOP::Class::__ANON__::SERIAL::{$anon_class_id . '::'}, '... the package exists');
31 like($anon_class->name, qr/Class::MOP::Class::__ANON__::SERIAL::[0-9]+/, '... got an anon class package name');
34 [$anon_class->superclasses],
36 '... got an empty superclass list');
38 $anon_class->superclasses('Foo');
39 } '... can add a superclass to anon class';
41 [$anon_class->superclasses],
43 '... got the right superclass list');
45 ok(!$anon_class->has_method('foo'), '... no foo method');
47 $anon_class->add_method('foo' => sub { "__ANON__::foo" });
48 } '... added a method to my anon-class';
49 ok($anon_class->has_method('foo'), '... we have a foo method now');
51 $instance = $anon_class->new_object();
52 isa_ok($instance, $anon_class->name);
53 isa_ok($instance, 'Foo');
55 is($instance->foo, '__ANON__::foo', '... got the right return value of our foo method');
56 is($instance->bar, 'Foo::bar', '... got the right return value of our bar method');
59 ok(!exists $main::Class::MOP::Class::__ANON__::SERIAL::{$anon_class_id . '::'}, '... the package no longer exists');
61 # the superclass relationship actually
62 # still exists for the instance ...
63 isa_ok($instance, 'Foo');
65 # and oddly enough we can still
66 # call methods on our instance
67 can_ok($instance, 'foo');
68 can_ok($instance, 'bar');
70 is($instance->foo, '__ANON__::foo', '... got the right return value of our foo method');
71 is($instance->bar, 'Foo::bar', '... got the right return value of our bar method');
73 # but it breaks down when we try to create another one ...
75 my $instance_2 = bless {} => ref($instance);
76 isa_ok($instance_2, ref($instance));
77 ok(!$instance_2->isa('Foo'), '... but the new instance is not a Foo');
78 ok(!$instance_2->can('foo'), '... and it can no longer call the foo method');
81 # I bumped this test up to 100_000 instances, and
82 # still got not conflicts. If your application needs
83 # more than that, your probably mst
86 foreach my $i (1 .. 100) {
87 $conflicts{ Class::MOP::Class->create_anon_class()->name } = undef;
89 is(scalar(keys %conflicts), 100, '... got as many classes as I would expect');