Lines Matching refs:message
65 my $message = 'bug id 20001008.001 (#4407)';
70 ok(s/(\d+)\s*([\w\-]+)/$1 . uc $2/e, $message);
71 ok(my ($latin) = /^(.+)(?:\s+\d)/, $message);
72 is($latin, $strasse, $message);
73 ok($latin =~ s/$strasse/straße/, $message);
84 my $message = 'Test \x escapes';
85 ok("ba\xd4c" =~ /([a\xd4]+)/ && $1 eq "a\xd4", $message);
86 ok("ba\xd4c" =~ /([a\xd4]+)/ && $1 eq "a\x{d4}", $message);
87 ok("ba\x{d4}c" =~ /([a\xd4]+)/ && $1 eq "a\x{d4}", $message);
88 ok("ba\x{d4}c" =~ /([a\xd4]+)/ && $1 eq "a\xd4", $message);
89 ok("ba\xd4c" =~ /([a\x{d4}]+)/ && $1 eq "a\xd4", $message);
90 ok("ba\xd4c" =~ /([a\x{d4}]+)/ && $1 eq "a\x{d4}", $message);
91 ok("ba\x{d4}c" =~ /([a\x{d4}]+)/ && $1 eq "a\x{d4}", $message);
92 ok("ba\x{d4}c" =~ /([a\x{d4}]+)/ && $1 eq "a\xd4", $message);
96 my $message = 'Match code points > 255';
98 ok(/(.\x{300})./, $message);
99 ok($` eq "abc\x{100}" && length ($`) == 4, $message);
100 ok($& eq "\x{200}\x{300}\x{380}" && length ($&) == 3, $message);
101 ok($' eq "\x{400}defg" && length ($') == 5, $message);
102 ok($1 eq "\x{200}\x{300}" && length ($1) == 2, $message);
120 my $message = "Properties of \\x$code";
123 is(0 + ($char =~ /[\x80-\xff]/), $$match[0], $message);
124 is(0 + ($char =~ /[\x80-\x{100}]/), $$match[1], $message);
125 is(0 + ($char =~ /[\x{100}]/), $$match[2], $message);
150 my $message = "/x tests";
165 is(eval $pat, 1, $message);
166 is($@, '', $message);
171 my $message = "/o feature";
173 is(test_o ('abc', '(.)..'), 'a', $message);
174 is(test_o ('abc', '..(.)'), 'a', $message);
179 my $message = '$^N usage outside of a regex';
181 ok(($x =~ /cde/ and !defined $^N), $message);
182 ok(($x =~ /(cde)/ and $^N eq "cde"), $message);
183 ok(($x =~ /(c)(d)(e)/ and $^N eq "e"), $message);
184 ok(($x =~ /(c(d)e)/ and $^N eq "cde"), $message);
185 ok(($x =~ /(foo)|(c(d)e)/ and $^N eq "cde"), $message);
186 ok(($x =~ /(c(d)e)|(foo)/ and $^N eq "cde"), $message);
187 ok(($x =~ /(c(d)e)|(abc)/ and $^N eq "abc"), $message);
188 ok(($x =~ /(c(d)e)|(abc)x/ and $^N eq "cde"), $message);
189 ok(($x =~ /(c(d)e)(abc)?/ and $^N eq "cde"), $message);
190 ok(($x =~ /(?:c(d)e)/ and $^N eq "d"), $message);
191 ok(($x =~ /(?:c(d)e)(?:f)/ and $^N eq "d"), $message);
192 ok(($x =~ /(?:([abc])|([def]))*/ and $^N eq "f"), $message);
193 ok(($x =~ /(?:([ace])|([bdf]))*/ and $^N eq "f"), $message);
194 ok(($x =~ /(([ace])|([bd]))*/ and $^N eq "e"), $message);
195 {ok(($x =~ /(([ace])|([bdf]))*/ and $^N eq "f"), $message);}
201 $message = '$^N usage inside (?{ ... })';
203 ok(($x =~ /a([abc])(?{$y=$^N})c/ and $y eq "b"), $message);
204 ok(($x =~ /a([abc]+)(?{$y=$^N})d/ and $y eq "bc"), $message);
205 ok(($x =~ /a([abcdefg]+)(?{$y=$^N})d/ and $y eq "bc"), $message);
207 and $z eq "abcd"), $message);
209 and $z eq "abcde"), $message);
218 my $message = 'Test [[:cntrl:]]';
223 is($x, join("", map {chr} 0x20 .. 0x7E, 0x80 .. 0xFF), $message);
228 is($x, (join "", map {chr} 0x00 .. 0x1F, 0x7F), $message);
233 my $message = "UTF-8 chars aren't bytes";
348 my $message = "Folding matches and Unicode";
349 like("a\x{100}", qr/A/i, $message);
350 like("A\x{100}", qr/a/i, $message);
351 like("a\x{100}", qr/a/i, $message);
352 like("A\x{100}", qr/A/i, $message);
353 like("\x{101}a", qr/\x{100}/i, $message);
354 like("\x{100}a", qr/\x{100}/i, $message);
355 like("\x{101}a", qr/\x{101}/i, $message);
356 like("\x{100}a", qr/\x{101}/i, $message);
357 like("a\x{100}", qr/A\x{100}/i, $message);
358 like("A\x{100}", qr/a\x{100}/i, $message);
359 like("a\x{100}", qr/a\x{100}/i, $message);
360 like("A\x{100}", qr/A\x{100}/i, $message);
361 like("a\x{100}", qr/[A]/i, $message);
362 like("A\x{100}", qr/[a]/i, $message);
363 like("a\x{100}", qr/[a]/i, $message);
364 like("A\x{100}", qr/[A]/i, $message);
365 like("\x{101}a", qr/[\x{100}]/i, $message);
366 like("\x{100}a", qr/[\x{100}]/i, $message);
367 like("\x{101}a", qr/[\x{101}]/i, $message);
368 like("\x{100}a", qr/[\x{101}]/i, $message);
373 my $message = "Folding 'LATIN LETTER A WITH GRAVE'";
378 like($lower, qr/$UPPER/i, $message);
379 like($UPPER, qr/$lower/i, $message);
380 like($lower, qr/[$UPPER]/i, $message);
381 like($UPPER, qr/[$lower]/i, $message);
383 $message = "Folding 'GREEK LETTER ALPHA WITH VRACHY'";
388 like($lower, qr/$UPPER/i, $message);
389 like($UPPER, qr/$lower/i, $message);
390 like($lower, qr/[$UPPER]/i, $message);
391 like($UPPER, qr/[$lower]/i, $message);
393 $message = "Folding 'LATIN LETTER Y WITH DIAERESIS'";
398 like($lower, qr/$UPPER/i, $message);
399 like($UPPER, qr/$lower/i, $message);
400 like($lower, qr/[$UPPER]/i, $message);
401 like($UPPER, qr/[$lower]/i, $message);
406 my $message = "GREEK CAPITAL LETTER SIGMA vs " .
412 warning_is(sub {unlike("_:$char:_", qr/_:$SIGMA:_/i, $message)}, undef,
417 my $message = '\X';
420 ok("a!" =~ /^(\X)!/ && $1 eq "a", $message);
421 ok("\xDF!" =~ /^(\X)!/ && $1 eq "\xDF", $message);
422 ok("\x{100}!" =~ /^(\X)!/ && $1 eq "\x{100}", $message);
423 ok("\x{100}\x{300}!" =~ /^(\X)!/ && $1 eq "\x{100}\x{300}", $message);
425 $1 eq "\N{LATIN CAPITAL LETTER E}", $message);
428 $1 eq "\N{LATIN CAPITAL LETTER E}\N{COMBINING GRAVE ACCENT}", $message);
433 my $message = "Final Sigma";
439 like($SIGMA, qr/$SIGMA/i, $message);
440 like($SIGMA, qr/$Sigma/i, $message);
441 like($SIGMA, qr/$sigma/i, $message);
443 like($Sigma, qr/$SIGMA/i, $message);
444 like($Sigma, qr/$Sigma/i, $message);
445 like($Sigma, qr/$sigma/i, $message);
447 like($sigma, qr/$SIGMA/i, $message);
448 like($sigma, qr/$Sigma/i, $message);
449 like($sigma, qr/$sigma/i, $message);
451 like($SIGMA, qr/[$SIGMA]/i, $message);
452 like($SIGMA, qr/[$Sigma]/i, $message);
453 like($SIGMA, qr/[$sigma]/i, $message);
455 like($Sigma, qr/[$SIGMA]/i, $message);
456 like($Sigma, qr/[$Sigma]/i, $message);
457 like($Sigma, qr/[$sigma]/i, $message);
459 like($sigma, qr/[$SIGMA]/i, $message);
460 like($sigma, qr/[$Sigma]/i, $message);
461 like($sigma, qr/[$sigma]/i, $message);
463 $message = "More final Sigma";
467 ok(":$S3:" =~ /:(($SIGMA)+):/i && $1 eq $S3 && $2 eq $sigma, $message);
468 ok(":$S3:" =~ /:(($Sigma)+):/i && $1 eq $S3 && $2 eq $sigma, $message);
469 ok(":$S3:" =~ /:(($sigma)+):/i && $1 eq $S3 && $2 eq $sigma, $message);
471 ok(":$S3:" =~ /:(([$SIGMA])+):/i && $1 eq $S3 && $2 eq $sigma, $message);
472 ok(":$S3:" =~ /:(([$Sigma])+):/i && $1 eq $S3 && $2 eq $sigma, $message);
473 ok(":$S3:" =~ /:(([$sigma])+):/i && $1 eq $S3 && $2 eq $sigma, $message);
478 my $message = "Parlez-Vous " .
482 $& eq "Francais", $message);
484 $& eq "Fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais", $message);
486 $& eq "Francais", $message);
488 $& eq "Fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais", $message);
490 $& eq "Franc\N{COMBINING CEDILLA}ais", $message);
493 $& eq "Fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais", $message);
495 $& eq "Franc\N{COMBINING CEDILLA}ais", $message);
507 $& eq $match, $message);
512 my $message = "Lingering (and useless) UTF8 flag doesn't mess up /i";
516 like($str, qr/$pat/i, $message);
521 like($str, qr/$pat/i, $message);
527 like($str, qr/$pat/i, $message);
532 my $message = "LATIN SMALL LETTER SHARP S " .
536 qr/\N{LATIN SMALL LETTER SHARP S}/, $message);
538 qr'\N{LATIN SMALL LETTER SHARP S}', $message);
540 qr/\N{LATIN SMALL LETTER SHARP S}/i, $message);
542 qr'\N{LATIN SMALL LETTER SHARP S}'i, $message);
544 qr/[\N{LATIN SMALL LETTER SHARP S}]/, $message);
546 qr'[\N{LATIN SMALL LETTER SHARP S}]', $message);
548 qr/[\N{LATIN SMALL LETTER SHARP S}]/i, $message);
550 qr'[\N{LATIN SMALL LETTER SHARP S}]'i, $message);
552 like("ss", qr /\N{LATIN SMALL LETTER SHARP S}/i, $message);
553 like("ss", qr '\N{LATIN SMALL LETTER SHARP S}'i, $message);
554 like("SS", qr /\N{LATIN SMALL LETTER SHARP S}/i, $message);
555 like("SS", qr '\N{LATIN SMALL LETTER SHARP S}'i, $message);
556 like("ss", qr/[\N{LATIN SMALL LETTER SHARP S}]/i, $message);
557 like("ss", qr'[\N{LATIN SMALL LETTER SHARP S}]'i, $message);
558 like("SS", qr/[\N{LATIN SMALL LETTER SHARP S}]/i, $message);
559 like("SS", qr'[\N{LATIN SMALL LETTER SHARP S}]'i, $message);
561 like("\N{LATIN SMALL LETTER SHARP S}", qr/ss/i, $message);
562 like("\N{LATIN SMALL LETTER SHARP S}", qr/SS/i, $message);
564 $message = "Unoptimized named sequence in class";
565 like("ss", qr/[\N{LATIN SMALL LETTER SHARP S}x]/i, $message);
566 like("ss", qr'[\N{LATIN SMALL LETTER SHARP S}x]'i, $message);
567 like("SS", qr/[\N{LATIN SMALL LETTER SHARP S}x]/i, $message);
568 like("SS", qr'[\N{LATIN SMALL LETTER SHARP S}x]'i, $message);
570 qr/[\N{LATIN SMALL LETTER SHARP S}x]/, $message);
572 qr'[\N{LATIN SMALL LETTER SHARP S}x]', $message);
574 qr/[\N{LATIN SMALL LETTER SHARP S}x]/i, $message);
576 qr'[\N{LATIN SMALL LETTER SHARP S}x]'i, $message);
625 my $message = ". with /s works on characters, not bytes";
637 is("@c", $s, $message);
653 is($r1, $r2, $message);
657 my $message = "Unicode lookbehind";
658 like("A\x{100}B", qr/(?<=A.)B/, $message);
659 like("A\x{200}\x{300}B", qr/(?<=A..)B/, $message);
660 like("\x{400}AB", qr/(?<=\x{400}.)B/, $message);
661 like("\x{500}\x{600}B", qr/(?<=\x{500}.)B/, $message);
669 my $message = 'UTF-8 hash keys and /$/';
680 is($m1, $m2, $message);
685 my $message = "No SEGV in s/// and UTF-8";
687 ok($s =~ s/[^\w]/ /g, $message);
689 is($s, "s \x{100}" x 4, $message);
692 is($s, "s " x 4, $message);
697 my $message = "UTF-8 bug (maybe already known?)";
700 is($u, "\x{100}\x{100}\x{100}", $message);
704 is($u, "f\x{100}\x{100}b\x{100}r", $message);
707 is($u, "feeber", $message);
711 my $message = "UTF-8 bug with s///";
719 unlike("xxx", qr/$re/, $message);
720 ok(+($subst = "xxx") !~ s/$re//, $message);
723 like("xxx", qr/$re/, $message);
724 ok(+($subst = "xxx") =~ s/$re//, $message);
725 is($subst, "", $message);
728 like("xx$c", qr/$re/, $message);
729 ok(+($subst = "xx$c") =~ s/$re//, $message);
730 is($subst, $c, $message);
731 unlike("xy$c", qr/$re/, $message);
732 ok(+($subst = "xy$c") !~ s/$re//, $message);
735 like("xyz", qr/$re/, $message);
736 ok(+($subst = "xyz") =~ s/$re//, $message);
737 is($subst, "", $message);
748 my $message = "qr /.../x";
750 ok("ABCDE" =~ $R && $& eq "ABC", $message);
751 ok("ABCDE" =~ /$R/ && $& eq "ABC", $message);
752 ok("ABCDE" =~ m/$R/ && $& eq "ABC", $message);
753 ok("ABCDE" =~ /($R)/ && $1 eq "ABC", $message);
754 ok("ABCDE" =~ m/($R)/ && $1 eq "ABC", $message);
774 my $message = 'Markus Kuhn 2003-02-26';
777 ok($x =~ s/(\S)\n(\S)/$1 $2/sg, $message);
778 is($x, "\x{2019} k", $message);
781 ok($x =~ s/(\S)\n(\S)/$1 $2/sg, $message);
782 is($x, "b k", $message);
784 like("\x{2019}", qr/\S/, $message);
817 my $message = '<20030808193656.5109.1@llama.ni-s.u-net.com>';
820 like(" \x{101}", qr/\x{100}/i, $message);
823 like(" \x{1E01}", qr/\x{1E00}/i, $message);
826 like(" \x{10428}", qr/\x{10400}/i, $message);
829 like(" \x{1E01}x", qr/\x{1E00}X/i, $message);
835 my $message = q [Don't misparse \x{...} in regexp ] .
845 like("$head$tail", qr/$head$tail/, \$message)};
847 like("$head$tail", qr'$head$tail', \$message)};
848 is($@, '', $message);
1330 my $message = '$REGERROR';
1336 is($REGERROR, $word, $message);
1348 my $message = "Relative Recursion";
1352 ok(m/foo $parens \s* \+ \s* bar $parens/x, $message);
1353 is($1, '((2*3)+4-3)', $message);
1354 is($2, '(2*(3+4)-1*(2-3))', $message);
1355 is($&, 'foo((2*3)+4-3) + bar(2*(3+4)-1*(2-3))', $message);
1356 is($&, $_, $message);
1388 my $message = "http://nntp.perl.org/group/perl.perl5.porters/118663";
1390 like("foobarbarxyz", $qr_barR1, $message);
1391 like("foobarbarxyz", qr/foo${qr_barR1}xyz/, $message);
1392 like("foobarbarxyz", qr/(foo)${qr_barR1}xyz/, $message);
1393 like("foobarbarxyz", qr/(foo)(bar)\g{-1}xyz/, $message);
1394 like("foobarbarxyz", qr/(foo${qr_barR1})xyz/, $message);
1395 like("foobarbarxyz", qr/(foo(bar)\g{-1})xyz/, $message);
1399 my $message = '$REGMARK';
1403 like('foofoo', qr/foo (*MARK:foo) (?{push @r,$REGMARK}) /x, $message);
1404 is("@r","foo", $message);
1405 is($REGMARK, "foo", $message);
1406 unlike('foofoo', qr/foo (*MARK:foo) (*FAIL) /x, $message);
1407 is($REGMARK, '', $message);
1408 is($REGERROR, 'foo', $message);
1412 my $message = '\K test';
1416 is($x, "abc.def.ghi", $message);
1420 is($x, "one two four", $message);
1424 is($x, "aabbccddee", $message);
1539 my $message = "ASCII pattern that really is UTF-8";
1543 like($c, qr/${c}|\x{100}/, $message);
1544 is("@w", '', $message);
1548 my $message = "Corruption of match results of qr// across scopes";
1551 is("$1$2", "foobar", $message);
1554 is("$1$2", 'foooooobaaaaar', $message);
1556 is("$1$2", "foobar", $message);
1560 my $message = "HORIZWS";
1564 is($_, "hhHHhHhhHH", $message);
1569 is($_, "hhHHhHhhHH", $message);
1659 my $message = "BBC(Bleadperl Breaks CPAN) Today: String::Multibyte";
1667 is(@a,3, $message);
1669 is("@a","$esc$hyp=$hyp=$esc$esc", $message);
1674 my $message = 'Test keys in %+ and %-';
1678 is((join ",", sort keys %+), "foo", $message);
1679 is((join ",", sort keys %-), "foo", $message);
1680 is((join ",", sort values %+), "a", $message);
1681 is((join ",", sort map "@$_", values %-), "a ", $message);
1683 is((join ",", sort keys %+), "bar,quux", $message);
1684 is((join ",", sort keys %-), "bar,quux", $message);
1685 is((join ",", sort values %+), "a,c", $message); # leftmost
1686 is((join ",", sort map "@$_", values %-), "a b,c", $message);
1688 is((join ",", sort keys %+), "un", $message);
1689 is((join ",", sort keys %-), "deux,un", $message);
1690 is((join ",", sort values %+), "a", $message);
1691 is((join ",", sort map "@$_", values %-), ",a", $message);
2135 my $message = "Lookbehind with \\xdf matchable compiles";
2142 is($@, '', $message);
2143 object_ok($r, 'Regexp', $message);
2368 my $message = "Substitution with lookahead (possible segv)";
2371 is($_, "ns_1ns_1ns_1", $message);
2374 is($_, "ns_1", $message);
2377 is($_, "!Bang!1!Bang!2!Bang!3!Bang!", $message);
2382 my $message = "U+0FFFF shouldn't crash the regex engine";
2389 ok(1, $message); # If it didn't crash, it worked.