t/op/pat.t

301 # 20000 nodes, each taking 3 words per string, and 1 per branch
325 $_ = " a (bla()) and x(y b((l)u((e))) and b(l(e)e)e";
404 print "not " unless $@ and $@ =~ /not allowed at runtime/ and $blah == 12;
412     print "#'$@','$res','$blah'\nnot " unless not $@ and $res;
414     print "#'$@','$res','$blah'\nnot " unless $@ and $@ =~ /not allowed at runtime/ and $blah == 12;
462 print "not " unless $^R eq '67' and $x eq '12';
468 print "not " unless $^R eq '79' and $x eq '12';
524 print "not " unless $1 and /$1/;
567     unless $b eq '14' and $@ =~ /Eval-group not allowed/ and not $match;
784 print "not " unless $str =~ /.\G./ and $& eq 'bc';
788 print "not " unless $str =~ /\G../ and $& eq 'cd';
795 	and $foo eq 'abcde' and $bar eq 2;
803 	and $foo eq 'abcde' and $bar eq 2 and pos $str eq 3;
812 	and $foo eq 'abcde' and $bar eq 2;
819 	and $foo eq 'abcde' and $bar eq 2 and pos eq 3;
827     unless $foo eq 'abcde' and $bar eq 2 and not defined pos;
834     unless s/b(?{$foo = $_; $bar = pos})c/x/g and $foo eq 'abcde|abcde'
835 	and $bar eq 8 and $_ eq 'axde|axde';
919 # See if $i work inside (?{}) in the presense of saved substrings and
941 "something { long { and } hairy" =~ $brackets;
945 "something { long { and } hairy" =~ m/((??{ $brackets }))/;
946 print "not " unless $1 eq "{ and }";
952 m/^-.*bb/mg and print "not ";
958 $text =~ /\GXb*X/g and print 'not ';
963 $text =~ /^\s*A/m and print 'not ';
1073 $a and $a =~ /^Object\sS/ or print "# '$a' \nnot ";
1078 'a1b' =~ ('xyz' =~ /y/) and $` eq 'a' or print "not ";
1082 'a1b' =~ ('xyz' =~ /t/) and $` eq 'a' or print "not ";
1101 # be 11 both in ASCII and EBCDIC.
1235 # The 242 and 243 go with the 244 and 245.
1376     # classes in Unicode.  The mixing of literals and \N{...} is
1698     print "not " if     $x =~ /\P{InLatin1Supplement}/ and ord("A") != 193;
1853 # Amazingly vertical tabulator is the same in ASCII and EBCDIC.
1867 $T="ok 640\n";if ($x =~ /cde/ and not defined $^N)         {print $T} else {print "not $T"};
1868 $T="ok 641\n";if ($x =~ /(cde)/          and $^N eq "cde") {print $T} else {print "not $T"};
1869 $T="ok 642\n";if ($x =~ /(c)(d)(e)/      and $^N eq   "e") {print $T} else {print "not $T"};
1870 $T="ok 643\n";if ($x =~ /(c(d)e)/        and $^N eq "cde") {print $T} else {print "not $T"};
1871 $T="ok 644\n";if ($x =~ /(foo)|(c(d)e)/  and $^N eq "cde") {print $T} else {print "not $T"};
1872 $T="ok 645\n";if ($x =~ /(c(d)e)|(foo)/  and $^N eq "cde") {print $T} else {print "not $T"};
1873 $T="ok 646\n";if ($x =~ /(c(d)e)|(abc)/  and $^N eq "abc") {print $T} else {print "not $T"};
1874 $T="ok 647\n";if ($x =~ /(c(d)e)|(abc)x/ and $^N eq "cde") {print $T} else {print "not $T"};
1875 $T="ok 648\n";if ($x =~ /(c(d)e)(abc)?/  and $^N eq "cde") {print $T} else {print "not $T"};
1876 $T="ok 649\n";if ($x =~ /(?:c(d)e)/      and $^N eq  "d" ) {print $T} else {print "not $T"};
1877 $T="ok 650\n";if ($x =~ /(?:c(d)e)(?:f)/ and $^N eq  "d" ) {print $T} else {print "not $T"};
1878 $T="ok 651\n";if ($x =~ /(?:([abc])|([def]))*/ and $^N eq  "f" ){print $T} else {print "not $T"};
1879 $T="ok 652\n";if ($x =~ /(?:([ace])|([bdf]))*/ and $^N eq  "f" ){print $T} else {print "not $T"};
1880 $T="ok 653\n";if ($x =~ /(([ace])|([bd]))*/    and $^N eq  "e" ){print $T} else {print "not $T"};
1882  $T="ok 654\n";if($x =~ /(([ace])|([bdf]))*/   and $^N eq  "f" ){print $T} else {print "not $T"};
1891 $T="ok 656\n";if ($x =~ /a([abc])(?{$y=$^N})c/      and $y eq "b" ){print $T} else {print "not $T"};
1892 $T="ok 657\n";if ($x =~ /a([abc]+)(?{$y=$^N})d/     and $y eq "bc"){print $T} else {print "not $T"};
1893 $T="ok 658\n";if ($x =~ /a([abcdefg]+)(?{$y=$^N})d/ and $y eq "bc"){print $T} else {print "not $T"};
1894 $T="ok 659\n";if ($x =~ /(a([abcdefg]+)(?{$y=$^N})d)(?{$z=$^N})e/ and $y eq "bc" and $z eq "abcd")
1896 $T="ok 660\n";if ($x =~ /(a([abcdefg]+)(?{$y=$^N})de)(?{$z=$^N})/ and $y eq "bc" and $z eq "abcde")
2042     # Check that \x## works. 5.6.1 and 5.005_03 fail some of these.
2064     print "# and now again in [] ranges\n";
2113     print "# and now again in [] ranges\n";
2151     # Complement, leading and trailing whitespace.
2275     print "# the basic character classes and Unicode \n";
2291     print "# folding matches and Unicode\n";
2423     print "#\\C and \\X\n";
2532     print "# Does lingering (and useless) UTF8 flag mess up /i matching?\n";
2681     print "# UTF-8 hash keys and /\$/\n";
2714     print "# SEGV in s/// and UTF-8\n";
3032     ok($a =~ /^\C\C\C/,    'match three \C on 2-byte UTF-8 and a byte');
3050     ok($a =~ /^\C\C\C\C/,   'match four \C on three-byte UTF-8 and a byte');
3160     ok("\x{100}\n" =~ /\x{100}\n$/, "UTF8 length cache and fbm_compile");
3170     ok(join(":", /\b(.)\x{100}/g) eq "a:/", "re_intuit_start and PL_bostr");