Searched refs:like (Results 1 - 25 of 269) sorted by relevance

1234567891011

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dplan.t14 like( $@, '/^You tried to plan twice!/', 'disallow double plan' );
16 like( $@, '/^You tried to plan twice!/', 'disallow chaning plan' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/
H A Dtaint7 like( $@, '/^Insecure dependency/', '-T honored' );
H A Dtaint_warn11 like( $warnings, '/^Insecure dependency/', '-t honored' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/
H A Dassert.t23 like( $@, '/Assert failed/', ' with the right message' );
28 like( $@, '/some name/', ' has the name' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dcharset.t12 like( $q->header
14 like( $q->header('application/json')
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");
H A Dpush.t10 like( join('', $q->simple_counter(10)) , '/updated.+?10.+?times./', 'counter' );
41 like( $$out, '/WARNING: YOUR BROWSER/', 'unsupported browser warning' );
50 like( $$out, '/Content-[Tt]ype: fake/', 'set custom Content-type' );
67 like( $$out, '/ype: text\/plain/', 'set custom Content-type in next_page()' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/t/
H A Dconstants.t18 like( $@, "/^This is not a valid $testpack macro/", "trying a non-existing macro");
21 like( $@, "/^NOSUCHNAME is not a valid $testpack macro/", "trying a non-existing macro");
33 like( $v, '/^\d+$/', "checking that $name is a number ($v)" );
36 like( $@, "/^Your vendor has not defined $testpack macro $name/",
/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' );
90 # now put it back like it was
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 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/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");
67 like(join("\n", Config::config_re('c.*')),
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(
[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' );
/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 );
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
[all...]
H A Dcrypt.t28 # bets, given alternative encryption/hashing schemes like MD5,
39 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(
[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(
[all...]
/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/lib/ExtUtils/MakeMaker/
H A Dvmsish.pm29 use just like vmsish.pm
38 which works just like it on VMS and everywhere else it does nothing.
/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/;

Completed in 88 milliseconds

1234567891011