[svn:parrot] r9975 - trunk/t/p6rules

[particle]

Author: particle
Date: Mon Nov 14 13:55:06 2005
New Revision: 9975

Modified:
   trunk/t/p6rules/capture.t
Log:
PGE: fix scoping problem in test.
* 2 tests now correctly passing

Modified: trunk/t/p6rules/capture.t
==============================================================================
--- trunk/t/p6rules/capture.t   (original)
+++ trunk/t/p6rules/capture.t   Mon Nov 14 13:55:06 2005
@@ -43,10 +43,10 @@ p6rule_like('abcd', '((\w+)+)', qr/mob 0
 p6rule_like('abcd', '((\w+)+)', qr/mob 0 0: <abcd @ 0>/, 'nested match', todo 
=> 'specification not clear');
 
 {
-       my $long_string = join('', 'A'..'Z', 'a'..'z') for 1..10;
-       p6rule_like($long_string, '((\w+)+)', qr/mob: <\w+ @ 0>/, 'nested 
match', todo => 'failing on long strings');
-       p6rule_like($long_string, '((\w+)+)', qr/mob 0: <\w+ @ 0>/, 'nested 
match', todo => 'failing on long strings');
-       p6rule_like($long_string, '((\w+)+)', qr/mob 0 0: <\w+ @ 0>/, 'nested 
match', todo => 'failing on long strings, specification unclear');
+       my $long_string; $long_string .= join('', 'A'..'Z', 'a'..'z') for 1..10;
+       p6rule_like($long_string, '((\w+)+)', qr/mob: <\w+ @ 0>/, 'nested 
match');
+       p6rule_like($long_string, '((\w+)+)', qr/mob 0: <\w+ @ 0>/, 'nested 
match');
+       p6rule_like($long_string, '((\w+)+)', qr/mob 0 0: <\w+ @ 0>/, 'nested 
match', todo => 'specification unclear');
 }