Commit | Line | Data |
3890b670 |
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use MooseX::AutoDoc; |
6 | use FindBin '$Bin'; |
7 | use lib "$Bin/lib"; |
8 | |
9 | use Test::More tests => 1; |
10 | |
11 | my $autodoc = MooseX::AutoDoc->new; |
a3e8bacb |
12 | my $spec = $autodoc->_package_info("AutoDocTest2"); |
3890b670 |
13 | |
14 | my $target = { |
15 | name => 'AutoDocTest2', |
16 | roles => [], |
17 | superclasses => [{name => 'AutoDocTest1'}], |
18 | methods => [{ name => 'bar'}], |
19 | attributes => |
20 | [{ |
21 | info => {'reader' => 'attr8', 'writer' => '_attr8'}, |
22 | description => 'Optional value', |
23 | name => 'attr8', |
24 | }] |
25 | }; |
1c61aa9f |
26 | |
27 | is_deeply($spec, $target); |