forked from genehack/moosex-amine
/
01-basic-object.t
executable file
·43 lines (37 loc) · 996 Bytes
/
01-basic-object.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#! perl
use Test::More;
use MooseX::amine;
use lib './t/lib';
my $mex = MooseX::amine->new( 'Test::Basic::Object' );
isa_ok( $mex , 'MooseX::amine' );
my $expected_data_structure = {
attributes => {
simple_attribute => {
accessor => 'simple_attribute',
from => 'Test::Basic::Object',
meta => {
constraint => 'Str' ,
} ,
} ,
bare_ro_attribute => {
reader => 'bare_ro_attribute',
from => 'Test::Basic::Object',
} ,
hash_trait => {
accessor => 'hash_trait',
from => 'Test::Basic::Object',
meta => {
constraint => 'HashRef' ,
traits => [ 'Moose::Meta::Attribute::Native::Trait::Hash' ] ,
},
},
},
methods => {
simple_method => {
from => 'Test::Basic::Object' ,
code => qq|sub simple_method { return 'simple' }| ,
} ,
} ,
};
is_deeply( $mex->examine , $expected_data_structure , 'see expected output from examine()' );
done_testing();