p6rule_like('abcabbc', 'ab+?bc', qr/0: <abbc @ 3>/, ''); p6rule_like('abbcabbbc', 'ab+?', qr/0: <ab @ 0>/, '');
output from "perl t/harness mytests/*.t" is attached.
Larry mentioned 're_tests' file from perl5-source. Is anyone working on it currently? I could make a simple script to convert at least some of it to this pge-testing format which uses p6rule_*
mytests/capture....# Failed test (lib/Parrot/Test/PGE.pm at line 73) # 'error:imcc:parse error, unexpected LABEL, expecting IDENTIFIER or PARROT_OP # in file 'EVAL_1' line 136 # ' # doesn't match '(?-xism:0: <abbc @ 3>)' # '(cd . && ./parrot "/home/malaire/omat/downloads/parrot/mytests/capture_6.imc")' failed with exit code 17 # Failed test (lib/Parrot/Test/PGE.pm at line 73) # 'error:imcc:parse error, unexpected LABEL, expecting IDENTIFIER or PARROT_OP # in file 'EVAL_1' line 134 # ' # doesn't match '(?-xism:0: <ab @ 0>)' # '(cd . && ./parrot "/home/malaire/omat/downloads/parrot/mytests/capture_7.imc")' failed with exit code 17 # Looks like you failed 2 tests of 7. dubious Test returned status 2 (wstat 512, 0x200) Scalar found where operator expected at (eval 158) line 1, near "'int' $__val" (Missing operator before $__val?) DIED. FAILED tests 6-7 Failed 2/7 tests, 71.43% okay Failed 1/1 test scripts, 0.00% okay. 2/7 subtests failed, 71.43% okay. Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- mytests/capture.t 2 512 7 2 28.57% 6-7