t/adopt.t

   1 #!perl
   2 use strict;
   3 use lib 't/lib';
   4 use Test::More tests => 6;
   5
   6 #1,2
   7 require_ok("MooseX::Adopt::Class::Accessor::Fast");
   8 use_ok('TestAdoptCAF');
   9
  10 #3-6
  11 ok(TestAdoptCAF->can('meta'), 'Adopt seems to work');
  12 ok(TestAdoptCAF->meta->find_attribute_by_name($_), "attribute $_ created")
  13   for qw(foo bar baz);