t/100-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("AutoDocTest1");
  12
  13 #we already tested this..
  14 delete $spec->{attributes};
  15
  16 my $target = {
  17                name => 'AutoDocTest1',
  18                roles => [],
  19                superclasses => [],
  20                methods => [{ name => 'bar'},{ name => 'foo'}],
  21               };
  22 is_deeply($target, $spec);