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