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

my $target = {
               name => 'AutoDocTest2',
               roles => [],
               superclasses => [{name => 'AutoDocTest1'}],
               methods => [{ name => 'bar'}],
               attributes =>
               [{
                 info => {'reader' => 'attr8', 'writer' => '_attr8'},
                 description => 'Optional value',
                 name => 'attr8',
                }]
              };
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
	9	use Test::More tests => 1;
	10
	11	my $autodoc = MooseX::AutoDoc->new;
a3e8bacb	12	my $spec = $autodoc->_package_info("AutoDocTest2");
3890b670	13
	14	my $target = {
	15	name => 'AutoDocTest2',
	16	roles => [],
	17	superclasses => [{name => 'AutoDocTest1'}],
	18	methods => [{ name => 'bar'}],
	19	attributes =>
	20	[{
	21	info => {'reader' => 'attr8', 'writer' => '_attr8'},
	22	description => 'Optional value',
	23	name => 'attr8',
	24	}]
	25	};
	26	is_deeply($target, $spec);