t/adopt.t

   1 #!perl
   2 use strict;
   3 use lib 't/lib';
   4 use Test::More tests => 12;
   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);
  14
  15 #7-9
  16 my $t = TestAdoptCAF->new(foo => 100, bar => 200, groditi => 300);
  17 is($t->{foo},     100, '$self->{foo} set');
  18 is($t->{bar},     200, '$self->{bar} set');
  19 is($t->{groditi}, 300, '$self->{groditi} set');
  20
  21 #10-12
  22 my $u = TestAdoptCAF->new({foo => 100, bar => 200, groditi => 300});
  23 is($t->{foo},     100, '$self->{foo} set');
  24 is($t->{bar},     200, '$self->{bar} set');
  25 is($t->{groditi}, 300, '$self->{groditi} set');