From: Florian Ragwitz <rafl@debian.org>
Date: Tue, 3 Feb 2009 18:27:42 +0000 (+0000)
Subject: Add failing test for CAFs auto-arrayification when calling accessors with a list... 
X-Git-Tag: 0.00800~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aedcd4c79896b7622aab7c97c76572c332c5fa19;p=gitmo%2FMooseX-Emulate-Class-Accessor-Fast.git

Add failing test for CAFs auto-arrayification when calling accessors with a list of values.
---

diff --git a/t/list_assign.t b/t/list_assign.t
new file mode 100644
index 0000000..efa4d0d
--- /dev/null
+++ b/t/list_assign.t
@@ -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 /]);