Commit | Line | Data |
599cee73 |
1 | regcomp.c AOK |
2 | |
767a6a26 |
3 | Strange *+?{} on zero-length expression [S_study_chunk] |
4 | /(?=a)?/ |
599cee73 |
5 | |
767a6a26 |
6 | %.*s matches null string many times [S_regpiece] |
599cee73 |
7 | $a = "ABC123" ; $a =~ /(?=a)*/' |
8 | |
767a6a26 |
9 | /%.127s/: Unrecognized escape \\%c passed through" [S_regatom] |
e476b1b5 |
10 | $x = '\m' ; /$x/ |
599cee73 |
11 | |
767a6a26 |
12 | Character class syntax [. .] is reserved for future extensions [S_regpposixcc] |
13 | |
14 | Character class syntax [= =] is reserved for future extensions [S_checkposixcc] |
15 | |
16 | Character class syntax [%c %c] belongs inside character classes [S_checkposixcc] |
17 | |
73b437c8 |
18 | /%.127s/: false [] range \"%*.*s\" in regexp [S_regclass] |
599cee73 |
19 | |
73b437c8 |
20 | /%.127s/: false [] range \"%*.*s\" in regexp [S_regclassutf8] |
599cee73 |
21 | |
1028017a |
22 | /%.127s/: Unrecognized escape \\%c in character class passed through" [S_regclass] |
23 | |
24 | /%.127s/: Unrecognized escape \\%c in character class passed through" [S_regclassutf8] |
25 | |
599cee73 |
26 | __END__ |
767a6a26 |
27 | # regcomp.c [S_regpiece] |
e476b1b5 |
28 | use warnings 'regexp' ; |
599cee73 |
29 | my $a = "ABC123" ; |
30 | $a =~ /(?=a)*/ ; |
e476b1b5 |
31 | no warnings 'regexp' ; |
0453d815 |
32 | $a =~ /(?=a)*/ ; |
599cee73 |
33 | EXPECT |
34 | (?=a)* matches null string many times at - line 4. |
35 | ######## |
767a6a26 |
36 | # regcomp.c [S_study_chunk] |
e476b1b5 |
37 | use warnings 'regexp' ; |
599cee73 |
38 | $_ = "" ; |
39 | /(?=a)?/; |
e476b1b5 |
40 | no warnings 'regexp' ; |
0453d815 |
41 | /(?=a)?/; |
599cee73 |
42 | EXPECT |
43 | Strange *+?{} on zero-length expression at - line 4. |
44 | ######## |
767a6a26 |
45 | # regcomp.c [S_regatom] |
e476b1b5 |
46 | $x = '\m' ; |
47 | use warnings 'regexp' ; |
48 | $a =~ /a$x/ ; |
49 | no warnings 'regexp' ; |
50 | $a =~ /a$x/ ; |
767a6a26 |
51 | EXPECT |
e476b1b5 |
52 | /a\m/: Unrecognized escape \m passed through at - line 4. |
767a6a26 |
53 | ######## |
54 | # regcomp.c [S_regpposixcc S_checkposixcc] |
e476b1b5 |
55 | use warnings 'regexp' ; |
599cee73 |
56 | $_ = "" ; |
e8c223df |
57 | /[:alpha:]/; |
b8c5462f |
58 | /[.bar.]/; |
59 | /[=zog=]/; |
e8c223df |
60 | /[[:alpha:]]/; |
61 | /[[.foo.]]/; |
62 | /[[=bar=]]/; |
63 | /[:zog:]/; |
e476b1b5 |
64 | no warnings 'regexp' ; |
e8c223df |
65 | /[:alpha:]/; |
66 | /[.foo.]/; |
67 | /[=bar=]/; |
68 | /[[:alpha:]]/; |
69 | /[[.foo.]]/; |
70 | /[[=bar=]]/; |
71 | /[:zog:]/; |
17d0df5d |
72 | BEGIN { $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3 } |
e8c223df |
73 | /[[:zog:]]/; |
599cee73 |
74 | EXPECT |
b8c5462f |
75 | Character class syntax [: :] belongs inside character classes at - line 4. |
76 | Character class syntax [. .] belongs inside character classes at - line 5. |
77 | Character class syntax [. .] is reserved for future extensions at - line 5. |
78 | Character class syntax [= =] belongs inside character classes at - line 6. |
79 | Character class syntax [= =] is reserved for future extensions at - line 6. |
e8c223df |
80 | Character class syntax [. .] is reserved for future extensions at - line 8. |
81 | Character class syntax [= =] is reserved for future extensions at - line 9. |
82 | Character class syntax [: :] belongs inside character classes at - line 10. |
17d0df5d |
83 | Character class [:zog:] unknown at - line 20. |
73b437c8 |
84 | ######## |
85 | # regcomp.c [S_regclass] |
86 | $_ = ""; |
e476b1b5 |
87 | use warnings 'regexp' ; |
73b437c8 |
88 | /[a-b]/; |
89 | /[a-\d]/; |
90 | /[\d-b]/; |
91 | /[\s-\d]/; |
92 | /[\d-\s]/; |
93 | /[a-[:digit:]]/; |
94 | /[[:digit:]-b]/; |
95 | /[[:alpha:]-[:digit:]]/; |
96 | /[[:digit:]-[:alpha:]]/; |
e476b1b5 |
97 | no warnings 'regexp' ; |
73b437c8 |
98 | /[a-b]/; |
99 | /[a-\d]/; |
100 | /[\d-b]/; |
101 | /[\s-\d]/; |
102 | /[\d-\s]/; |
103 | /[a-[:digit:]]/; |
104 | /[[:digit:]-b]/; |
105 | /[[:alpha:]-[:digit:]]/; |
106 | /[[:digit:]-[:alpha:]]/; |
107 | EXPECT |
108 | /[a-\d]/: false [] range "a-\d" in regexp at - line 5. |
109 | /[\d-b]/: false [] range "\d-" in regexp at - line 6. |
110 | /[\s-\d]/: false [] range "\s-" in regexp at - line 7. |
111 | /[\d-\s]/: false [] range "\d-" in regexp at - line 8. |
112 | /[a-[:digit:]]/: false [] range "a-[:digit:]" in regexp at - line 9. |
113 | /[[:digit:]-b]/: false [] range "[:digit:]-" in regexp at - line 10. |
114 | /[[:alpha:]-[:digit:]]/: false [] range "[:alpha:]-" in regexp at - line 11. |
115 | /[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 12. |
116 | ######## |
117 | # regcomp.c [S_regclassutf8] |
59af8754 |
118 | BEGIN { |
119 | if (ord("\t") == 5) { |
120 | print "SKIPPED\n# ebcdic regular expression ranges differ."; |
121 | exit 0; |
122 | } |
123 | } |
73b437c8 |
124 | use utf8; |
125 | $_ = ""; |
e476b1b5 |
126 | use warnings 'regexp' ; |
73b437c8 |
127 | /[a-b]/; |
128 | /[a-\d]/; |
129 | /[\d-b]/; |
130 | /[\s-\d]/; |
131 | /[\d-\s]/; |
132 | /[a-[:digit:]]/; |
133 | /[[:digit:]-b]/; |
134 | /[[:alpha:]-[:digit:]]/; |
135 | /[[:digit:]-[:alpha:]]/; |
e476b1b5 |
136 | no warnings 'regexp' ; |
73b437c8 |
137 | /[a-b]/; |
138 | /[a-\d]/; |
139 | /[\d-b]/; |
140 | /[\s-\d]/; |
141 | /[\d-\s]/; |
142 | /[a-[:digit:]]/; |
143 | /[[:digit:]-b]/; |
144 | /[[:alpha:]-[:digit:]]/; |
145 | /[[:digit:]-[:alpha:]]/; |
146 | EXPECT |
dc26be07 |
147 | /[a-\d]/: false [] range "a-\d" in regexp at - line 12. |
148 | /[\d-b]/: false [] range "\d-" in regexp at - line 13. |
149 | /[\s-\d]/: false [] range "\s-" in regexp at - line 14. |
150 | /[\d-\s]/: false [] range "\d-" in regexp at - line 15. |
151 | /[a-[:digit:]]/: false [] range "a-[:digit:]" in regexp at - line 16. |
152 | /[[:digit:]-b]/: false [] range "[:digit:]-" in regexp at - line 17. |
153 | /[[:alpha:]-[:digit:]]/: false [] range "[:alpha:]-" in regexp at - line 18. |
154 | /[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 19. |
1028017a |
155 | ######## |
156 | # regcomp.c [S_regclass S_regclassutf8] |
e476b1b5 |
157 | use warnings 'regexp' ; |
1028017a |
158 | $a =~ /[a\zb]/ ; |
e476b1b5 |
159 | no warnings 'regexp' ; |
1028017a |
160 | $a =~ /[a\zb]/ ; |
161 | EXPECT |
162 | /[a\zb]/: Unrecognized escape \z in character class passed through at - line 3. |