Make the fat comma test more pathological.

[p5sagit/Devel-Declare.git] / t / no-bareword.t

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