X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F101-meta-attribute.t;h=8143274d3628b62a576db5dadb2bf637181d7cdd;hb=8a3e5c5d45741e488e89d5130b5dcb44f2c6a6f4;hp=cef1e3a3acd992417a00fb869299b09fa9391d9b;hpb=93f088994c64a14d37d906a919c3d4e97b82f1ae;p=gitmo%2FMouse.git diff --git a/t/101-meta-attribute.t b/t/101-meta-attribute.t index cef1e3a..8143274 100644 --- a/t/101-meta-attribute.t +++ b/t/101-meta-attribute.t @@ -23,11 +23,11 @@ isa_ok($meta, 'Mouse::Meta::Class'); my $attr = $meta->get_attribute('pawn'); isa_ok($attr, 'Mouse::Meta::Attribute'); -can_ok($attr, qw(name class predicate clearer)); +can_ok($attr, qw(name associated_class predicate clearer)); is($attr->name, 'pawn', 'attribute name'); -is($attr->class, 'Class', 'attached class'); +is($attr->associated_class, Class->meta, 'associated_class'); is($attr->predicate, 'has_pawn', 'predicate'); is($attr->clearer, 'clear_pawn', 'clearer'); ok(!$attr->is_lazy_build, "not lazy_build"); is(ref($attr->default), 'CODE', 'default is a coderef'); -ok($attr->verify_type_constraint(1), 'verify_type_constraint works even without isa'); +ok($attr->verify_against_type_constraint(1), 'verify_against_type_constraint works even without isa');