Searched refs:qr (Results 1 - 25 of 104) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/t/
H A Dqr.t13 ok 'abc', qr/b/;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dcharset.t13 , qr/charset=ISO-8859-1/, "charset ISO-8859-1 is set by default for default content-type");
15 , qr/charset=ISO-8859-1/, "charset ISO-8859-1 is set by default for application/json content-type");
20 like($out, qr{Content-Type: text/plain; charset=UTF-8}, "setting charset alters header of text/plain");
25 like($out, qr{Content-Type: application/json; charset=UTF-8}, "setting charset alters header of application/json");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A Dfail.t26 like($warn,qr/in PerlIO layer/,"Got warning");
32 like($warn,qr/nonesuch/,"Got warning");
39 like($warn,qr/in PerlIO layer/,"Got warning");
45 like($warn,qr/nonesuch/,"Got warning");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A DswitchC.t28 like( $r, qr/^$b(?:\r?\n)?$/s, '-CO: no warning on UTF-8 output' );
39 like( $r, qr/^256(?:\r?\n)?$/s, '-CI: read in UTF-8 input' );
45 like( $r, qr/^$b(?:\r?\n)?$/s, '-CE: UTF-8 stderr' );
50 like( $r, qr/^$/s, '-Co: auto-UTF-8 open for output' );
57 like( $r, qr/^256(?:\r?\n)?$/s, '-Ci: auto-UTF-8 open for input' );
63 like( $r, qr/^256(?:\r?\n)?$/s, '-CA: @ARGV' );
H A Dswitcht.t21 like( $warning, qr/^Insecure .* $Tmsg/, ' taint warn' );
37 like( $warning, qr/^Insecure dependency in open $Tmsg/, 'open > taint warn' );
41 like( $warning, qr/^Insecure dependency in unlink $Tmsg/,
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dprompt.t22 like( $@, qr/^Not enough arguments for ExtUtils::MakeMaker::prompt/,
28 like( $@, qr/^prompt function called without an argument/,
36 like( $stdout->read, qr/^Foo\?\s*\n$/, ' question' );
39 like( $stdout->read, qr/^Foo\?\s*\n$/, ' question' );
42 like( $stdout->read, qr/^Foo\? \[Bar!\]\s+Bar!\n$/, ' question' );
55 like( $stdout->read, qr/^Foo\? \[Bar!\]\s*$/, ' question' );
H A DMkbootstrap.t56 like( $out->read, qr/bsloadlibs=foo/, 'should still report libraries' );
87 like( $@, qr/Unable to open dasboot\.bs/, 'should die given bad filename' );
97 like( $read, qr/Writing dasboot.bs/, 'should print status' );
98 like( $read, qr/containing: my/, 'should print verbose status on request' );
112 like( $file, qr/# dasboot DynaLoader/, 'file should have boilerplate' );
115 like( $file, qr/qw\(myarg\);/, 'should have written array to file' );
145 like( $file, qr/dl_findfile.+Larry/s, 'should load libraries if needed' );
146 like( $file, qr/Wall\n1;\n/ms, 'should write $DynaLoader::bscode if set' );
H A Dwritemakefile_args.t77 unlike( $warnings, qr/WARNING: .* takes/ );
88 unlike( $warnings, qr/WARNING: .* takes/ );
101 like( $warnings, qr{^WARNING: LIBS takes a array reference or string/number not a hash reference}m );
111 like( $warnings, qr{^WARNING: WIBBLE is not a known parameter.\n}m );
112 like( $warnings, qr{^WARNING: wump is not a known parameter.\n}m );
H A DPacklist.t80 like( $@, qr/No packlist filename/, 'write() should croak without packfile' );
98 like( $@, qr/Can't open file/, 'write() should croak on open failure' );
122 like( $@, qr/^No packlist filename/, 'read() should croak without packfile' );
126 like( $@, qr/^Can't open file/, 'read() should croak with bad packfile name' );
135 like( $file, qr/single\n/, 'key with value should be available' );
136 like( $file, qr!/\./abc\n!, 'key with no value should also be present' );
137 like( $file, qr/hash.+baz=bup/, 'key with hash value should be present' );
138 like( $file, qr/hash.+foo=bar/, 'second embedded hash value should appear');
/osnet-11/usr/src/lib/libast/common/string/
H A Dstropt.c68 int qr; local
127 ql = qr = 0;
135 else if (c == qr)
137 if (qr != ql)
140 qr = ql = 0;
147 else if (qr)
153 ql = qr = c;
162 qr = '}';
168 qr = ')';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DConfig.t41 like($Config{ivsize}, qr/^(4|8)$/, "ivsize is 4 or 8 (it is $Config{ivsize})");
45 like($Config{byteorder}, qr/^(1234|4321|12345678|87654321)$/, "byteorder is 1234 or 4321 or 12345678 or 87654321 (it is $Config{byteorder})");
65 like(Config::myconfig(), qr/osname=\Q$Config{osname}\E/, "myconfig");
66 like(Config::config_sh(), qr/osname='\Q$Config{osname}\E'/, "config_sh");
68 qr/^c.*?=/, 'config_re' );
82 like($out1, qr/^cc='\Q$Config{cc}\E';/, "config_vars cc");
83 like($out2, qr/^d_bork='UNKNOWN';/, "config_vars d_bork is UNKNOWN");
89 like($@, qr/Config is read-only/, "no STORE");
95 like($@, qr/Config is read-only/, "no DELETE");
101 like($@, qr/Confi
[all...]
H A Ddiagnostics.t23 like( $@, qr/^Base class package "I::do::not::exist" is empty/);
H A Dfiletest.t43 like( $@, qr/^$error/, 'filetest dies with bad subpragma on unuse' );
46 like( $@, qr/^$error/, 'filetest dies with bad subpragma on use' );
49 like( $@, qr/^$error/, 'filetest dies with missing subpragma on use' );
52 like( $@, qr/^$error/, 'filetest dies with missing subpragma on unuse' );
H A Dautouse.t21 ok( $@, qr/^autouse into different package attempted/ );
45 ok( $@, qr/^It is but a scratch!/);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dcproto.t20 like( $@, qr/Can't find an opnumber for/, $keyword );
167 qr undef
H A Dattrs.t29 like $@, qr/^Invalid CODE attributes?: ["']?plugh["']? at/;
32 like $@, qr/^Invalid CODE attributes: ["']?plugh\(0,0\)["']? /;
35 like $@, qr/Unterminated attribute parameter in attribute list at/;
38 like $@, qr/Invalid separator character '[+]' in attribute list at/;
51 like $@, qr/^Invalid SCALAR attribute: ["']?plugh["']? at/;
55 like $@, qr/^Invalid SCALAR attribute: ["']?plugh["']? at/;
57 like $@, qr/^Invalid SCALAR attribute: ["']?plugh\(}\)["']? at/;
61 like $@, qr/^Invalid SCALAR attributes: ["']?switch\(10,foo\(7,3\)\) : expensive["']? at/;
63 like $@, qr/^Invalid SCALAR attributes: ["']?Ugly\('\\\("\) : Bad["']? at/;
65 like $@, qr/
[all...]
H A Dcrypt.t39 like($@, qr/Wide character in crypt/, "wide characters ungood");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dopen.t36 like( $@, qr/<\$f> line 1/, ' die message correct' );
113 like( $@, qr/Bad filehandle:\s+afile/, ' right error' );
133 like( $@, qr/<\$f> line 1/, ' proper die message' );
208 like( $@, qr/Bad filehandle:\s+afile/, ' right error' );
254 like( $@, qr/\QUnknown open() mode 'BAR'/, ' right error' );
269 like($@, qr/<\$fh0\[...\]> line 1\./, "autoviv fh package aelem");
273 like($@, qr/<\$fh1{...}> line 1\./, "autoviv fh package helem");
278 like($@, qr/<\$fh2\[...\]> line 1\./, "autoviv fh lexical aelem");
283 like($@, qr/<\$fh3{...}> line 1\./, "autoviv fh lexical helem");
293 like($w, qr/Invali
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/
H A Dtaint.t53 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
59 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
278 untaint_pattern => qr|^(.+)$|}, topdir('fa') );
289 like( $@, qr|Insecure dependency|, 'Tainted directory causes death (good)' );
297 untaint_pattern => qr|^(NO_MATCH)$|},
300 like( $@, qr|is still tainted|, 'Bad untaint pattern causes death (good)' );
310 qr|^(NO_MATCH)$|}, topdir('fa') );};
314 like( $@, qr|insecure cwd|, 'Bad untaint pattern causes death in cwd (good)' );
353 qr|^(.+)$| }, topdir('fa') );
364 like( $@, qr|Insecur
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dparser.t15 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
19 like( $@, qr/syntax error/, 'syntax error, used to dump core' );
23 like( $@, qr/^Missing right brace on \\x/,
27 like( $@, qr/^Illegal declaration of anonymous subroutine/,
32 like( $@, qr/^Can't modify constant item in list assignment/,
36 like( $@, qr/^Can't modify constant item in tie /,
40 like( $@, qr/^Can't modify constant item in undef operator /,
44 like( $@, qr/^Can't modify constant item in read /,
49 like( $@, qr/error/, 'lexical block discarded by yacc' );
53 like( $@, qr/
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/t/
H A DLanginfo.t45 AM_STR => qr{^(?:am|a\.m\.)$}i,
47 D_T_FMT => qr{^%a %b %[de] %H:%M:%S %Y$},
48 D_FMT => qr{^%m/%d/%y$},
49 T_FMT => qr{^%H:%M:%S$},
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/
H A Dtaint.t34 like($@, qr/^Insecure dependency/, 'mkfifo with tainted data');
37 like($@, qr/^Insecure dependency/, 'open with tainted data');
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A DIO.t53 like( $warn, qr/^Parameterless "use IO" deprecated at/,
61 like( $warn, qr/^Parameterless "use IO" deprecated at/,
69 like( $warn, qr/^Parameterless "use IO" deprecated at/,
80 like( $@, qr/Can.t locate IO.nothere\.pm/, '... croaking on any error' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafewrap.t27 like $@, qr/eval .* trapped by operation mask/;
39 like $@, qr/eval .* trapped by operation mask/;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/
H A DUtil.t28 like( $@, qr/^Attempt to access disallowed key 'baz' in a restricted hash/,
39 like( $@, qr/^Attempt to access disallowed key 'i_dont_exist' in a restricted hash/ );
43 like( $@, qr/^Attempt to access disallowed key 'four' in a restricted hash/ );
46 like( $@, qr/^Attempt to access disallowed key '(.*)' in a restricted hash/,
50 like( $@, qr/^Attempt to delete readonly key 'locked' from a restricted hash/,
53 like( $@, qr/^Modification of a read-only value attempted/,
58 like( $@, qr/^Attempt to delete disallowed key 'I_dont_exist' from a restricted hash/,
68 like( $@, qr/^Modification of a read-only value attempted/,
83 like( $@, qr/^Attempt to access disallowed key 'wubble'/ );
93 like( $@, qr/
[all...]

Completed in 75 milliseconds

12345