t/101-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
   9 use Test::More tests => 1;
  10
  11 my $autodoc = MooseX::AutoDoc->new;
  12 my $spec = $autodoc->_package_info("AutoDocTest2");
  13
  14 my $target = {
  15                name => 'AutoDocTest2',
  16                roles => [],
  17                superclasses => [{name => 'AutoDocTest1'}],
  18                methods => [{ name => 'bar'}],
  19                attributes =>
  20                [{
  21                  info => {'reader' => 'attr8', 'writer' => '_attr8'},
  22                  description => 'Optional value',
  23                  name => 'attr8',
  24                 }]
  25               };
  26
  27 is_deeply($spec, $target);