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

#we already tested this..
delete $spec->{attributes};

my $target = {
               name => 'AutoDocTest1',
               roles => [],
               superclasses => [],
               methods => [{ name => 'bar'},{ name => 'foo'}],
              };
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;
a3e8bacb	11	my $spec = $autodoc->_package_info("AutoDocTest1");
3890b670	12
	13	#we already tested this..
	14	delete $spec->{attributes};
	15
	16	my $target = {
	17	name => 'AutoDocTest1',
	18	roles => [],
	19	superclasses => [],
	20	methods => [{ name => 'bar'},{ name => 'foo'}],
	21	};
	22	is_deeply($target, $spec);