update method/attribute parsing

[gitmo/MooseX-AutoDoc.git] / t / 201-role.t

#!/usr/bin/perl -w

use strict;
use warnings;
use MooseX::AutoDoc;
use FindBin '$Bin';
use lib "$Bin/lib";
use Test::More tests => 1;

my $autodoc = MooseX::AutoDoc->new;
my $spec = $autodoc->_package_info("AutoDocTest::Role::Role2");

my $target = {
              name => 'AutoDocTest::Role::Role2',
              roles => [],
              methods => [{ name => 'role_2'}],
              attributes => [
                             {
                              name => 'role_2_attr',
                              info => {},
                              description => 'Optional read-write value'
                             },
                            ],
             };

is_deeply($spec, $target);