/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/t/ |
H A D | qr.t | 13 ok 'abc', qr/b/;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | charset.t | 13 , 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 D | fail.t | 26 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 D | switchC.t | 28 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 D | switcht.t | 21 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 D | prompt.t | 22 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 D | Mkbootstrap.t | 56 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 D | writemakefile_args.t | 77 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 D | Packlist.t | 80 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 D | stropt.c | 68 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 D | Config.t | 41 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 D | diagnostics.t | 23 like( $@, qr/^Base class package "I::do::not::exist" is empty/);
|
H A D | filetest.t | 43 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 D | autouse.t | 21 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 D | cproto.t | 20 like( $@, qr/Can't find an opnumber for/, $keyword ); 167 qr undef
|
H A D | attrs.t | 29 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 D | crypt.t | 39 like($@, qr/Wide character in crypt/, "wide characters ungood");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | open.t | 36 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 D | taint.t | 53 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 D | parser.t | 15 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 D | Langinfo.t | 45 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 D | taint.t | 34 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 D | IO.t | 53 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 D | safewrap.t | 27 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 D | Util.t | 28 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...] |