1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
use NQPP5QRegex;
my @files := [
'rx_basic',
'rx_quantifiers',
'rx_charclass',
'rx_metachars',
'rx_captures',
'rx_modifiers'
];
my %expansions;
%expansions<n> := "\n";
%expansions<r> := "\r";
%expansions<e> := "\e";
%expansions<t> := "\t";
%expansions<f> := "\f";
sub unescape($s) {
$s := subst($s, /\\(<[nretf]>)/, -> $m { %expansions{$m[0]} }, :global);
subst($s, /\\x(<[a..fA..F0..9]>**4)/, -> $m { nqp::chr(HLL::Actions.string_to_int(~$m[0], 16)) }, :global);
}
sub test_line($line) {
my @parts := match($line, /\T+/, :global);
my $regex := @parts[0];
my $target := @parts[1];
my $expect := @parts[2];
my $desc := @parts[3];
$target := '' if $target eq "''";
$target := unescape($target);
my $expect_substr := nqp::substr($expect, 0, 1) eq '<'
?? nqp::substr($expect, 1, nqp::chars($expect) - 2)
!! '';
my $rxcomp := nqp::getcomp('QRegex::P5Regex');
try {
my $rxsub := $rxcomp.compile($regex);
my $cursor := NQPMatch."!cursor_init"($target, :c(0));
my $match := $rxsub($cursor).MATCH;
if $expect_substr {
my $got := ~$match."!dump_str"('mob');
my $m := nqp::index($got, $expect_substr) >= 0;
ok($m, $desc);
say("# got: $got\n# expected: $expect_substr") unless $m;
}
else {
ok($expect eq 'y' ?? $match !! !$match, $desc);
}
CATCH {
if $expect_substr {
my $m := nqp::index(~$_, $expect_substr) >= 0;
ok($m, $desc);
say("# got: $_\n# expected: $expect") unless $m;
}
else {
ok(0, $desc);
say("# ERROR: $_");
}
}
}
}
my $tests := 0;
for @files -> $fn {
say("# file: $fn");
my $contents := slurp('t/p5regex/' ~ $fn);
my @lines := nqp::split("\n", $contents);
for @lines -> $l {
my $m := $l ~~ /'# todo ' .*? ':pge<' (.*?) '>'/;
if $m {
todo($m[0], 1);
}
else {
next if $l ~~ /^ \s* '#' | ^\s*$ /;
test_line($l);
$tests := $tests + 1;
}
}
say("# done with file $fn");
}
say("1..$tests");
# vim: ft=perl6
|
