t/103-class.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->class_info("AutoDocTest4");
  12
  13 my $target = {
  14               name => 'AutoDocTest4',
  15               roles => [
  16                         { name => 'AutoDocTest::Role::Role1'} ,
  17                         { name => 'AutoDocTest::Role::Role2' }
  18                        ],
  19               superclasses => [
  20                               {name => 'AutoDocTest4BaseA'},
  21                               {name => 'AutoDocTest4BaseB'}
  22                              ],
  23               methods => [],
  24               attributes => []
  25              };
  26
  27 is_deeply($target, $spec);