X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fno-bareword.t;h=e54325baabedce6edcfd1afefdcba27420d63901;hb=921d7adad038c5eebbde8a5fae8aaa5115503b39;hp=80f9b0ddf37b7fbb7eb6f31c1f628264353bf0b1;hpb=2424de2da29819863a80c3c08f069a523997422e;p=p5sagit%2FDevel-Declare.git

diff --git a/t/no-bareword.t b/t/no-bareword.t
index 80f9b0d..e54325b 100644
--- a/t/no-bareword.t
+++ b/t/no-bareword.t
@@ -22,12 +22,13 @@ BEGIN {
 Foo->method;
 BEGIN { is($i, 0) }
 
-my @foo = (method => 123);
-TODO: {
-    BEGIN {
-        local $TODO = 'fat commas not quoting barewords';
-        is($i, 0);
-    }
-}
+my @foo = (
+    method
+    =>
+    123
+);
+BEGIN { is($i, 0) }
+
+is_deeply(\@foo, ['method', '123']);
 
 done_testing;