Changeset 24158

Timestamp:

12/05/08 13:08:03 (5 weeks ago)

Author:

jnthn

Message:

[t/spec] Unfudge a .match test for Rakudo and add a few more.

Files:

• t/spec/S05-substitution/match.t (modified) (3 diffs)

t/spec/S05-substitution/match.t

@@ -3 +3 @@
 use Test;
 
-plan 9;
+plan 13;
 
 # L<S05/Substitution/>
@@ -9 +9 @@
 my $str = 'hello';
 
-
 ok $str.match(/h/),         'We can use match';
 is $str,  'hello',          '.. it does not do side effect';
-#?rakudo todo 'return Match object, RT #57094'
 ok $str.match(/h/)~~Match,  '.. it returns a Match object';
 
@@ -27 +25 @@
 # but possibly it should just be defined in object as an exact alias to ~~ ?
 
+$str = 'food';
+my $m = $str.match(/$<x>=[f](o+)/);
+ok $m ~~ Match,             'is a Match object';
+is $m,    'foo',            'match object stringifies OK';
+is $m<x>, 'f',              'match object indexes as a hash';
+is $m[0], 'oo',             'match object indexes as an array';