6 use Test::More tests => 33;
13 my $FOO_ATTR = Class::MOP::Attribute->new('$foo');
14 my $BAR_ATTR = Class::MOP::Attribute->new('$bar' => (
17 my $BAZ_ATTR = Class::MOP::Attribute->new('$baz' => (
28 $meta->add_attribute($FOO_ATTR);
29 } '... we added an attribute to Foo successfully';
30 ::ok($meta->has_attribute('$foo'), '... Foo has $foo attribute');
31 ::is($meta->get_attribute('$foo'), $FOO_ATTR, '... got the right attribute back for Foo');
33 ::ok(!$meta->has_method('foo'), '... no accessor created');
41 $meta->add_attribute($BAR_ATTR);
42 } '... we added an attribute to Bar successfully';
43 ::ok($meta->has_attribute('$bar'), '... Bar has $bar attribute');
44 ::is($meta->get_attribute('$bar'), $BAR_ATTR, '... got the right attribute back for Bar');
46 ::ok($meta->has_method('bar'), '... an accessor has been created');
47 ::isa_ok($meta->get_method('bar'), 'Class::MOP::Attribute::Accessor');
55 $meta->add_attribute($BAZ_ATTR);
56 } '... we added an attribute to Baz successfully';
57 ::ok($meta->has_attribute('$baz'), '... Baz has $baz attribute');
58 ::is($meta->get_attribute('$baz'), $BAZ_ATTR, '... got the right attribute back for Baz');
60 ::ok($meta->has_method('get_baz'), '... a reader has been created');
61 ::ok($meta->has_method('set_baz'), '... a writer has been created');
63 ::isa_ok($meta->get_method('get_baz'), 'Class::MOP::Attribute::Accessor');
64 ::isa_ok($meta->get_method('set_baz'), 'Class::MOP::Attribute::Accessor');
69 isa_ok($meta, 'Class::MOP::Class');
72 [ sort { $a->name cmp $b->name } $meta->compute_all_applicable_attributes() ],
78 '... got the right list of applicable attributes for Baz');
81 [ map { $_->associated_class } sort { $a->name cmp $b->name } $meta->compute_all_applicable_attributes() ],
82 [ Bar->meta, Baz->meta, Foo->meta ],
83 '... got the right list of associated classes from the applicable attributes for Baz');
87 $attr = $meta->remove_attribute('$baz');
88 } '... removed the $baz attribute successfully';
89 is($attr, $BAZ_ATTR, '... got the right attribute back for Baz');
91 ok(!$meta->has_attribute('$baz'), '... Baz no longer has $baz attribute');
93 ok(!$meta->has_method('get_baz'), '... a reader has been removed');
94 ok(!$meta->has_method('set_baz'), '... a writer has been removed');
97 [ sort { $a->name cmp $b->name } $meta->compute_all_applicable_attributes() ],
102 '... got the right list of applicable attributes for Baz');
105 [ map { $_->associated_class } sort { $a->name cmp $b->name } $meta->compute_all_applicable_attributes() ],
106 [ Bar->meta, Foo->meta ],
107 '... got the right list of associated classes from the applicable attributes for Baz');
112 $attr = Bar->meta->remove_attribute('$bar');
113 } '... removed the $bar attribute successfully';
114 is($attr, $BAR_ATTR, '... got the right attribute back for Bar');
116 ok(!Bar->meta->has_attribute('$bar'), '... Bar no longer has $bar attribute');
118 ok(!Bar->meta->has_method('bar'), '... a accessor has been removed');
122 [ sort { $a->name cmp $b->name } $meta->compute_all_applicable_attributes() ],
126 '... got the right list of applicable attributes for Baz');
129 [ map { $_->associated_class } sort { $a->name cmp $b->name } $meta->compute_all_applicable_attributes() ],
131 '... got the right list of associated classes from the applicable attributes for Baz');