t/202-role.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 use Test::More tests => 1;
   9
  10 my $autodoc = MooseX::AutoDoc->new;
  11 my $spec = $autodoc->role_info("AutoDocTest::Role::Role3");
  12
  13 my $target = {
  14               name => 'AutoDocTest::Role::Role3',
  15               roles => [
  16                         {name => 'AutoDocTest::Role::Role1',},
  17                         {name => 'AutoDocTest::Role::Role2',}
  18                        ],
  19               methods => [{ name => 'role_3'}],
  20               attributes => [
  21                              {
  22                               name => 'role_3_attr',
  23                               info => {},
  24                               description => 'Optional read-write value'
  25                              },
  26                             ],
  27              };
  28 is_deeply($target, $spec);