[tapx-dev] [commit][183] Fix for failing t/030-grammar.t on 5.9.5

[andy at hexten.net]

Revision: 183
Author:   andy
Date:     2007-07-16 00:11:45 +0100 (Mon, 16 Jul 2007)

Log Message:
-----------
Fix for failing t/030-grammar.t on 5.9.5

Modified Paths:
--------------
    trunk/Changes
    trunk/t/030-grammar.t

Modified: trunk/Changes
===================================================================
--- trunk/Changes	2007-07-15 22:01:54 UTC (rev 182)
+++ trunk/Changes	2007-07-15 23:11:45 UTC (rev 183)
@@ -1,5 +1,11 @@
 Revision history for TAP-Parser
 
+0.53
+    - Fixed failing t/030-grammer.t under 5.9.5. Exact cause still unknown;
+      something to do with localisation of $1 et all I think.
+    - Fixed use of three arg open in t/compat/test-harness-compat; was failing
+      on 5.6.2.
+
 0.52
     - Incorporate Schwern's investigations into TAP versions.
       Unversioned TAP is now TAP v12. The lowest explicit version number

Modified: trunk/t/030-grammar.t
===================================================================
--- trunk/t/030-grammar.t	2007-07-15 22:01:54 UTC (rev 182)
+++ trunk/t/030-grammar.t	2007-07-15 23:11:45 UTC (rev 183)
@@ -98,6 +98,7 @@
 $plan = '1..0 # SKIP why not?';
 like $plan, $syntax_for{'plan'}, 'a basic plan should match its syntax';
 
+$plan =~ $syntax_for{'plan'};
 ok $plan_token = $grammar->$method( $plan ),
   '... and the handler should return a token';
 
@@ -122,6 +123,7 @@
 like $plan, $syntax_for{'plan'},
   'A plan  with an implied "skip all" should match its syntax';
 
+$plan =~ $syntax_for{'plan'};
 ok $plan_token = $grammar->$method( $plan ),
   '... and the handler should return a token';