handle trigger with captures
[gitmo/Moo.git] / t / class-tiny-accessors.t
1 use strictures 1;
2 use Test::More;
3
4 {
5   package Foo;
6
7   use Class::Tiny;
8
9   has one => (is => 'ro');
10   has two => (is => 'rw', init_arg => undef);
11   has three => (is => 'ro', init_arg => 'THREE', required => 1);
12
13   package Bar;
14
15   use Role::Tiny;
16
17   has four => (is => 'ro');
18
19   package Baz;
20
21   use Class::Tiny;
22
23   extends 'Foo';
24
25   with 'Bar';
26
27   has five => (is => 'rw');
28 }
29
30 my $foo = Foo->new(
31   one => 1,
32   THREE => 3
33 );
34
35 is_deeply(
36   { %$foo }, { one => 1, three => 3 }, 'simple class ok'
37 );
38
39 my $baz = Baz->new(
40   one => 1,
41   THREE => 3,
42   four => 4,
43   five => 5,
44 );
45
46 is_deeply(
47   { %$baz }, { one => 1, three => 3, four => 4, five => 5 },
48   'subclass with role ok'
49 );
50
51 done_testing;