[Moose-commits] r7500 - MooseX-Emulate-Class-Accessor-Fast/trunk/t

[rafl at code2.0beta.co.uk]

Author: rafl
Date: 2009-02-03 10:27:42 -0800 (Tue, 03 Feb 2009)
New Revision: 7500

Added:
   MooseX-Emulate-Class-Accessor-Fast/trunk/t/list_assign.t
Log:
Add failing test for CAFs auto-arrayification when calling accessors with a list of values.

Added: MooseX-Emulate-Class-Accessor-Fast/trunk/t/list_assign.t
===================================================================
--- MooseX-Emulate-Class-Accessor-Fast/trunk/t/list_assign.t	                        (rev 0)
+++ MooseX-Emulate-Class-Accessor-Fast/trunk/t/list_assign.t	2009-02-03 18:27:42 UTC (rev 7500)
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use Test::More tests => 1;
+use MooseX::Adopt::Class::Accessor::Fast;
+
+{
+  package Some::Class;
+  use strict;
+  use warnings;
+  use base qw/Class::Accessor::Fast/;
+
+  __PACKAGE__->mk_accessors(qw/ foo /);
+}
+
+my $i = bless {}, 'Some::Class';
+$i->foo(qw/bar baz/);
+is_deeply($i->foo, [qw/ bar baz /]);