t/003-moosex-types.t

   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");
  22 my $spec = $autodoc->attribute_info($attr);
  23 my $target = 'Optional value of type L<TestType\|AutoDocTestTypes';
  24
  25 like $spec->{description}, qr/$target/;
  26