Commit | Line | Data |
---|---|---|
0d6e12be | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More tests => 4; | |
7 | ||
8 | use Mouse (); | |
9 | ||
73766a27 | 10 | my $meta = Mouse->init_meta(for_class => 'Foo'); |
0d6e12be | 11 | |
12 | ok( Foo->isa('Mouse::Object'), '... Foo isa Mouse::Object'); | |
13 | isa_ok( $meta, 'Mouse::Meta::Class' ); | |
14 | isa_ok( Foo->meta, 'Mouse::Meta::Class' ); | |
15 | ||
16 | is($meta, Foo->meta, '... our metas are the same'); |