[gitmo/MooseX-AutoDoc.git] / t / 003-moosex-types.t

#!/usr/bin/perl -w

use strict;
use warnings;
use MooseX::AutoDoc;
use FindBin '$Bin';
use lib "$Bin/lib";

use Test::More;
use Class::MOP;

my $has_mx_types = eval { Class::MOP::load_class("MooseX::Types"); };
unless($has_mx_types) {
  plan skip_all => 'MooseX::Types is required for this test';
  exit;
}

Class::MOP::load_class("AutoDocTest7");
plan tests => 1;
my $autodoc = MooseX::AutoDoc->new;
my $attr = AutoDocTest7->meta->get_attribute("typed_attr");
my $spec = $autodoc->_attribute_info($attr);
my $target = 'Optional value of type L<TestType\|AutoDocTestTypes';

like $spec->{description}, qr/$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
	9	use Test::More;
	10	use Class::MOP;
	11
	12	my $has_mx_types = eval { Class::MOP::load_class("MooseX::Types"); };
	13	unless($has_mx_types) {
	14	plan skip_all => 'MooseX::Types is required for this test';
	15	exit;
	16	}
	17
	18	Class::MOP::load_class("AutoDocTest7");
	19	plan tests => 1;
	20	my $autodoc = MooseX::AutoDoc->new;
	21	my $attr = AutoDocTest7->meta->get_attribute("typed_attr");
ec75fdb0	22	my $spec = $autodoc->_attribute_info($attr);
3890b670	23	my $target = 'Optional value of type L<TestType\\|AutoDocTestTypes';
	24
	25	like $spec->{description}, qr/$target/;
	26