Changeset 8706
- Timestamp:
- 01/16/06 19:23:01 (3 years ago)
- Files:
-
- 1 modified
-
t/rules/from_perl6_rules/array_cap.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
t/rules/from_perl6_rules/array_cap.t
r8080 r8706 20 20 } else { 21 21 22 force_todo 7, 11..12, 14, 15, 17, 18, 21, 22, 24, 25, 27, 28, 35..45;22 force_todo 1..12, 14..45; 23 23 24 24 ok(" a b\tc" ~~ m/@<chars>:=[ \s+ \S+ ]+/, 'Named simple array capture'); … … 40 40 # ok("abcxyd" ~~ m/a @GA:=(.(.))+ d/, 'Global array capture'); 41 41 is("@GA[]", "c y", 'Global array captured'); 42 ok(%$/.keys == 0, 'No vestigal captures' , :todo<bug>);42 ok(%$/.keys == 0, 'No vestigal captures'); 43 43 44 44 my @foo;
