t/recreated_accessors.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 4;
   6 use Test::Exception;
   7
   8 # 1
   9 use_ok('MooseX::Emulate::Class::Accessor::Fast');
  10 {
  11   package My::Test::Package;
  12   use Moose;
  13   with 'MooseX::Emulate::Class::Accessor::Fast';
  14   for (0..1) {
  15     __PACKAGE__->mk_accessors(qw( foo ));
  16     __PACKAGE__->mk_ro_accessors(qw( bar ));
  17     __PACKAGE__->mk_wo_accessors(qw( baz ));
  18   }
  19 }
  20
  21 my $i = My::Test::Package->new(bar => 'bar');
  22
  23 # 2
  24 lives_ok {
  25   $i->foo('foo');
  26   $i->baz('baz');
  27
  28   # 3-4
  29   is($i->foo, 'foo');
  30   is($i->bar, 'bar');
  31 } 'No exception';
  32