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

[particle]

Author: particle
Date: Mon Nov 14 13:59:11 2005
New Revision: 9976

Modified:
   trunk/t/p6rules/capture.t
Log:
PGE: fix expected result based on info from pmi.
* 2 todo tests now passing

Modified: trunk/t/p6rules/capture.t
==============================================================================
--- trunk/t/p6rules/capture.t   (original)
+++ trunk/t/p6rules/capture.t   Mon Nov 14 13:59:11 2005
@@ -40,13 +40,13 @@ p6rule_like('abcd', '(a(b(c))(d))', qr/m
 
 p6rule_like('abcd', '((\w+)+)', qr/mob: <abcd @ 0>/, 'nested match');
 p6rule_like('abcd', '((\w+)+)', qr/mob 0: <abcd @ 0>/, 'nested match');
-p6rule_like('abcd', '((\w+)+)', qr/mob 0 0: <abcd @ 0>/, 'nested match', todo 
=> 'specification not clear');
+p6rule_like('abcd', '((\w+)+)', qr/mob 0 0 0: <abcd @ 0>/, 'nested match');
 
 {
        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');
+       p6rule_like($long_string, '((\w+)+)', qr/mob 0 0 0: <\w+ @ 0>/, 'nested 
match');
 }