t/list_assign.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 1;
   4 use MooseX::Adopt::Class::Accessor::Fast;
   5
   6 {
   7   package Some::Class;
   8   use strict;
   9   use warnings;
  10   use base qw/Class::Accessor::Fast/;
  11
  12   __PACKAGE__->mk_accessors(qw/ foo /);
  13 }
  14
  15 my $i = bless {}, 'Some::Class';
  16 $i->foo(qw/bar baz/);
  17 is_deeply($i->foo, [qw/ bar baz /]);