Commit | Line | Data |
7869e2be |
1 | #!perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 5; |
5 | use Test::Exception; |
6 | |
7 | # 1 |
8 | use_ok('MooseX::Adopt::Class::Accessor::Fast'); |
9 | { |
10 | package My::Package; |
11 | use base qw/Class::Accessor::Fast/; |
12 | for (0..1) { |
13 | __PACKAGE__->mk_accessors(qw( foo )); |
14 | __PACKAGE__->mk_ro_accessors(qw( bar )); |
15 | __PACKAGE__->mk_wo_accessors(qw( baz )); |
16 | } |
17 | } |
18 | |
19 | my $i = bless { bar => 'bar' }, 'My::Package'; |
20 | |
21 | # 2 |
22 | lives_ok { |
23 | $i->foo('foo'); |
24 | $i->baz('baz'); |
25 | |
26 | # 3-5 |
27 | is($i->foo, 'foo'); |
28 | is($i->bar, 'bar'); |
29 | is($i->{baz}, 'baz'); |
30 | } 'No exception'; |
31 | |