Commit | Line | Data |
---|---|---|
c5a105b3 | 1 | #!perl |
2 | use strict; | |
3 | use lib 't/lib'; | |
4 | use Test::More tests => 6; | |
5 | ||
6 | #1,2 | |
7 | require_ok("MooseX::Adopt::Class::Accessor::Fast"); | |
8 | use_ok('TestAdoptCAF'); | |
9 | ||
10 | #3-6 | |
11 | ok(TestAdoptCAF->can('meta'), 'Adopt seems to work'); | |
12 | ok(TestAdoptCAF->meta->find_attribute_by_name($_), "attribute $_ created") | |
13 | for qw(foo bar baz); |