[Bast-commits] r5880 - Devel-Declare/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-10 01:03:29 +0100 (Fri, 10 Apr 2009)
New Revision: 5880

Modified:
   Devel-Declare/1.000/trunk/t/quote.t
Log:
Test for not invoking the linestr callback for barewords quoted using the fat comma.

Modified: Devel-Declare/1.000/trunk/t/quote.t
===================================================================
--- Devel-Declare/1.000/trunk/t/quote.t	2009-04-10 00:03:12 UTC (rev 5879)
+++ Devel-Declare/1.000/trunk/t/quote.t	2009-04-10 00:03:29 UTC (rev 5880)
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 14;
+use Test::More tests => 15;
 
 use Devel::Declare 'method' => sub {};
 use File::Spec;
@@ -16,6 +16,7 @@
     test_eval '<<method;
 tum ti tum
 method';
+    test_eval 'my $x = { method => 42 }';
 }
 
 SYSTEM: {