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
|
#!./perl
BEGIN {
chdir 't' if -d 't';
require './test.pl'; # for fresh_perl_is() etc
set_up_inc('../lib', '.', '../ext/re');
require './charset_tools.pl';
require './loc_tools.pl';
}
use Config;
use strict;
use warnings;
# This file is a place for tests that fail at the time they are added here.
#
# When a ticket is filed, just follow the paradigm(s) in this file to add a
# test that shows the failure.
#
# It is expected that when new tickets are opened, some will actually be
# duplicates of existing known bad behavior. And since there are so many open
# tickets, we might overlook that. If there is a test here, we would
# automatically discover that a fix for the newer ticket actually fixed an
# earlier one (or ones) as well. Thus the issue can be closed, and the final
# disposition of the test here determined at that time. (For example, perhaps
# it is redundant to the test demonstrating the bug that was intentionally
# fixed, so can be removed altogether.)
my $switches = "";
{ # Fixed by acababb42be12ff2986b73c1bfa963b70bb5d54e
"abab" =~ /(?:[^b]*(?=(b)|(a))ab)*/;
is($1, undef, "GH #16894");
}
our $TODO;
TODO: {
local $TODO = "GH 16250";
fresh_perl_is(<<~'EOF',
"abcde5678" =~ / b (*pla:.*(*plb:(*plb:(.{4}))? (.{5})).$)/x;
print $1 // "undef", ":", $2 // "undef", "\n";
"abcde5678" =~ / b .* (*plb:(*plb:(.{4}))? (.{5}) ) .$ /x;
print $1 // "undef", ":", $2 // "undef", "\n";
EOF
"undef:de567\nundef:de567", { eval $switches }, "");
}
TODO: {
local $::TODO = 'GH 16876';
fresh_perl('$_ = "a"; s{ x | (?{ s{}{x} }) }{}gx;',
{ stderr => 'devnull' });
is($?, 0, "No assertion failure");
}
TODO: {
local $::TODO = 'GH 16952';
fresh_perl('s/d|(?{})!//.$&>0for$0,l..a0,0..0',
{ stderr => 'devnull' });
is($?, 0, "No assertion failure");
}
TODO: {
local $::TODO = 'GH 16971';
fresh_perl('split(/00|0\G/, "000")',
{ stderr => 'devnull' });
is($?, 0, "No assertion failure");
}
{
fresh_perl('use re "eval";
my @r;
for$0(qw(0 0)){push@r,qr/@r(?{})/};',
{ stderr => 'devnull' });
is($?, 0, "No assertion failure");
}
done_testing();
|
