Changeset 22636 for t

Show
Ignore:
Timestamp:
10/16/08 20:20:52 (3 months ago)
Author:
lwall
Message:

[rx.t] s/where/also/

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/spec/S05-mass/rx.t

    r22587 r22636  
    1616#### a*:a                       bazaar          /:a/    basic 
    1717#?rakudo skip 'quoting' 
    18 ok ('bazaar' ~~ /a*: a/) ~~ Match where matchcheck($_, q/:a/), 'basic'; 
     18ok ('bazaar' ~~ /a*: a/) ~~ Match also matchcheck($_, q/:a/), 'basic'; 
    1919 
    2020#### a*: a                      bazaar          n       basic 
    … …  
    9999#### (a.)..(..)         zzzabcdefzzz    /mob: <abcdef @ 3>/     basic $0 
    100100#?rakudo skip 'quoting' 
    101 ok ('zzzabcdefzzz' ~~ /(a.)..(..)/) ~~ Match where matchcheck($_, q/mob: <abcdef @ 3>/), 'basic $0'; 
     101ok ('zzzabcdefzzz' ~~ /(a.)..(..)/) ~~ Match also matchcheck($_, q/mob: <abcdef @ 3>/), 'basic $0'; 
    102102 
    103103#### (a.)..(..)         zzzabcdefzzz    /mob 0: <ab @ 3>/       basic $1 
    104104#?rakudo skip 'quoting' 
    105 ok ('zzzabcdefzzz' ~~ /(a.)..(..)/) ~~ Match where matchcheck($_, q/mob 0: <ab @ 3>/), 'basic $1'; 
     105ok ('zzzabcdefzzz' ~~ /(a.)..(..)/) ~~ Match also matchcheck($_, q/mob 0: <ab @ 3>/), 'basic $1'; 
    106106 
    107107#### (a.)..(..)         zzzabcdefzzz    /mob 1: <ef @ 7>/       basic $2 
    108108#?rakudo skip 'quoting' 
    109 ok ('zzzabcdefzzz' ~~ /(a.)..(..)/) ~~ Match where matchcheck($_, q/mob 1: <ef @ 7>/), 'basic $2'; 
     109ok ('zzzabcdefzzz' ~~ /(a.)..(..)/) ~~ Match also matchcheck($_, q/mob 1: <ef @ 7>/), 'basic $2'; 
    110110 
    111111#### (a(b(c))(d))               abcd            y                       nested match 
    … …  
    114114#### (a(b(c))(d))               abcd            /mob: <abcd @ 0>/       nested match 
    115115#?rakudo skip 'quoting' 
    116 ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match where matchcheck($_, q/mob: <abcd @ 0>/), 'nested match'; 
     116ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match also matchcheck($_, q/mob: <abcd @ 0>/), 'nested match'; 
    117117 
    118118#### (a(b(c))(d))               abcd            /mob 0: <abcd @ 0>/     nested match 
    119119#?rakudo skip 'quoting' 
    120 ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match where matchcheck($_, q/mob 0: <abcd @ 0>/), 'nested match'; 
     120ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match also matchcheck($_, q/mob 0: <abcd @ 0>/), 'nested match'; 
    121121 
    122122#### (a(b(c))(d))               abcd            /mob 0 0: <bc @ 1>/     nested match 
    123123#?rakudo skip 'quoting' 
    124 ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match where matchcheck($_, q/mob 0 0: <bc @ 1>/), 'nested match'; 
     124ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match also matchcheck($_, q/mob 0 0: <bc @ 1>/), 'nested match'; 
    125125 
    126126#### (a(b(c))(d))               abcd            /mob 0 0 0: <c @ 2>/    nested match 
    127127#?rakudo skip 'quoting' 
    128 ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match where matchcheck($_, q/mob 0 0 0: <c @ 2>/), 'nested match'; 
     128ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match also matchcheck($_, q/mob 0 0 0: <c @ 2>/), 'nested match'; 
    129129 
    130130#### (a(b(c))(d))               abcd            /mob 0 1: <d @ 3>/      nested match 
    131131#?rakudo skip 'quoting' 
    132 ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match where matchcheck($_, q/mob 0 1: <d @ 3>/), 'nested match'; 
     132ok ('abcd' ~~ /(a(b(c))(d))/) ~~ Match also matchcheck($_, q/mob 0 1: <d @ 3>/), 'nested match'; 
    133133 
    134134#### ((\w+)+)           abcd            /mob: <abcd @ 0>/       nested match 
    135135#?rakudo skip 'quoting' 
    136 ok ('abcd' ~~ /((\w+)+)/) ~~ Match where matchcheck($_, q/mob: <abcd @ 0>/), 'nested match'; 
     136ok ('abcd' ~~ /((\w+)+)/) ~~ Match also matchcheck($_, q/mob: <abcd @ 0>/), 'nested match'; 
    137137 
    138138#### ((\w+)+)           abcd            /mob 0: <abcd @ 0>/     nested match 
    139139#?rakudo skip 'quoting' 
    140 ok ('abcd' ~~ /((\w+)+)/) ~~ Match where matchcheck($_, q/mob 0: <abcd @ 0>/), 'nested match'; 
     140ok ('abcd' ~~ /((\w+)+)/) ~~ Match also matchcheck($_, q/mob 0: <abcd @ 0>/), 'nested match'; 
    141141 
    142142#### ((\w+)+)           abcd            /mob 0 0 0: <abcd @ 0>/ nested match 
    143143#?rakudo skip 'quoting' 
    144 ok ('abcd' ~~ /((\w+)+)/) ~~ Match where matchcheck($_, q/mob 0 0 0: <abcd @ 0>/), 'nested match'; 
     144ok ('abcd' ~~ /((\w+)+)/) ~~ Match also matchcheck($_, q/mob 0 0 0: <abcd @ 0>/), 'nested match'; 
    145145 
    146146#### ((\w+)+)   ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz        /mob: <ABCD/    nested match 
    147147#?rakudo skip 'quoting' 
    148 ok ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ~~ /((\w+)+)/) ~~ Match where matchcheck($_, q/mob: <ABCD/), 'nested match'; 
     148ok ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ~~ /((\w+)+)/) ~~ Match also matchcheck($_, q/mob: <ABCD/), 'nested match'; 
    149149 
    150150#### ((\w+)+)   ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz        /mob 0: <ABCD/  nested match 
    151151#?rakudo skip 'quoting' 
    152 ok ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ~~ /((\w+)+)/) ~~ Match where matchcheck($_, q/mob 0: <ABCD/), 'nested match'; 
     152ok ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ~~ /((\w+)+)/) ~~ Match also matchcheck($_, q/mob 0: <ABCD/), 'nested match'; 
    153153 
    154154#### ((\w+)+)   ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz        /mob 0 0 0: <ABCD/      nested match 
    155155#?rakudo skip 'quoting' 
    156 ok ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ~~ /((\w+)+)/) ~~ Match where matchcheck($_, q/mob 0 0 0: <ABCD/), 'nested match'; 
     156ok ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ~~ /((\w+)+)/) ~~ Match also matchcheck($_, q/mob 0 0 0: <ABCD/), 'nested match'; 
    157157 
    158158#### (a) [ (bc) (d) | .* (ef) ] .* (g)  abcdefg /mob 0: <a @ 0>/        alt subpattern before group 
    159159#?rakudo skip 'quoting' 
    160 ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match where matchcheck($_, q/mob 0: <a @ 0>/), 'alt subpattern before group'; 
     160ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match also matchcheck($_, q/mob 0: <a @ 0>/), 'alt subpattern before group'; 
    161161 
    162162#### (a) [ (bc) (d) | .* (ef) ] .* (g)  abcdefg /mob 1: <bc @ 1>/       alt subpattern in group 
    163163#?rakudo skip 'quoting' 
    164 ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match where matchcheck($_, q/mob 1: <bc @ 1>/), 'alt subpattern in group'; 
     164ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match also matchcheck($_, q/mob 1: <bc @ 1>/), 'alt subpattern in group'; 
    165165 
    166166#### (a) [ (bc) (d) | .* (ef) ] .* (g)  abcdefg /mob 2: <d @ 3>/        alt subpattern in group 
    167167#?rakudo skip 'quoting' 
    168 ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match where matchcheck($_, q/mob 2: <d @ 3>/), 'alt subpattern in group'; 
     168ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match also matchcheck($_, q/mob 2: <d @ 3>/), 'alt subpattern in group'; 
    169169 
    170170#### (a) [ (bc) (d) | .* (ef) ] .* (g)  abcdefg /mob 3: <g @ 6>/        alt subpattern after group 
    171171#?rakudo skip 'quoting' 
    172 ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match where matchcheck($_, q/mob 3: <g @ 6>/), 'alt subpattern after group'; 
     172ok ('abcdefg' ~~ /(a) [ (bc) (d) | .* (ef) ] .* (g)/) ~~ Match also matchcheck($_, q/mob 3: <g @ 6>/), 'alt subpattern after group'; 
    173173 
    174174#### (a) [ (bc) (x) | .* (ef) ] .* (g)  abcdefg /mob 1: <ef @ 4>/       2nd alt subpattern in group 
    175175#?rakudo skip 'quoting' 
    176 ok ('abcdefg' ~~ /(a) [ (bc) (x) | .* (ef) ] .* (g)/) ~~ Match where matchcheck($_, q/mob 1: <ef @ 4>/), '2nd alt subpattern in group'; 
     176ok ('abcdefg' ~~ /(a) [ (bc) (x) | .* (ef) ] .* (g)/) ~~ Match also matchcheck($_, q/mob 1: <ef @ 4>/), '2nd alt subpattern in group'; 
    177177 
    178178#### (a) [ (bc) (x) | .* (ef) ] .* (g)  abcdefg /mob 3: <g @ 6>/        2nd alt subpattern after group 
    179179#?rakudo skip 'quoting' 
    180 ok ('abcdefg' ~~ /(a) [ (bc) (x) | .* (ef) ] .* (g)/) ~~ Match where matchcheck($_, q/mob 3: <g @ 6>/), '2nd alt subpattern after group'; 
     180ok ('abcdefg' ~~ /(a) [ (bc) (x) | .* (ef) ] .* (g)/) ~~ Match also matchcheck($_, q/mob 3: <g @ 6>/), '2nd alt subpattern after group'; 
    181181 
    182182#### ( (.) )*                           abc     /mob 0 1 0: <b @ 1>/    nested repeated captures 
    183183#?rakudo skip 'quoting' 
    184 ok ('abc' ~~ /( (.) )*/) ~~ Match where matchcheck($_, q/mob 0 1 0: <b @ 1>/), 'nested repeated captures'; 
     184ok ('abc' ~~ /( (.) )*/) ~~ Match also matchcheck($_, q/mob 0 1 0: <b @ 1>/), 'nested repeated captures'; 
    185185 
    186186#### [ (.) ]*                           abc     /mob 0 1: <b @ 1>/      nested repeated captures 
    187187#?rakudo skip 'quoting' 
    188 ok ('abc' ~~ /[ (.) ]*/) ~~ Match where matchcheck($_, q/mob 0 1: <b @ 1>/), 'nested repeated captures'; 
     188ok ('abc' ~~ /[ (.) ]*/) ~~ Match also matchcheck($_, q/mob 0 1: <b @ 1>/), 'nested repeated captures'; 
    189189 
    190190#### ( [.] )*                           abc     /mob 0 1: <b @ 1>/      nested repeated captures 
    191191#?rakudo skip 'quoting' 
    192 ok ('abc' ~~ /( [.] )*/) ~~ Match where matchcheck($_, q/mob 0 1: <b @ 1>/), 'nested repeated captures'; 
     192ok ('abc' ~~ /( [.] )*/) ~~ Match also matchcheck($_, q/mob 0 1: <b @ 1>/), 'nested repeated captures'; 
    193193 
    194194#### (.) (.) $7=(.) (.) $4=(.)          abcdefg /mob 0: <a @ 0>/        numbered aliases $1 
    195195#?rakudo skip 'quoting' 
    196 ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match where matchcheck($_, q/mob 0: <a @ 0>/), 'numbered aliases $1'; 
     196ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match also matchcheck($_, q/mob 0: <a @ 0>/), 'numbered aliases $1'; 
    197197 
    198198#### (.) (.) $7=(.) (.) $4=(.)          abcdefg /mob 1: <b @ 1>/        numbered aliases $2 
    199199#?rakudo skip 'quoting' 
    200 ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match where matchcheck($_, q/mob 1: <b @ 1>/), 'numbered aliases $2'; 
     200ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match also matchcheck($_, q/mob 1: <b @ 1>/), 'numbered aliases $2'; 
    201201 
    202202#### (.) (.) $7=(.) (.) $4=(.)          abcdefg /mob 7: <c @ 2>/        numbered aliases $7 
    203203#?rakudo skip 'quoting' 
    204 ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match where matchcheck($_, q/mob 7: <c @ 2>/), 'numbered aliases $7'; 
     204ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match also matchcheck($_, q/mob 7: <c @ 2>/), 'numbered aliases $7'; 
    205205 
    206206#### (.) (.) $7=(.) (.) $4=(.)          abcdefg /mob 8: <d @ 3>/        numbered aliases $8 
    207207#?rakudo skip 'quoting' 
    208 ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match where matchcheck($_, q/mob 8: <d @ 3>/), 'numbered aliases $8'; 
     208ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match also matchcheck($_, q/mob 8: <d @ 3>/), 'numbered aliases $8'; 
    209209 
    210210#### (.) (.) $7=(.) (.) $4=(.)          abcdefg /mob 4: <e @ 4>/        numbered aliases $4 
    211211#?rakudo skip 'quoting' 
    212 ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match where matchcheck($_, q/mob 4: <e @ 4>/), 'numbered aliases $4'; 
     212ok ('abcdefg' ~~ /(.) (.) $7=(.) (.) $4=(.)/) ~~ Match also matchcheck($_, q/mob 4: <e @ 4>/), 'numbered aliases $4'; 
    213213 
    214214#### $1=[ (.) (.) (.) ] (.)                     abcdefg /mob 1: <abc @ 0>/      perl5 numbered captures $1 
    215215#?rakudo skip 'quoting' 
    216 ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match where matchcheck($_, q/mob 1: <abc @ 0>/), 'perl5 numbered captures $1'; 
     216ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match also matchcheck($_, q/mob 1: <abc @ 0>/), 'perl5 numbered captures $1'; 
    217217 
    218218#### $1=[ (.) (.) (.) ] (.)                     abcdefg /mob 2: <a @ 0>/        perl5 numbered captures $1 
    219219#?rakudo skip 'quoting' 
    220 ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match where matchcheck($_, q/mob 2: <a @ 0>/), 'perl5 numbered captures $1'; 
     220ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match also matchcheck($_, q/mob 2: <a @ 0>/), 'perl5 numbered captures $1'; 
    221221 
    222222#### $1=[ (.) (.) (.) ] (.)                     abcdefg /mob 3: <b @ 1>/        perl5 numbered captures $1 
    223223#?rakudo skip 'quoting' 
    224 ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match where matchcheck($_, q/mob 3: <b @ 1>/), 'perl5 numbered captures $1'; 
     224ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match also matchcheck($_, q/mob 3: <b @ 1>/), 'perl5 numbered captures $1'; 
    225225 
    226226#### $1=[ (.) (.) (.) ] (.)                     abcdefg /mob 4: <c @ 2>/        perl5 numbered captures $1 
    227227#?rakudo skip 'quoting' 
    228 ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match where matchcheck($_, q/mob 4: <c @ 2>/), 'perl5 numbered captures $1'; 
     228ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match also matchcheck($_, q/mob 4: <c @ 2>/), 'perl5 numbered captures $1'; 
    229229 
    230230#### $1=[ (.) (.) (.) ] (.)                     abcdefg /mob 5: <d @ 3>/        perl5 numbered captures $1 
    231231#?rakudo skip 'quoting' 
    232 ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match where matchcheck($_, q/mob 5: <d @ 3>/), 'perl5 numbered captures $1'; 
     232ok ('abcdefg' ~~ /$1=[ (.) (.) (.) ] (.)/) ~~ Match also matchcheck($_, q/mob 5: <d @ 3>/), 'perl5 numbered captures $1'; 
    233233 
    234234#### :s $<key>=[\w+] \= $<val>=[\S+]     abc = 123      /mob<key>: <abc @ 1>/   named capture 
    235235#?pugs todo 'feature' 
    236236#?rakudo skip 'quoting' 
    237 ok (' abc = 123' ~~ /:s $<key>=[\w+] \= $<val>=[\S+]/) ~~ Match where matchcheck($_, q/mob<key>: <abc @ 1>/), 'named capture'; 
     237ok (' abc = 123' ~~ /:s $<key>=[\w+] \= $<val>=[\S+]/) ~~ Match also matchcheck($_, q/mob<key>: <abc @ 1>/), 'named capture'; 
    238238 
    239239#### :s $<key>=[\w+] \= $<val>=[\S+]     abc = 123      /mob<val>: <123 @ 7>/   named capture 
    240240#?pugs todo 'feature' 
    241241#?rakudo skip 'quoting' 
    242 ok (' abc = 123' ~~ /:s $<key>=[\w+] \= $<val>=[\S+]/) ~~ Match where matchcheck($_, q/mob<val>: <123 @ 7>/), 'named capture'; 
     242ok (' abc = 123' ~~ /:s $<key>=[\w+] \= $<val>=[\S+]/) ~~ Match also matchcheck($_, q/mob<val>: <123 @ 7>/), 'named capture'; 
    243243 
    244244#### :s (\w+) $<foo>=(\w+) (\w+)                abc def ghi     /mob<foo>: <def @ 4>/   mixing named and unnamed capture 
    245245#?pugs todo 'feature' 
    246246#?rakudo skip 'quoting' 
    247 ok ('abc def ghi' ~~ /:s (\w+) $<foo>=(\w+) (\w+)/) ~~ Match where matchcheck($_, q/mob<foo>: <def @ 4>/), 'mixing named and unnamed capture'; 
     247ok ('abc def ghi' ~~ /:s (\w+) $<foo>=(\w+) (\w+)/) ~~ Match also matchcheck($_, q/mob<foo>: <def @ 4>/), 'mixing named and unnamed capture'; 
    248248 
    249249#### :s (\w+) $<foo>=(\w+) (\w+)                abc def ghi     /mob 1: <ghi @ 8>/      mixing named and unnamed capture 
    250250#?pugs todo 'feature' 
    251251#?rakudo skip 'quoting' 
    252 ok ('abc def ghi' ~~ /:s (\w+) $<foo>=(\w+) (\w+)/) ~~ Match where matchcheck($_, q/mob 1: <ghi @ 8>/), 'mixing named and unnamed capture'; 
     252ok ('abc def ghi' ~~ /:s (\w+) $<foo>=(\w+) (\w+)/) ~~ Match also matchcheck($_, q/mob 1: <ghi @ 8>/), 'mixing named and unnamed capture'; 
    253253 
    254254#### <alpha> [ \- <alpha> ]?                    abc def ghi     /mob<alpha> 0: <a @ 0>/ multiple subrule captures in same scope 
    255255#?pugs todo 'feature' 
    256256#?rakudo skip 'quoting' 
    257 ok ('abc def ghi' ~~ /<alpha> [ \- <alpha> ]?/) ~~ Match where matchcheck($_, q/mob<alpha> 0: <a @ 0>/), 'multiple subrule captures in same scope'; 
     257ok ('abc def ghi' ~~ /<alpha> [ \- <alpha> ]?/) ~~ Match also matchcheck($_, q/mob<alpha> 0: <a @ 0>/), 'multiple subrule captures in same scope'; 
    258258 
    259259#### [(.)$0]+                           bookkeeper      y                       backreference 
    … …  
    268268#?pugs todo 'feature' 
    269269#?rakudo skip 'quoting' 
    270 ok ('bookkeeper' ~~ /[(.)$0]+/) ~~ Match where matchcheck($_, q/mob 0 0: <o @ 1>/), 'backref $1'; 
     270ok ('bookkeeper' ~~ /[(.)$0]+/) ~~ Match also matchcheck($_, q/mob 0 0: <o @ 1>/), 'backref $1'; 
    271271 
    272272#### [(.)$0]+                           bookkeeper      /mob 0 1: <k @ 3>/      backref $1 
    273273#?pugs todo 'feature' 
    274274#?rakudo skip 'quoting' 
    275 ok ('bookkeeper' ~~ /[(.)$0]+/) ~~ Match where matchcheck($_, q/mob 0 1: <k @ 3>/), 'backref $1'; 
     275ok ('bookkeeper' ~~ /[(.)$0]+/) ~~ Match also matchcheck($_, q/mob 0 1: <k @ 3>/), 'backref $1'; 
    276276 
    277277#### [(.)$0]+                           bookkeeper      /mob 0 2: <e @ 5>/      backref $1 
    278278#?pugs todo 'feature' 
    279279#?rakudo skip 'quoting' 
    280 ok ('bookkeeper' ~~ /[(.)$0]+/) ~~ Match where matchcheck($_, q/mob 0 2: <e @ 5>/), 'backref $1'; 
     280ok ('bookkeeper' ~~ /[(.)$0]+/) ~~ Match also matchcheck($_, q/mob 0 2: <e @ 5>/), 'backref $1'; 
    281281 
    282282#### (.)*x                                      123x            /mob: <123x @ 0>/       repeated dot capture 
    283283#?pugs todo 'feature' 
    284284#?rakudo skip 'quoting' 
    285 ok ('123x' ~~ /(.)*x/) ~~ Match where matchcheck($_, q/mob: <123x @ 0>/), 'repeated dot capture'; 
     285ok ('123x' ~~ /(.)*x/) ~~ Match also matchcheck($_, q/mob: <123x @ 0>/), 'repeated dot capture'; 
    286286 
    287287 
    288288#### $<key>=<alpha>                             12ab34          /mob<key>: <a @ 2>/     alias capture 
    289289#?rakudo skip 'quoting' 
    290 ok ('12ab34' ~~ /$<key>=<alpha>/) ~~ Match where matchcheck($_, q/mob<key>: <a @ 2>/), 'alias capture'; 
     290ok ('12ab34' ~~ /$<key>=<alpha>/) ~~ Match also matchcheck($_, q/mob<key>: <a @ 2>/), 'alias capture'; 
    291291 
    292292#### <key=alpha>                                12ab34          /mob<key>: <a @ 2>/     alias capture 
    293293#?rakudo skip 'quoting' 
    294 ok ('12ab34' ~~ /<key=alpha>/) ~~ Match where matchcheck($_, q/mob<key>: <a @ 2>/), 'alias capture'; 
     294ok ('12ab34' ~~ /<key=alpha>/) ~~ Match also matchcheck($_, q/mob<key>: <a @ 2>/), 'alias capture'; 
    295295 
    296296# L<S05/Extensible metasyntax (C<< <...> >>)/"A leading [ indicates"> 
    … …  
    364364#### <-[d..b]>          bbccdd          /parse error/   illegal character range 
    365365#?rakudo skip 'quoting' 
    366 ok ('bbccdd' ~~ /<-[d..b]>/) ~~ Match where matchcheck($_, q/parse error/), 'illegal character range'; 
     366ok ('bbccdd' ~~ /<-[d..b]>/) ~~ Match also matchcheck($_, q/parse error/), 'illegal character range'; 
    367367 
    368368#### <[-]>                      ab-def          /parse error/   unescaped hyphen 
    369369#?rakudo skip 'quoting' 
    370 ok eval(q{{ 'ab-def' ~~ /<[-]>/ }}) ~~ Failure where /parse error/, 'unescaped hyphen'; 
     370ok eval(q{{ 'ab-def' ~~ /<[-]>/ }}) ~~ Failure also /parse error/, 'unescaped hyphen'; 
    371371 
    372372#### <[\-]>                     ab-def          y       escaped hyphen 
    … …  
    420420#### <[\]>                      \\]]            /parse error/   unescaped backslash (or no closing brace) 
    421421#?rakudo skip 'quoting' 
    422 ok eval(q{{ '\\]]' ~~ /<[\]>/ }}) ~~ Failure where /parse error/, 'unescaped backslash (or no closing brace)'; 
     422ok eval(q{{ '\\]]' ~~ /<[\]>/ }}) ~~ Failure also /parse error/, 'unescaped backslash (or no closing brace)'; 
    423423 
    424424#### ^\><[<]>           ><              y       lt character class 
    … …  
    526526#### <before .d> a.             abacad          /mob: <ad @ 4>/                 lookahead <before> 
    527527#?rakudo skip 'quoting' 
    528 ok ('abacad' ~~ /<before .d> a./) ~~ Match where matchcheck($_, q/mob: <ad @ 4>/), 'lookahead <before>'; 
     528ok ('abacad' ~~ /<before .d> a./) ~~ Match also matchcheck($_, q/mob: <ad @ 4>/), 'lookahead <before>'; 
    529529 
    530530#### <before c> ....            abacad          n                               lookahead <before> 
    … …  
    536536#### <!before ..b> aa   aabaaa          /mob: <aa @ 3>/                 negated lookahead 
    537537#?rakudo skip 'quoting' 
    538 ok ('aabaaa' ~~ /<!before ..b> aa/) ~~ Match where matchcheck($_, q/mob: <aa @ 3>/), 'negated lookahead'; 
     538ok ('aabaaa' ~~ /<!before ..b> aa/) ~~ Match also matchcheck($_, q/mob: <aa @ 3>/), 'negated lookahead'; 
    539539 
    540540#### <after a>b         ab              y                               lookbehind <after> 
    … …  
    603603#### ^ <null>   \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij   /mob<null>: < @ 0>/     null pattern (<null>) 
    604604#?rakudo skip 'quoting' 
    605 ok eval(q{{ '\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /^ <null>/ }}) ~~ Failure where /mob<null>: < @ 0>/, 'null pattern (<null>)'; 
     605ok eval(q{{ '\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /^ <null>/ }}) ~~ Failure also /mob<null>: < @ 0>/, 'null pattern (<null>)'; 
    606606 
    607607#### <null> $   \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij   /mob<null>: < @ 65>/    null pattern (<null>) 
    608608#?rakudo skip 'quoting' 
    609 ok eval(q{{ '\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<null> $/ }}) ~~ Failure where /mob<null>: < @ 65>/, 'null pattern (<null>)'; 
     609ok eval(q{{ '\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /<null> $/ }}) ~~ Failure also /mob<null>: < @ 65>/, 'null pattern (<null>)'; 
    610610 
    611611#### abc <null> def     \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij   y                       null pattern (<null>) 
    … …  
    621621#### a[b}               \t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij   /rule error/    mismatched close 
    622622#?rakudo skip 'quoting' 
    623 ok eval(q{{ '\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /a[b}/ }}) ~~ Failure where /rule error/, 'mismatched close'; 
     623ok eval(q{{ '\t\n\r !"#$%&\'()*+,-./:;<=>?@[\]^`_{|}0123456789ABCDEFGHIJabcdefghij' ~~ /a[b}/ }}) ~~ Failure also /rule error/, 'mismatched close'; 
    624624 
    625625 
    626626#### c <before .d>              abacad          /mob: <c @ 3>/                          one character and lookahead <before> 
    627627#?rakudo skip 'quoting' 
    628 ok ('abacad' ~~ /c <before .d>/) ~~ Match where matchcheck($_, q/mob: <c @ 3>/), 'one character and lookahead <before>'; 
     628ok ('abacad' ~~ /c <before .d>/) ~~ Match also matchcheck($_, q/mob: <c @ 3>/), 'one character and lookahead <before>'; 
    629629 
    630630#### .* <before .d>             abacad          /mob: <abac @ 0>/                       multiple characters and lookahead <before> 
    631631#?rakudo skip 'quoting' 
    632 ok ('abacad' ~~ /.* <before .d>/) ~~ Match where matchcheck($_, q/mob: <abac @ 0>/), 'multiple characters and lookahead <before>'; 
     632ok ('abacad' ~~ /.* <before .d>/) ~~ Match also matchcheck($_, q/mob: <abac @ 0>/), 'multiple characters and lookahead <before>'; 
    633633 
    634634#### .* <before .\<>            abaca<d         /mob: <abac @ 0>/                       multiple characters and lookahead <before> with a \'<\' 
    635635#?rakudo skip 'quoting' 
    636 ok ('abaca<d' ~~ /.* <before .\<>/) ~~ Match where matchcheck($_, q/mob: <abac @ 0>/), 'multiple characters and lookahead <before> with a \'<\''; 
     636ok ('abaca<d' ~~ /.* <before .\<>/) ~~ Match also matchcheck($_, q/mob: <abac @ 0>/), 'multiple characters and lookahead <before> with a \'<\''; 
    637637 
    638638#### .* <before \<>             aba<ca<d                /mob: <aba<ca @ 0>/             greedy any character and lookahead <before> with a \'<\' 
    639639#?rakudo skip 'quoting' 
    640 ok ('aba<ca<d' ~~ /.* <before \<>/) ~~ Match where matchcheck($_, q/mob: <aba<ca @ 0>/), 'greedy any character and lookahead <before> with a \'<\''; 
     640ok ('aba<ca<d' ~~ /.* <before \<>/) ~~ Match also matchcheck($_, q/mob: <aba<ca @ 0>/), 'greedy any character and lookahead <before> with a \'<\''; 
    641641 
    642642#### .*? <before \<>            aba<ca<d                /mob: <aba @ 0>/                non-greedy any character and lookahead <before> with a \'<\' 
    643643#?rakudo skip 'quoting' 
    644 ok ('aba<ca<d' ~~ /.*? <before \<>/) ~~ Match where matchcheck($_, q/mob: <aba @ 0>/), 'non-greedy any character and lookahead <before> with a \'<\''; 
     644ok ('aba<ca<d' ~~ /.*? <before \<>/) ~~ Match also matchcheck($_, q/mob: <aba @ 0>/), 'non-greedy any character and lookahead <before> with a \'<\''; 
    645645 
    646646 
    … …  
    789789#### \Aabc                      Aabc            /reserved/      retired metachars (\A) 
    790790#?rakudo skip 'quoting' 
    791 ok eval(q{{ 'Aabc' ~~ /\Aabc/ }}) ~~ Failure where /reserved/, 'retired metachars (\A)'; 
     791ok eval(q{{ 'Aabc' ~~ /\Aabc/ }}) ~~ Failure also /reserved/, 'retired metachars (\A)'; 
    792792 
    793793#### \Aabc                      abc\ndef        /reserved/      retired metachars (\A) 
    794794#?rakudo skip 'quoting' 
    795 ok eval(q{{ 'abc\ndef' ~~ /\Aabc/ }}) ~~ Failure where /reserved/, 'retired metachars (\A)'; 
     795ok eval(q{{ 'abc\ndef' ~~ /\Aabc/ }}) ~~ Failure also /reserved/, 'retired metachars (\A)'; 
    796796 
    797797#### abc\Z                      abcZ            /reserved/      retired metachars (\Z) 
    798798#?rakudo skip 'quoting' 
    799 ok eval(q{{ 'abcZ' ~~ /abc\Z/ }}) ~~ Failure where /reserved/, 'retired metachars (\Z)'; 
     799ok eval(q{{ 'abcZ' ~~ /abc\Z/ }}) ~~ Failure also /reserved/, 'retired metachars (\Z)'; 
    800800 
    801801#### abc\Z                      abc\ndef        /reserved/      retired metachars (\Z) 
    802802#?rakudo skip 'quoting' 
    803 ok eval(q{{ 'abc\ndef' ~~ /abc\Z/ }}) ~~ Failure where /reserved/, 'retired metachars (\Z)'; 
     803ok eval(q{{ 'abc\ndef' ~~ /abc\Z/ }}) ~~ Failure also /reserved/, 'retired metachars (\Z)'; 
    804804 
    805805#### abc\z                      abcz            /reserved/      retired metachars (\z) 
    806806#?rakudo skip 'quoting' 
    807 ok eval(q{{ 'abcz' ~~ /abc\z/ }}) ~~ Failure where /reserved/, 'retired metachars (\z)'; 
     807ok eval(q{{ 'abcz' ~~ /abc\z/ }}) ~~ Failure also /reserved/, 'retired metachars (\z)'; 
    808808 
    809809#### def\z                      abc\ndef        /reserved/      retired metachars (\z) 
    810810#?rakudo skip 'quoting' 
    811 ok eval(q{{ 'abc\ndef' ~~ /def\z/ }}) ~~ Failure where /reserved/, 'retired metachars (\z)'; 
     811ok eval(q{{ 'abc\ndef' ~~ /def\z/ }}) ~~ Failure also /reserved/, 'retired metachars (\z)'; 
    812812 
    813813#### abc # def          abc#def         y       comments (#) 
    … …  
    889889#### b|                 bcd             /rule error/    alternation (|) - null right arg illegal 
    890890#?rakudo skip 'quoting' 
    891 ok eval(q{{ 'bcd' ~~ /b|/ }}) ~~ Failure where /rule error/, 'alternation (|) - null right arg illegal'; 
     891ok eval(q{{ 'bcd' ~~ /b|/ }}) ~~ Failure also /rule error/, 'alternation (|) - null right arg illegal'; 
    892892 
    893893#### |b                 bcd             y       alternation (|) - null left arg ignored 
    … …  
    896896#### |                  bcd             /rule error/    alternation (|) - null both args illegal 
    897897#?rakudo skip 'quoting' 
    898 ok eval(q{{ 'bcd' ~~ /|/ }}) ~~ Failure where /rule error/, 'alternation (|) - null both args illegal'; 
     898ok eval(q{{ 'bcd' ~~ /|/ }}) ~~ Failure also /rule error/, 'alternation (|) - null both args illegal'; 
    899899 
    900900#### \|                 |               y       alternation (|) - literal must be escaped 
    … …  
    903903#### |                  |               /rule error/    alternation (|) - literal must be escaped 
    904904#?rakudo skip 'quoting' 
    905 ok eval(q{{ '|' ~~ /|/ }}) ~~ Failure where /rule error/, 'alternation (|) - literal must be escaped'; 
     905ok eval(q{{ '|' ~~ /|/ }}) ~~ Failure also /rule error/, 'alternation (|) - literal must be escaped'; 
    906906 
    907907#### <[a..d]> & <[b..e]>        c               y       conjunction (&) 
    … …  
    936936#### b&                 bcd             /rule error/    conjunction (&) - null right arg illegal 
    937937#?rakudo skip 'quoting' 
    938 ok eval(q{{ 'bcd' ~~ /b&/ }}) ~~ Failure where /rule error/, 'conjunction (&) - null right arg illegal'; 
     938ok eval(q{{ 'bcd' ~~ /b&/ }}) ~~ Failure also /rule error/, 'conjunction (&) - null right arg illegal'; 
    939939 
    940940#### &b                 bcd             /rule error/    conjunction (&) - null left arg illegal 
    941941#?rakudo skip 'quoting' 
    942 ok eval(q{{ 'bcd' ~~ /&b/ }}) ~~ Failure where /rule error/, 'conjunction (&) - null left arg illegal'; 
     942ok eval(q{{ 'bcd' ~~ /&b/ }}) ~~ Failure also /rule error/, 'conjunction (&) - null left arg illegal'; 
    943943 
    944944#### &                  bcd             /rule error/    conjunction (&) - null both args illegal 
    945945#?rakudo skip 'quoting' 
    946 ok eval(q{{ 'bcd' ~~ /&/ }}) ~~ Failure where /rule error/, 'conjunction (&) - null both args illegal'; 
     946ok eval(q{{ 'bcd' ~~ /&/ }}) ~~ Failure also /rule error/, 'conjunction (&) - null both args illegal'; 
    947947 
    948948#### \&                 &               y       conjunction (&) - literal must be escaped 
    … …  
    951951#### &                  &               /rule error/    conjunction (&) - literal must be escaped 
    952952#?rakudo skip 'quoting' 
    953 ok eval(q{{ '&' ~~ /&/ }}) ~~ Failure where /rule error/, 'conjunction (&) - literal must be escaped'; 
     953ok eval(q{{ '&' ~~ /&/ }}) ~~ Failure also /rule error/, 'conjunction (&) - literal must be escaped'; 
    954954 
    955955# todo :pge<leading |> 
    956956#### a&|b                       a&|b            /rule error/    alternation and conjunction (&|) - parse error 
    957957#?rakudo skip 'quoting' 
    958 ok eval(q{{ 'a&|b' ~~ /a&|b/ }}) ~~ Failure where /rule error/, 'alternation and conjunction (&|) - parse error'; 
     958ok eval(q{{ 'a&|b' ~~ /a&|b/ }}) ~~ Failure also /rule error/, 'alternation and conjunction (&|) - parse error'; 
    959959 
    960960#### a|&b                       a|&b            /rule error/    alternation and conjunction (|&) - parse error 
    961961#?rakudo skip 'quoting' 
    962 ok eval(q{{ 'a|&b' ~~ /a|&b/ }}) ~~ Failure where /rule error/, 'alternation and conjunction (|&) - parse error'; 
     962ok eval(q{{ 'a|&b' ~~ /a|&b/ }}) ~~ Failure also /rule error/, 'alternation and conjunction (|&) - parse error'; 
    963963 
    964964#### |d|b                       abc             y       leading alternation ignored 
    … …  
    977977#?pugs todo 'feature' 
    978978#?rakudo skip 'quoting' 
    979 ok eval(q{{ 'abc' !~~ / b |  | d/ }}) ~~ Failure where /reserved/, 'null pattern invalid'; 
     979ok eval(q{{ 'abc' !~~ / b |  | d/ }}) ~~ Failure also /reserved/, 'null pattern invalid'; 
    980980 
    981981#### \pabc                      pabc            /reserved/      retired metachars (\p) 
    982982#?rakudo skip 'quoting' 
    983 ok eval(q{{ 'pabc' ~~ /\pabc/ }}) ~~ Failure where /reserved/, 'retired metachars (\p)'; 
     983ok eval(q{{ 'pabc' ~~ /\pabc/ }}) ~~ Failure also /reserved/, 'retired metachars (\p)'; 
    984984 
    985985#### \p{InConsonant}            a               /reserved/      retired metachars (\p) 
    986986#?rakudo skip 'quoting' 
    987 ok eval(q{{ 'a' ~~ /\p{InConsonant}/ }}) ~~ Failure where /reserved/, 'retired metachars (\p)'; 
     987ok eval(q{{ 'a' ~~ /\p{InConsonant}/ }}) ~~ Failure also /reserved/, 'retired metachars (\p)'; 
    988988 
    989989#### \Pabc                      Pabc            /reserved/      retired metachars (\P) 
    990990#?rakudo skip 'quoting' 
    991 ok eval(q{{ 'Pabc' ~~ /\Pabc/ }}) ~~ Failure where /reserved/, 'retired metachars (\P)'; 
     991ok eval(q{{ 'Pabc' ~~ /\Pabc/ }}) ~~ Failure also /reserved/, 'retired metachars (\P)'; 
    992992 
    993993#### \P{InConsonant}            a               /reserved/      retired metachars (\P) 
    994994#?rakudo skip 'quoting' 
    995 ok eval(q{{ 'a' ~~ /\P{InConsonant}/ }}) ~~ Failure where /reserved/, 'retired metachars (\P)'; 
     995ok eval(q{{ 'a' ~~ /\P{InConsonant}/ }}) ~~ Failure also /reserved/, 'retired metachars (\P)'; 
    996996 
    997997#### \Labc\E                    LabcE           /reserved/      retired metachars (\L...\E) 
    998998#?rakudo skip 'quoting' 
    999 ok eval(q{{ 'LabcE' ~~ /\Labc\E/ }}) ~~ Failure where /reserved/, 'retired metachars (\L...\E)'; 
     999ok eval(q{{ 'LabcE' ~~ /\Labc\E/ }}) ~~ Failure also /reserved/, 'retired metachars (\L...\E)'; 
    10001000 
    10011001#### \LABC\E                    abc             /reserved/      retired metachars (\L...\E) 
    10021002#?rakudo skip 'quoting' 
    1003 ok eval(q{{ 'abc' ~~ /\LABC\E/ }}) ~~ Failure where /reserved/, 'retired metachars (\L...\E)'; 
     1003ok eval(q{{ 'abc' ~~ /\LABC\E/ }}) ~~ Failure also /reserved/, 'retired metachars (\L...\E)'; 
    10041004 
    10051005#### \Uabc\E                    UabcE           /reserved/      retired metachars (\U...\E) 
    10061006#?rakudo skip 'quoting' 
    1007 ok eval(q{{ 'UabcE' ~~ /\Uabc\E/ }}) ~~ Failure where /reserved/, 'retired metachars (\U...\E)'; 
     1007ok eval(q{{ 'UabcE' ~~ /\Uabc\E/ }}) ~~ Failure also /reserved/, 'retired metachars (\U...\E)'; 
    10081008 
    10091009#### \Uabc\E                    ABC             /reserved/      retired metachars (\U...\E) 
    10101010#?rakudo skip 'quoting' 
    1011 ok eval(q{{ 'ABC' ~~ /\Uabc\E/ }}) ~~ Failure where /reserved/, 'retired metachars (\U...\E)'; 
     1011ok eval(q{{ 'ABC' ~~ /\Uabc\E/ }}) ~~ Failure also /reserved/, 'retired metachars (\U...\E)'; 
    10121012 
    10131013#### \Qabc\E                    QabcE           /reserved/      retired metachars (\Q...\E) 
    10141014#?rakudo skip 'quoting' 
    1015 ok eval(q{{ 'QabcE' ~~ /\Qabc\E/ }}) ~~ Failure where /reserved/, 'retired metachars (\Q...\E)'; 
     1015ok eval(q{{ 'QabcE' ~~ /\Qabc\E/ }}) ~~ Failure also /reserved/, 'retired metachars (\Q...\E)'; 
    10161016 
    10171017#### \Qabc d?\E         abc d           /reserved/      retired metachars (\Q...\E) 
    10181018#?rakudo skip 'quoting' 
    1019 ok eval(q{{ 'abc d' ~~ /\Qabc d?\E/ }}) ~~ Failure where /reserved/, 'retired metachars (\Q...\E)'; 
     1019ok eval(q{{ 'abc d' ~~ /\Qabc d?\E/ }}) ~~ Failure also /reserved/, 'retired metachars (\Q...\E)'; 
    10201020 
    10211021#### \Gabc                      Gabc            /reserved/      retired metachars (\G) 
    10221022#?rakudo skip 'quoting' 
    1023 ok eval(q{{ 'Gabc' ~~ /\Gabc/ }}) ~~ Failure where /reserved/, 'retired metachars (\G)'; 
     1023ok eval(q{{ 'Gabc' ~~ /\Gabc/ }}) ~~ Failure also /reserved/, 'retired metachars (\G)'; 
    10241024 
    10251025#### \1abc                      1abc            /reserved/      retired metachars (\1) 
    10261026#?rakudo skip 'quoting' 
    1027 ok eval(q{{ '1abc' ~~ /\1abc/ }}) ~~ Failure where /reserved/, 'retired metachars (\1)'; 
     1027ok eval(q{{ '1abc' ~~ /\1abc/ }}) ~~ Failure also /reserved/, 'retired metachars (\1)'; 
    10281028 
    10291029#### ^ \s+ $                    \x0009\x0020\x00a0\x000a\x000b\x000c\x000d\x0085        y       0-255 whitespace (\s) 
    … …  
    16611661#### :s::(\w+) ':=' (\S+)               dog := spot     /mob 0: <dog @ 0>/      sigspace and capture together 
    16621662#?rakudo skip 'quoting' 
    1663 ok ('dog := spot' ~~ /:s::(\w+) ':=' (\S+)/) ~~ Match where matchcheck($_, q/mob 0: <dog @ 0>/), 'sigspace and capture together'; 
     1663ok ('dog := spot' ~~ /:s::(\w+) ':=' (\S+)/) ~~ Match also matchcheck($_, q/mob 0: <dog @ 0>/), 'sigspace and capture together'; 
    16641664 
    16651665#### :s::(\w+) ':=' (\S+)               dog := spot     /mob 1: <spot @ 7>/     sigspace and capture together 
    16661666#?rakudo skip 'quoting' 
    1667 ok ('dog := spot' ~~ /:s::(\w+) ':=' (\S+)/) ~~ Match where matchcheck($_, q/mob 1: <spot @ 7>/), 'sigspace and capture together'; 
     1667ok ('dog := spot' ~~ /:s::(\w+) ':=' (\S+)/) ~~ Match also matchcheck($_, q/mob 1: <spot @ 7>/), 'sigspace and capture together'; 
    16681668 
    16691669#### :perl5 \A.*? bcd\Q$\E..\z  a bcd$ef        y       perl5 syntax (:perl5)