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 | |