X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F101-meta-attribute.t;h=6986fd41cdfee75339ad498b9d9371cbe9674943;hb=306290e864ac23e5f1692c8495b0c173081a1ebb;hp=ecb1eb123bde3c1bdb475897dfbe5a3ad5af5a85;hpb=fb706f5c1e60ddafe873717be7209066d47b8998;p=gitmo%2FMouse.git diff --git a/t/101-meta-attribute.t b/t/101-meta-attribute.t index ecb1eb1..6986fd4 100644 --- a/t/101-meta-attribute.t +++ b/t/101-meta-attribute.t @@ -1,7 +1,7 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 8; +use Test::More tests => 9; do { package Class; @@ -18,10 +18,10 @@ do { }; my $meta = Class->meta; -isa_ok($meta, 'Mouse::Class'); +isa_ok($meta, 'Mouse::Meta::Class'); my $attr = $meta->get_attribute('pawn'); -isa_ok($attr, 'Mouse::Attribute'); +isa_ok($attr, 'Mouse::Meta::Attribute'); can_ok($attr, qw(name class predicate clearer)); is($attr->name, 'pawn', 'attribute name');