Home
last modified time | relevance | path

Searched refs:like (Results 1 – 25 of 2337) sorted by relevance

12345678910>>...94

/openbsd-src/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:]]
30 like(uni_to_native("\x85"), qr/(?[ \t + \… ])/, 'can escape NEL to match');
31 like(uni_to_native("\x85"), qr/(?[ [\…] ])/, '... including within nested []');
32 like("\t", qr/(?[ \t + \… ])/, 'can do basic union');
33 like("\cK", qr/(?[ \s ])/, '\s matches \cK');
35 like(" ", qr/(?[ \s - \cK ])/, 'can do basic subtraction');
36 like(":", qr/(?[ [:] ])/, '[:] is not a posix class');
38 like("\t", qr/(?[ ! [ ^ \t ] ])/, 'can do basic complement');
40 like("\r", qr/(?[ ! \t ])/, 'can do basic complement');
[all …]
H A Dpat_advanced.t43 like "\x8e", qr/[\x89-\x91]/, '"\x8e" =~ /[\x89-\x91]/';
44 like "\xce", qr/[\xc9-\xd1]/, '"\xce" =~ /[\xc9-\xd1]/';
45 like "\xd0", qr/[\xc9-\xd1]/, '"\xd0" =~ /[\xc9-\xd1]/';
60 like "\x{ab}", qr/\x{ab}/, '"\x{ab}" =~ /\x{ab}/ ';
61 like "\x{abcd}", qr/\x{abcd}/, '"\x{abcd}" =~ /\x{abcd}/';
244 like ($x, qr/^\x4EE$/, "Check only 2 bytes of hex are matched.");
247 like ($x, qr/^\x4Ei$/, "Check that invalid hex digit stops it (2)");
250 like ($x, qr/^\x4j$/, "Check that invalid hex digit stops it (1)");
253 like ($x, qr/^\xk$/, "Check that invalid hex digit stops it (0)");
256 like (
[all...]
H A Dkeep_tabs.t10 like("\t", qr/[a b]/x, '\t not ignored under /x');
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');
18 like("\t", qr/(?x:[a b])/, '\t not ignored under /x');
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])/');
[all …]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dsignatures.t24 like $@, qr{syntax error at foo line 8}, "error when not enabled 1";
27 like $@, qr{syntax error at foo line 8}, "error when not enabled 2";
62 like $@, _create_mismatch_regexp('main::t002', 1, 0);
64 like $@, _create_mismatch_regexp('main::t002', 2, 0);
71 like $@, _create_mismatch_regexp('main::t003', 1, 0);
73 like $@, _create_mismatch_regexp('main::t003', 2, 0);
79 like $@, _create_mismatch_regexp('main::t006', 0, 1);
83 like $@, _create_mismatch_regexp('main::t006', 2, 1);
85 like $@, _create_mismatch_regexp('main::t006', 3, 1);
91 like
[all...]
H A Drequire_errors.t30 like $@, qr/^Can't locate $file in \@INC \(\@INC[\w ]+: \Q@INC\E\) at/,
126 like $err, $exp,
135 like $@, qr/^Bareword in require must not start with a double-colon:/,
142 like $@, qr/^Can't locate $nonfile\.ph in \@INC \(did you run h2ph\?\) \(\@INC[\w ]+: @INC\) at/;
149 …like $@, qr/^Can't locate \Q$file\E in \@INC \(change \.h to \.ph maybe\?\) \(did you run h2ph\?\)…
158 like $@, qr/^Can't locate \Q$file\E in \@INC \(did you run h2ph\?\) \(\@INC[\w ]+: @INC\) at/,
163 like $@, qr/^<> at require-statement should be quotes at /, 'require <> error';
193 like $@,
205 like $@,
222 like $@, qr/^Can't locate strict\.pm\\0invalid: /, 'require nul check [perl #117265]';
[all …]
H A Dsmartkve.t31 like($@, $errpat,
37 like($@, $errpat,
44 like($@, qr/Type of arg 1 to keys must be hash/,
49 like($@, $errpat,
54 like($@, $errpat,
62 like($@, $errpat,
68 like($@, $errpat,
75 like($@, qr/Type of arg 1 to values must be hash/,
80 like($@, $errpat,
85 like($@, $errpat,
[all …]
H A Dlvref.t11 like $@, qr/^Experimental aliasing via reference not enabled/,
14 like $@, qr/^Experimental aliasing via reference not enabled/,
24 like $w, qr/^Aliasing via reference is experimental/,
29 like $w, qr/^Aliasing via reference is experimental/,
503 like $@, qr/^Assigned value is not a reference at/, 'assigning non-ref';
505 like $@, qr/^Assigned value is not a SCALAR reference at/,
508 like $@, qr/^Assigned value is not a SCALAR reference at/,
511 like $@, qr/^Assigned value is not an ARRAY reference at/,
514 like $@, qr/^Assigned value is not an ARRAY reference at/,
517 like
[all...]
/openbsd-src/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-src/gnu/usr.bin/perl/cpan/Pod-Simple/t/
H A Daccept05.t33 is( $x->_out( "=pod\n\nI like pie.\n"),
34 '<Document><Para>I like pie.</Para></Document>'
36 is( $x->_out( "=extend N C Y,W\n\nI like pie.\n"),
37 '<Document><Para>I like pie.</Para></Document>'
39 is( $x->_out( "=extend N C,F Y,W\n\nI like pie.\n"),
40 '<Document><Para>I like pie.</Para></Document>'
42 is( $x->_out( "=extend N C,F,I Y,W\n\nI like pie.\n"),
43 '<Document><Para>I like pie.</Para></Document>'
54 is( $x->_out( "=extend N B Y,W\n\nI N<like> pie.\n"),
55 '<Document><Para>I <B>like</
[all...]
H A Dfor.t27 is( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo stuff\n\nYup.\n"),
28 '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>'
30 is( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk stuff\n\nYup.\n"),
31 '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>'
33 is( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"),
34 '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>'
36 is( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"),
37 '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>'
39 is( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"),
40 '<Document><Para>I like pi
[all...]
H A Dfornot.t27 is( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo stuff\n\n=for !mojojojo bzarcho\n\nYup.\n"),
28 '<Document><Para>I like pie.</Para><for target="!mojojojo" target_matching="!"><Data xml:space="preserve">bzarcho</Data></for><Para>Yup.</Para></Document>'
30 is( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk stuff\n\n=for !psketti,mojojojo,crunk bzarcho\n\nYup.\n"),
31 '<Document><Para>I like pie.</Para><for target="!psketti,mojojojo,crunk" target_matching="!"><Data xml:space="preserve">bzarcho</Data></for><Para>Yup.</Para></Document>'
34 is( $x->_out( "=pod\n\nI like pie.\n\n=for :mojojojo stuff\n\n=for :!mojojojo bzarcho\n\nYup.\n"),
35 '<Document><Para>I like pie.</Para><for target=":!mojojojo" target_matching="!"><Para>bzarcho</Para></for><Para>Yup.</Para></Document>'
37 is( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk stuff\n\n=for :!psketti,mojojojo,crunk bzarcho\n\nYup.\n"),
38 '<Document><Para>I like pie.</Para><for target=":!psketti,mojojojo,crunk" target_matching="!"><Para>bzarcho</Para></for><Para>Yup.</Para></Document>'
40 is( $x->_out( "=pod\n\nI like pie.\n\n=for :mojojojo stuff\n\n=for :!mojojojo I<bzarcho>\n\nYup.\n"),
41 '<Document><Para>I like pi
[all...]
H A Dbegin.t32 like( ($out = $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nStuff\n\n=end blorp\n\nYup.\n")),
36 like( ($out = $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\nStuff\n\n=end :blorp\n\nYup.\n")),
39 like( ($out = $x->_out( \&moj, "=pod\n\nI like pie.\n\n=begin :mojojojo\n\n=begin :zaz\n\nStuff\n\n=end :blorp\n\nYup.\n")),
50 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\nStuff\n\n=end mojojojo\n\nYup.\n"),
51 '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>'
53 is( $x->_out( "=pod\n\nI like pie.\n\n=begin mojojojo\n\n\nStuff\n\n=end mojojojo\n\nYup.\n"),
54 '<Document><Para>I like pi
[all...]
/openbsd-src/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?\)/;
39 like lm(qr/a\$b\@c\\d/), qr/main::lm\(qr\(a\\\$b\\\@c\\\\d\)u?\)/;
40 like lm(qr/a\nb/), qr/main::lm\(qr\(a\\nb\)u?\)/;
41 like lm(rx("a\nb")), qr/main::lm\(qr\(a\\x\{$nl_as_hex\}b\)u?\)/;
42 like lm(qr/a\x{666}b/), qr/main::lm\(qr\(a\\x\{666\}b\)u?\)/;
[all …]
H A Darg_string.t24 like lm(3), qr/main::lm\(3\)/;
25 like lm(substr("3\x{2603}", 0, 1)), qr/main::lm\(3\)/;
26 like lm(-3), qr/main::lm\(-3\)/;
27 like lm(-3.5), qr/main::lm\(-3\.5\)/;
28 like lm(-3.5e30),
35 like lm(""), qr/main::lm\(""\)/;
36 like lm("foo"), qr/main::lm\("foo"\)/;
37 like lm("a&b"), qr/main::lm\("a&b"\)/;
38 like lm("a\$b\@c\\d\"e"), qr/main::lm\("a\\\$b\\\@c\\\\d\\\"e"\)/;
39 like lm("a\nb"), qr/main::lm\("a\\x\{$nl_as_hex\}b"\)/;
[all …]
H A Dstash_deletion.t18 like($@, qr/^blah at foo line 1/);
24 like($@, qr/^blah at foo line 1/);
37 like($@, qr/^blah at foo line 1/);
43 like($@, qr/^blah at foo line 1/);
60 like($@, qr/^blah at foo line 1/);
66 like($@, qr/^blah at foo line 1/);
72 like($@, qr/^blah at foo line 1/);
103 like($@, qr/$unknown_pat|Sub::/);
110 like($@, qr/(?:$unknown_pat|SubHelper::).*(?:$unknown_pat|Sub::)/s);
/openbsd-src/gnu/usr.bin/perl/lib/
H A DInternals.t24 like($@, $ro_err, q/Can't modify read-only scalar/);
26 like($@, $ro_err, q/Can't undef read-only scalar/);
45 like($@, $ro_err, q/Can't undef read-only array/);
47 like($@, $ro_err, q/Can't delete from read-only array/);
49 like($@, $ro_err, q/Can't shift read-only array/);
51 like($@, $ro_err, q/Can't push onto read-only array/);
53 like($@, $ro_err, q/Can't reassign read-only array/);
76 like($@, $ro_err, 'Read-only array element moved');
88 like($@, $ro_err, q/Can't modify read-only array element/);
90 like($@, $ro_err, q/Can't undef read-only array element/);
[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');
73 like(_slurp($testreport), qr/Perl reported to build OK on this system/,
85 like($result, qr/Report saved/, 'build failure report saved');
86 like(_slurp($testreport), qr/This is a build failure report for perl/,
107 like($result, qr/Report saved/, 'fake bug report saved');
109 like($contents, qr/Subject: testingperlbug/,
111 like($contents, qr/testreportbody/, 'body included in fake bug report');
[all …]
/openbsd-src/gnu/usr.bin/perl/t/comp/
H A Dparser.t28 sub like {
59 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
94 like( $@, qr/^Can't modify constant item in tie /,
102 like( $@, qr/^Can't modify constant item in read /,
107 like( $@, qr/error/, 'lexical block discarded by yacc' );
111 like( $@, qr/^Missing control char name in \\c/, q("\c" string) );
114 like( $@, qr/Final \$ should be \\\$ or \$name/, q($ at end of "" string) );
190 like( $@, qr/(?i:syntax|parse) error .* near "F 1"/, "unknown filetest operators" );
207 like( $@, qr/syntax error/, "use without body" );
213 like($@, qr/Illegal declaration of subroutine main::_/, "readline operator as prototype");
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/
H A Dfile.t82 like $status, $expected_status,
84 like $summary, $expected_summary,
111 like $status, $expected_status,
113 like $summary, $expected_summary,
146 like $status, $expected_status,
148 like $summary, $expected_summary,
170 like $status, $expected_status,
172 like $summary, $expected_summary,
191 like $status, $expected_status,
193 like
[all...]
H A Dharness.t58 like $@, qr/\QUnknown arguments to TAP::Harness::new (no_such_key)/,
141 like $status, $expected_status,
143 like $summary, $expected_summary,
176 like $status, $expected_status,
178 like $summary, $expected_summary,
221 like $status, $expected_status,
223 like $summary, $expected_summary,
244 like $status, $expected_status,
246 like $summary, $expected_summary,
265 like
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/version/t/
H A Dcoretests.pm54 like($@, qr/multiple underscores/,
58 like($@, qr/underscores before decimal/,
62 like($@, qr/alpha without decimal/,
66 like($@, qr/non-numeric data/,
70 like($@, qr/negative version number/,
77 like($@, qr/non-numeric data/,
81 like($@, qr/non-numeric data/,
172 # "reset" before like() has a chance to evaluate it. Quite maddening!!!
174 like $err, qr/^Invalid version format/, "error with $version < 'version'";
250 like(
[all...]
H A D06noop.t15 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
17 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
19 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
21 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
23 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
26 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
28 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
30 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
32 like $@, qr/operation not supported with version object/, 'No math ops with version objects';
/openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/
H A Dautodie.t13 like($@,qr{Can't open},"autodie qw(open) in lexical scope");
22 like($@,qr{Can't open},"autodie qw(open) in lexical scope 2");
33 like($@,qr{Can't open},"autodie qw(open) in lexical scope 3");
45 like($@, qr{Can't open}, "vanilla use autodie turns on everything.");
54 like($@,qr{Can't open},"autodie q(:io) makes autodying open");
73 like($@, qr{Can't open}, "Package fatal working");
82 like($@, qr{Can't open}, "autodie and Fatal works");
89 like($@, qr{Can't open}, "Package fatal working after autodie");
101 like($@, qr{not allowed}, "Using fatal after autodie is an error.");
/openbsd-src/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' );
58 like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input' );
67 like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input affects the current file' );
78 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
83 like( $r, qr/^$b(?:\r?\n)?$/s, '#!perl -C' );
88 like( $r, qr/^${b}1(?:\r?\n)?$/s, '#!perl -C followed by another switch' );
[all …]
/openbsd-src/gnu/usr.bin/perl/dist/IO/t/
H A Dio_getline.t14 like($line, qr/^This is the/, "Read first line");
21 like($line, qr/^This distribution/, "Read third line");
25 like($lines[-2], qr/^Share and Enjoy!/, "Share and Enjoy!");
38 like($line, qr/^This is the/, "Read first line again");
44 like($@, qr/^usage.*getline\(\) at .*\bio_getline\.t line /, 'getline usage');
45 like($line, qr/^This is the/, '$line unchanged');
51 like($@, qr/^usage.*getlines\(\) at .*\bio_getline\.t line /, 'getlines usage');
58 like($@, qr/^Can't call .*getlines in a scalar context.* at .*\bio_getline\.t line /,
68 like($line, qr/^This is the/, '$line unchanged');
72 like($context, qr/^This distribution/, "Read third line");
[all …]

12345678910>>...94