[gitmo/MooseX-AutoDoc.git] / t / 200-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->_role_info("AutoDocTest::Role::Role1");

my $target = {
              name => 'AutoDocTest::Role::Role1',
              roles => [],
              methods => [{ name => 'role_1'}],
              attributes => [
                             {
                              name => 'role_1_attr',
                              info => {},
                              description => 'Optional read-write value'
                             },
                            ],
             };
is_deeply($target, $spec);
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	use Test::More tests => 1;
	9
	10	my $autodoc = MooseX::AutoDoc->new;
ec75fdb0	11	my $spec = $autodoc->_role_info("AutoDocTest::Role::Role1");
3890b670	12
	13	my $target = {
	14	name => 'AutoDocTest::Role::Role1',
	15	roles => [],
	16	methods => [{ name => 'role_1'}],
	17	attributes => [
	18	{
	19	name => 'role_1_attr',
	20	info => {},
	21	description => 'Optional read-write value'
	22	},
	23	],
	24	};
	25	is_deeply($target, $spec);