[gitmo/MooseX-AutoDoc.git] / t / 103-class.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("AutoDocTest4");

my $target = {
              name => 'AutoDocTest4',
              roles => [
                        { name => 'AutoDocTest::Role::Role1'} ,
                        { name => 'AutoDocTest::Role::Role2' }
                       ],
              superclasses => [
                              {name => 'AutoDocTest4BaseA'},
                              {name => 'AutoDocTest4BaseB'}
                             ],
              methods => [],
              attributes => []
             };

is_deeply($spec, $target);
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;
a3e8bacb	11	my $spec = $autodoc->_package_info("AutoDocTest4");
3890b670	12
	13	my $target = {
	14	name => 'AutoDocTest4',
	15	roles => [
	16	{ name => 'AutoDocTest::Role::Role1'} ,
	17	{ name => 'AutoDocTest::Role::Role2' }
	18	],
	19	superclasses => [
	20	{name => 'AutoDocTest4BaseA'},
	21	{name => 'AutoDocTest4BaseB'}
	22	],
	23	methods => [],
	24	attributes => []
	25	};
	26
1c61aa9f	27	is_deeply($spec, $target);