From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 10 Apr 2009 00:03:29 +0000 (+0000)
Subject: Test for not invoking the linestr callback for barewords quoted using the fat comma.
X-Git-Tag: 0.005000~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30386869a15dd98aa2b162e19b175531e772fa56;p=p5sagit%2FDevel-Declare.git

Test for not invoking the linestr callback for barewords quoted using the fat comma.
---

diff --git a/t/quote.t b/t/quote.t
index 4104515..921cc94 100644
--- a/t/quote.t
+++ b/t/quote.t
@@ -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 @@ QUOTE: {
     test_eval '<<method;
 tum ti tum
 method';
+    test_eval 'my $x = { method => 42 }';
 }
 
 SYSTEM: {