avoid relying on . being in @INC

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

diff --git a/t/no-bareword.t b/t/no-bareword.t
index 80f9b0d..702cbb5 100644 (file)
--- a/t/no-bareword.t
+++ b/t/no-bareword.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More;
+use Test::More 0.88;
 
 our $i;
 BEGIN { $i = 0 };
@@ -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;