Home
last modified time | relevance | path

Searched refs:qr (Results 1 – 25 of 709) sorted by relevance

12345678910>>...29

/openbsd/gnu/usr.bin/perl/t/re/
H A Dregex_sets.t25 like("a", qr/(?[ [a] # This is a comment
27 like("a", qr/(?[ [a] # [[:notaclass:]]
70 my $ascii_word = qr/(?[ \w ])/a;
85 my $kelvin = qr/(?[ \N{KELVIN SIGN} ])/;
86 my $fold = qr/(?[ $kelvin ])/i;
92 my $still_fold = qr/(?[ $kelvin_fold ])/;
158 eval { $_ = '/(?[(\c]) /'; qr/$_/ };
162 eval { $_ = '(?[(\c])'; qr/$_/ };
164 eval { $_ = '(?[(\c]) ]\b'; qr/$_/ };
166 eval { $_ = '(?[\c[]](])'; qr/$_/ };
[all …]
H A Dpat_advanced.t137 foreach (['(?g-o)', qr/^Useless \(\?g\)/, qr/^Useless \(\?-o\)/],
138 ['(?g-c)', qr/^Useless \(\?g\)/, qr/^Useless \(\?-c\)/],
140 ['(?o-cg)', qr/^Useless \(\?o\)/, qr/^Useless \(\?-c\)/],
141 ['(?ogc)', qr/^Useless \(\?o\)/, qr/^Useless \(\?g\)/,
142 qr/^Useless \(\?c\)/],
1439 our $qr = qr/ (o) (??{ $1 }) /x;
1549 my $qr = qr/(fo+)(ba+r)/;
1585 foreach my $t ([\@h, qr/\h/, qr/\h+/],
1586 [\@v, qr/\v/, qr/\v+/],
1587 [\@lb, qr/\R/, qr/\R+/],) {
[all …]
H A Dpat_re_eval.t45 $a = qr/(?{++$b})/;
99 $a = qr /$x/;
146 my $nested_tags = qr{
196 $nested_tags = qr{
659 $r = qr/$r(??{$x})/;
847 my $r = qr/(?{$t=$s+1})/;
1120 my $qr = qr/^(?{1})$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s$s/;
1141 @array = ('A', qr/(??{$bb})/, 'C', qr/(??{$dd})/, 'E');
1359 my $qr = qr/^a(??{ $b."c" })$/;
1361 $qr = qr/(??{ $b."c" })$/;
[all …]
H A Dkeep_tabs.t11 unlike("\t", qr/[a b]/xx, '\t ignored under /xx');
12 like("a", qr/[a b]/xx, '"a" matches qr/[a b]/xx');
13 like("b", qr/[a b]/xx, '"b" matches qr/[a b]/xx');
14 like("\t", qr/[a\ b]/xx, '"\t" matches qr/[a\ b]/xx');
15 like("a", qr/[a\ b]/xx, '"a" matches qr/[a\ b]/xx');
16 like("b", qr/[a\ b]/xx, '"b" matches qr/[a\ b]/xx');
20 like("a", qr/(?xx:[a b])/, '"a" matches qr/(?xx:[a b])/');
21 like("b", qr/(?xx:[a b])/, '"b" matches qr/(?xx:[a b])/');
22 like("\t", qr/(?xx:[a\ b])/, '"\t" matches qr/(?xx:[a\ b])/');
23 like("a", qr/(?xx:[a\ b])/, '"a" matches qr/(?xx:[a\ b])/');
[all …]
H A Drxcode.t12 like( 'a', qr/^a(?{1})(?:b(?{2}))?/, 'a =~ ab?' );
16 unlike( 'abc', qr/^a(?{3})(?:b(?{4}))$/, 'abc !~ a(?:b)$' );
20 like( 'ab', qr/^a(?{5})b(?{6})/, 'ab =~ ab' );
24 like( 'ab', qr/^a(?{7})(?:b(?{8}))?/, 'ab =~ ab?' );
29 like( 'ab', qr/^a(?{9})b?(?{10})/, 'ab =~ ab? (2)' );
33 like( 'ab', qr/^(a(?{11})(?:b(?{12})))?/, 'ab =~ (ab)? (3)' );
37 unlike( 'ac', qr/^a(?{13})b(?{14})/, 'ac !~ ab' );
41 like( 'ac', qr/^a(?{15})(?:b(?{16}))?/, 'ac =~ ab?' );
51 unlike( 'a', qr/^a(?{103})b(?{104})/, 'a !~ ab with code push' );
100 like eval { qr/@a(?{})/ }, qr/1 2 3\(\?\{\}\)/, 'qr/@a(?{})/';
[all …]
H A Dpat.t1060 $brackets = qr {
1303 my $qr= qr/$str/;
1306 $qr= qr/$str/;
1408 my $qr = qr//;
1421 /$o$qr/;
1488 like($@, ($i == 3 ? qr/^$/ : qr/no method found,/),
1494 like($@, ($i == 3 ? qr/^$/ : qr/no method found,/),
1837 my $x = qr/[x]/i;
1864 eval qq{ qr/$pat/ };
1868 like($e, qr{\x{123}},
[all …]
H A Dpat_rt_report.t364 like($s, qr/\x{a0}/, $message);
518 qr/Malformed UTF-8/,
894 like($a, qr/\A(?>[a-z])*\z/,
899 like($b, qr/\A(?>[a-z])*\z/,
942 like("aaa", qr/$s/, $message);
946 my $cond_re = qr/\s*
962 my $re = qr/A(??{"1"})/;
987 qr{a(x|y)*b}, # CURLYM
988 qr{a(x|y)*?b}, # .. with minmod
990 qr{a([wx]|[yz])*?b},
[all …]
H A Drecompile.t103 "a" =~ qr/$_/ for qw(a a a);
162 "a" =~ qr/a$_/ for $x, $x, $x;
166 my $x = qr/(?{1})/;
171 my $x = qr/(?{1})/;
172 "a" =~ qr/a$_/ for $x, $x, $x;
176 my $x = qr/(?{1})/;
183 my $x = qr/(?{1})/;
186 "a" =~ qr/a$x$_/ for $y, $y, $y;
190 my $x = qr/a/i;
191 my $y = qr/a/;
[all …]
H A Doverload.t49 my $r = qr/$obj/;
51 $r = qr/foo$obj/;
65 overload::constant qr => sub {
82 return qr/(?{ $OL_QR::count++ })$$re/;
113 my $qr;
118 $qr = eval q{ qr/^foo$/; };
123 $qr = eval q{ qr/^foo$(?{ $OL_QR::count++ })/; };
149 $eval .= q{qr} if $has_qr;
170 like($err, qr/Eval-group not allowed at runtime/,
212 use overload 'qr' => sub { return qr/a/ };
[all …]
/openbsd/gnu/usr.bin/perl/dist/Carp/t/
H A Darg_regexp.t33 like lm(qr/3/), qr/main::lm\(qr\(3\)u?\)/;
34 like lm(qr/a.b/), qr/main::lm\(qr\(a\.b\)u?\)/;
35 like lm(qr/a.b/s), qr/main::lm\(qr\(a\.b\)u?s\)/;
36 like lm(qr/a.b$/s), qr/main::lm\(qr\(a\.b\$\)u?s\)/;
37 like lm(qr/a.b$/sm), qr/main::lm\(qr\(a\.b\$\)u?ms\)/;
38 like lm(qr/foo/), qr/main::lm\(qr\(foo\)u?\)/;
40 like lm(qr/a\nb/), qr/main::lm\(qr\(a\\nb\)u?\)/;
42 like lm(qr/a\x{666}b/), qr/main::lm\(qr\(a\\x\{666\}b\)u?\)/;
44 like lm(qr/\x{666}b/), qr/main::lm\(qr\(\\x\{666\}b\)u?\)/;
46 like lm(qr/a\x{666}/), qr/main::lm\(qr\(a\\x\{666\}\)u?\)/;
[all …]
H A Darg_string.t24 like lm(3), qr/main::lm\(3\)/;
26 like lm(-3), qr/main::lm\(-3\)/;
27 like lm(-3.5), qr/main::lm\(-3\.5\)/;
29 qr/main::lm\(
35 like lm(""), qr/main::lm\(""\)/;
36 like lm("foo"), qr/main::lm\("foo"\)/;
37 like lm("a&b"), qr/main::lm\("a&b"\)/;
41 like lm("\x{666}b"), qr/main::lm\("\\x\{666\}b"\)/;
48 like lm($arg), qr/main::lm\("fo"\.\.\.\)/;
51 like lm($arg), qr/main::lm\("\Q$arg\E"\)/;
[all …]
/openbsd/gnu/usr.bin/perl/ext/re/t/
H A Dreflags.t27 like " ", qr/[a b]/, 'use re "/x" [a b]';
82 is qr//, '(?^u:)', 'use re "/u" with active locale';
91 is qr//, '(?^:)',
103 is qr//, '(?^:)', 'use re "/d" in Unicode scope';
116 is qr//, '(?^u:)', 'use re "/u"';
118 is qr//, '(?^:)', 'no re "/u" reverts to /d';
120 is qr//, '(?^:)', 'no re "/u" is a no-op when not on';
145 is qr//, '(?^ai:)', 'use re "/ia"';
147 is qr//, '(?^:)', 'no re "/ia"';
149 is qr//, '(?^aai:)', 'use re "/aai"';
[all …]
H A Dre_funcs.t17 my $qr=qr/here .* there/x;
18 my ($anchored,$floating)=regmust($qr);
41 my $o = optimization(qr{foo});
45 $o = optimization(qr{foo(?=bar)});
48 $o = optimization(qr{.\G.});
52 $o = optimization(qr{a|bc});
57 $o = optimization(qr{foo});
64 $o = optimization(qr{.foo});
69 $o = optimization(qr{.foo\x{100}});
76 $o = optimization(qr{.x?foo});
[all …]
/openbsd/gnu/usr.bin/perl/dist/Thread-Queue/t/
H A D04_errs.t12 like($@, qr/Invalid 'count'/, $@);
14 like($@, qr/Invalid 'count'/, $@);
16 like($@, qr/Invalid 'count'/, $@);
18 like($@, qr/Invalid 'count'/, $@);
20 like($@, qr/Invalid 'count'/, $@);
23 like($@, qr/Invalid 'count'/, $@);
25 like($@, qr/Invalid 'count'/, $@);
27 like($@, qr/Invalid 'count'/, $@);
29 like($@, qr/Invalid 'count'/, $@);
31 like($@, qr/Invalid 'count'/, $@);
[all …]
/openbsd/gnu/usr.bin/perl/t/op/
H A Dqr.t13 return qr/Good/;
32 like("$c", qr/Good/);
34 like("$d", qr/Good/);
42 like("$c", qr/Good/);
68 $_ =~ s/${qr||}/baz/;
79 $t = ${qr||};
83 $t2 = ${qr||};
90 $_ = ${qr//};
95 $_ = ${qr//};
107 $_[0] = ${qr//};
[all …]
H A Dsmartmatch.t337 qr// \&bar
347 ! qr// \&foo
412 =! qr/a*/ {}
443 [["foo"], ["bar"]] [qr/o/, qr/a/]
444 ! [["foo"], ["bar"]] [qr/ARRAY/, qr/ARRAY/]
445 ["foo", "bar"] [qr/o/, qr/a/]
446 ! [qr/o/, qr/a/] ["foo", "bar"]
519 "x" qr/x/
520 ! "x" qr/y/
523 12345 qr/3/
[all …]
/openbsd/gnu/usr.bin/perl/lib/
H A Dperl5db.t798 qr/
931 qr/
1138 qr/
1257 qr/
1281 qr/
1335 qr/
1363 qr/
1389 qr/
1425 qr/
1457 qr/
[all …]
H A Dperlbug.t51 like($result, qr/Site configuration information/,
58 like($result, qr/Complete configuration data/,
65 like($result, qr/Please use perlbug interactively./,
72 like($result, qr/Report saved/, 'build report saved');
85 like($result, qr/Report saved/, 'build failure report saved');
107 like($result, qr/Report saved/, 'fake bug report saved');
109 like($contents, qr/Subject: testingperlbug/,
139 like($result, qr/Report saved/, 'fake bug report saved');
142 like($contents, qr/Subject: testing perlbug/,
144 like($contents, qr/$A/, 'body included in fake bug report');
[all …]
H A Doverloading.t22 my $y = qr//;
26 is( "$y", $ystr, "stringifies qr//" );
54 my $q = qr/abc/;
58 no overloading 'qr';
59 my $q = qr/abc/;
60 ok "abc" =~ $q, '=~ qr// with no "" or qr overloading';
61 ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" or qr overloading';
75 is( "$y", $ystr, "stringifies qr//" );
81 is( "$y", $ystr, "stringifies qr//" );
102 is( "$y", $ystr, "stringifies qr//" );
[all …]
/openbsd/gnu/usr.bin/perl/t/lib/croak/
H A Dregcomp11 qr/\N{U+7FFFFFFF}/;
12 qr/\N{U+1_0000_0000}/;
74 qr/(a)/;
75 qr/((a))/;
80 qr/(?=a\Ka)a/;
91 qr/(?!a\Ka)a/;
102 qr/(?<=a\Ka)a/;
113 qr/(?<!a\Ka)a/;
164 qr/(?=(?=x)x)\K/;
165 qr/(?!(?=x)x)\K/;
[all …]
/openbsd/gnu/usr.bin/perl/t/comp/
H A Dparser.t94 like( $@, qr/^Can't modify constant item in tie /,
102 like( $@, qr/^Can't modify constant item in read /,
140 is(qr/${a}\{/, '(?^:A\{)', "interpolation, qr//");
207 like( $@, qr/syntax error/, "use without body" );
273 like($@, qr/Can't modify/, 'croak cleanup 3' );
337 like($@, qr/^Missing \$ on loop variable /,
441 like "blah blah blah\n", qr/${\ <<END
445 like "blah blah blah\n", eval q|qr/${\ <<END
649 my $this_file = qr/parser\.t(?:\.[bl]eb?)?$/;
677 check(qr/^KASHPRITZA$/, 23, "bare filename");
[all …]
/openbsd/sys/dev/sbus/
H A Dqec.c346 p = qr->rb_membase; in qec_meminit()
347 dma = qr->rb_dmabase; in qec_meminit()
349 ntbuf = qr->rb_ntbuf; in qec_meminit()
350 nrbuf = qr->rb_nrbuf; in qec_meminit()
356 qr->rb_txddma = dma; in qec_meminit()
364 qr->rb_rxddma = dma; in qec_meminit()
372 qr->rb_txbuf = p; in qec_meminit()
380 qr->rb_rxbuf = p; in qec_meminit()
405 qr->rb_tdhead = qr->rb_tdtail = 0; in qec_meminit()
406 qr->rb_td_nbusy = 0; in qec_meminit()
[all …]
/openbsd/gnu/usr.bin/perl/t/run/
H A DswitchC.t26 like( $r, qr/^$b(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' );
31 like( $r, qr/^$b(?:\r?\n)?$/s, '-C2: no warning on UTF-8 output' );
42 like( $r, qr/^256(?:\r?\n)?$/s, '-CI: read in UTF-8 input' );
48 like( $r, qr/^$b(?:\r?\n)?$/s, '-CE: UTF-8 stderr' );
53 like( $r, qr/^$/s, '-Co: auto-UTF-8 open for output' );
78 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
83 like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
94 $r, qr/^${b}1(?:\r?\n)?$/s,
101 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
111 like( $r, qr/^Too late for "-CS" option at -e line 1\.$/s,
[all …]
/openbsd/gnu/usr.bin/perl/t/lib/warnings/
H A Dregcomp8 $r=qr/(??{ q"\\b+" })/;
32 $a = qr/\c,/;
33 $a = qr/[\c,]/;
35 $a = qr/\c,/;
36 $a = qr/[\c,]/;
53 qr/abc[fi[.00./i;
60 qr/(?[[[:word]]])/;
76 qr/(?[[:digit: ])/
90 qr/[\N{}]/;
97 qr/\N{}/;
[all …]
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/gcc.c-torture/unsorted/
H A Ddm.c11 struct dm qr; local
13 qr.q = a / b;
14 qr.r = a % b;
15 return qr;
20 struct dm qr; in main() local
22 qr = dm (100, 30); in main()
23 printf ("%u, %u\n", qr.q, qr.r); in main()

12345678910>>...29