add tests for checking $¢, the current match state.

Author: cedric-vincent

S05-capture/match-object.t

@@ -4,7 +4,7 @@ use Test;
 # this file should become the test for systematically testing
 # Match objects. Exception: .caps and .chunks are tested in caps.t
 
-plan 18;
+plan 21;
 
 ok 'ab12de' ~~ /\d+/,           'match successful';
 is $/.WHAT.gist, Match.gist,    'got right type';
@@ -30,3 +30,10 @@ is $/.kv.elems,       0,        '.kv (empty)';
 nok 'abde' ~~ /\d/,             'no match';
 nok $/.Bool,                    'failed match is False';
 is  $/.Str,          '',        'false match stringifies to empty string';
+
+#?niecza 3 todo '$¢ is still named $/'
+#?rakudo 3 eval 'Non-declarative sigil is missing its name at line 1, near "$\x{a2} }/\n"'
+my $c;
+ok 'abc' ~~ /.{ $c = $¢ }/,     'current match state';
+is $c.WHAT.gist, Cursor.gist,   'got right type';
+ok defined($c.pos),             '.pos';