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

my $target = {
              name => 'AutoDocTest6',
              roles => [{ name => 'AutoDocTest::Role::Role3'}],
              superclasses => [],
              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("AutoDocTest6");
3890b670	12
	13	my $target = {
	14	name => 'AutoDocTest6',
	15	roles => [{ name => 'AutoDocTest::Role::Role3'}],
	16	superclasses => [],
	17	methods => [],
	18	attributes => [],
	19	};
	20
1c61aa9f	21	is_deeply($spec, $target);