Home
last modified time | relevance | path

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

12345678910>>...29

/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/t/
Dbasic.t92 like( $ppd_html, qr{^<SOFTPKG NAME="Big-Dummy" VERSION="0,01,0,0">}m,
94 like( $ppd_html, qr{^\s*<TITLE>Big-Dummy</TITLE>}m, ' <TITLE>' );
95 like( $ppd_html, qr{^\s*<ABSTRACT>Try "our" hot dog's</ABSTRACT>}m,
97 like( $ppd_html,
100 like( $ppd_html, qr{^\s*<IMPLEMENTATION>}m, ' <IMPLEMENTATION>');
101 like( $ppd_html, qr{^\s*<DEPENDENCY NAME="strict" VERSION="0,0,0,0" />}m,
103 like( $ppd_html, qr{^\s*<OS NAME="$Config{osname}" />}m,
105 like( $ppd_html, qr{^\s*<ARCHITECTURE NAME="$Config{archname}" />}m,
107 like( $ppd_html, qr{^\s*<CODEBASE HREF="" />}m, ' <CODEBASE>');
108 like( $ppd_html, qr{^\s*</IMPLEMENTATION>}m, ' </IMPLEMENTATION>');
[all …]
DMM_OS2.t49 like( $res, qr/baseext\.def: Makefile/,
51 like( $res, qr/"DL_FUNCS" => { }/,
53 like( $res, qr/"DL_VARS" => \[]/, '... and empty array refs too' );
57 like( $res, qr/"FUNCLIST" => .+funclist/,
59 like( $res, qr/"IMPORTS" => .+imports/, '... and allow parameter options too' );
74 like( $@, qr/Can.t mkdir tmp_imp/,
79 like( $@, qr/Malformed IMPORT/, 'should die from malformed import symbols');
97 like( $sysargs, qr/^emximp/, '... should try to call system() though' );
98 like( $@, qr/Cannot make import library/,
104 like( $@, qr/Cannot extract import/,
[all …]
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' );
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' );
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');
DManifest.t96 like( $warn, qr/^Not in MANIFEST: bar/, 'warning that bar has been added' );
110 like( $warn, qr/^Skipping MANIFEST\.SKIP/i, 'got skipping warning' );
169 like( $@, qr/^Can't read none: /, 'croaked about none' );
175 like($warn, qr/^Skipping MANIFEST.SKIP/i, 'warned about MANIFEST.SKIP' );
181 like( $warn, qr/Added to albatross: /, 'using a new manifest file' );
193 like( $warn, qr{^Skipping moretest/quux$}i, 'got skipping warning again' );
239 like( $@, qr/^\Qmaniadd() could not open MANIFEST:\E/,
DMM_NW5.t59 like( $MM->maybe_command( $comspec2 ),
87 like( $MM->find_perl( $], [ $perl ], [ $path ] ),
142 like( $mm_w32->constants(),
171 like( $MM->clean(), qr/^clean ::\s+\Q-$(RM_F) $clean\E\s+$/m,
240 like( $MM->pm_to_blib(),
248 like( $MM->tool_autosplit( %attribs ),
268 like( $mm_w32->tools_other(),
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dsubstr.t36 like ($@, $FATAL_MSG);
48 like ($@, $FATAL_MSG);
76 like($@, $FATAL_MSG);
87 like($@, $FATAL_MSG);
91 like($@, $FATAL_MSG);
105 like($@, $FATAL_MSG);
109 like($@, $FATAL_MSG);
113 like($@, $FATAL_MSG);
117 like($@, $FATAL_MSG);
160 like($@, $FATAL_MSG);
[all …]
Dpack.t111 like($foo, qr/def/);
214 like($@, qr/^Unterminated compressed integer/);
217 like($@, qr/^Unterminated compressed integer/);
220 like($@, qr/^Unterminated compressed integer/);
223 like ($@, qr/^Cannot compress negative numbers/);
226 like ($@, qr/^Can only compress unsigned integers/);
261 like ($@, qr/^Invalid type '[<>]'/, "pack can't $base$mod");
263 like ($@, qr/^'[<>]' allowed only after types/,
267 like ($@, qr/^'!' allowed only after types/,
280 like ($@, qr/^'$mod' allowed only after types \S+ in pack/);
[all …]
Dattrs.t29 like $@, qr/^Invalid CODE attributes?: ["']?plugh["']? at/;
55 like $@, qr/^Invalid SCALAR attribute: ["']?plugh["']? at/;
65 like $@, qr/^Invalid SCALAR attribute: ["']?_5x5["']? at/;
82 like $@, qr/^SCALAR package attributes may clash with future reserved words: ["']?plugh["']? /;
92 like $@, qr/^X at /;
150 like $@, qr/Can't declare scalar dereference in our/;
172 like $@, qr/^A variable may not be unshared/;
177 like $@, qr/^Invalid $type attribute: $attribute/,
/mirbsd/src/gnu/usr.bin/perl/lib/Hash/
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/^Attempt to delete readonly key 'RO' from a restricted hash/ );
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/io/
Dopen.t42 like( $@, qr/<\$f> line 1/, ' die message correct' );
119 like( $@, qr/Bad filehandle:\s+afile/, ' right error' );
139 like( $@, qr/<\$f> line 1/, ' proper die message' );
214 like( $@, qr/Bad filehandle:\s+afile/, ' right error' );
260 like( $@, qr/\QUnknown open() mode 'BAR'/, ' right error' );
275 like($@, qr/<\$fh0\[...\]> line 1\./, "autoviv fh package aelem");
279 like($@, qr/<\$fh1{...}> line 1\./, "autoviv fh package helem");
284 like($@, qr/<\$fh2\[...\]> line 1\./, "autoviv fh lexical aelem");
289 like($@, qr/<\$fh3{...}> line 1\./, "autoviv fh lexical helem");
299 like($w, qr/Invalid separator character '>' in PerlIO layer spec/,
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/DBM_Filter/t/
D01error.t64 like $@, qr/^Filter_Push: no parameters present/,
68 like $@, qr/^Filter_Push: Cannot Load DBM Filter 'DBM_Filter::unknown_class'/,
72 like $@, qr/^Filter_Push: Cannot Load DBM Filter 'Some::unknown_class'/,
76 like $@, qr/^Filter_Push: not even params/,
84 like $@, qr/^Filter_Push: No methods \(Filter, Fetch or Store\) found in class 'DBM_Filter::bad1'/,
99 like $@, qr/^Filter_Push: 'DBM_Filter::bad2::Filter' did not return a hash reference./,
114 like $@, qr/^Filter_Push: Unknown key 'BadKey'/,
128 like $@, qr/^Filter_Push: value associated with key 'Store' is not a code reference/,
142 like $@, qr/^Filter_Push: expected both Store & Fetch - got neither/,
156 like $@, qr/^Filter_Push: expected both Store & Fetch - got Store/,
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
DBenchmark.t110 like ($all, $All_Pattern, 'timestr ($diff, "all")');
118 …like ($noc, qr/$wallclock +wallclock secs? +\( *$usr +usr +\+ +$sys +sys += +$cpu +CPU\)/, 'timest…
121 …like ($nop, qr/$wallclock +wallclock secs? +\( *$cusr +cusr +\+ +$csys +csys += +\d+\.\d\d +CPU\)/…
129 like (timestr ($diff, 'all', 'E'),
145 like ($got, qr/^timethis $iterations/, 'default title');
146 like ($got, $Default_Pattern, 'default format is all or noc');
156 like ($got, qr/^timethis $iterations/, 'default title');
157 like ($got, $Default_Pattern, 'default format is all or noc');
168 like ($got, qr/^$title:/, 'specify title');
169 like ($got, $Default_Pattern, 'default format is all or noc');
[all …]
DConfig.t53 like($Config{ivsize}, qr/^(4|8)$/, "ivsize is 4 or 8 (it is $Config{ivsize})");
57 like($Config{byteorder}, qr/^(1234|4321|12345678|87654321)$/,
80 like(Config::myconfig(), qr/osname=\Q$Config{osname}\E/, "myconfig");
81 like(Config::config_sh(), qr/osname='\Q$Config{osname}\E'/, "config_sh");
82 like(Config::config_sh(), qr/byteorder='[1-8]+'/,
85 like($line, qr/^c.*?=.*$/, 'config_re' );
134 like($out1, qr/^cc='\Q$Config{cc}\E';/, "found config_var cc");
135 like($out2, qr/^d_bork='UNKNOWN';/, "config_var d_bork is UNKNOWN");
176 like($out9, qr/\bnot\s+found\b/, "$out9 - perl is FREE !");
177 like($out10, qr/\bnot\s+found\b/, "config_vars with invalid regexp");
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Math/BigInt/t/
Dtrap.t35 like ($@, qr/^Tried to set/, 'died');
47 like ($@, qr/^Tried to set/, 'died');
51 like ($@, qr/^Tried to set/, 'died');
55 like ($@, qr/^Tried to set/, 'died');
60 like ($@, qr/^Tried to set/, 'died');
65 like ($@, qr/^Tried to set/, 'died');
71 like ($@, qr/^Tried to set/, 'died');
/mirbsd/src/gnu/usr.bin/perl/lib/CGI/t/
Dcookie.t152 like($c->expires, '/^[a-z]{3},\s*\d{2}-[a-z]{3}-\d{4}/i', 'expires in correct format');
202 like($c->as_string, "/$name/", "Stringified cookie contains name");
205 like($c->as_string, "/$value/", "Stringified cookie contains value");
208 like($c->as_string, "/$expires/", "Stringified cookie contains expires");
211 like($c->as_string, "/$domain/", "Stringified cookie contains domain");
214 like($c->as_string, "/$path/", "Stringified cookie contains path");
216 like($c->as_string, '/secure/', "Stringified cookie contains secure");
223 like($c->as_string, "/$name/", "Stringified cookie contains name");
226 like($c->as_string, "/$value/", "Stringified cookie contains value");
233 like($c->as_string, "/$path/", "Stringified cookie contains path");
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/B/t/
Dconcise.t48 like($out, qr/print/, "'-exec' option output has print opcode");
102 like ($@, 'expecting 3 style-format args',
112 like ($@, qr/style 'junk' already exists, choose a new name/,
123 like ($@, qr/expecting 3 style-format args/,
182 like ($@, qr/^err: not a coderef: $typ/,
199 like ($res, qr/coderef CODE\(0x[0-9a-fA-F]+\) has no START/,
211 like ($res, qr/coderef CODE\(0x[0-9a-fA-F]+\) has no START/,
220 like ($res, qr/unknown function \(Bar::auto_func\)/,
224 like ($res, qr/coderef CODE\(0x[0-9a-fA-F]+\) has no START/,
228 like ($res, qr/in AUTOLOAD body: /, "found body of Bar::AUTOLOAD");
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Simple/t/
Dfail-more.t29 sub like ($$;$) {
30 $TB->like(@_);
111 like( "foo", '/that/', 'is foo like that' );
126 like( "bug", '/(%)/', 'regex with % in it' );
223 My::Test::like $warnings,
258 My::Test::like($err->read, "/^$more_err_re/");
270 My::Test::like($err->read, "/^$more_err_re/");
Dfail-like.t20 # There was a bug with like() involving a qr// not failing properly.
46 eval q{ like( "foo", qr/that/, 'is foo like that' ); };
52 not ok 1 - is foo like that
56 # Failed test 'is foo like that'
60 # Looks like you failed 1 test of 1\\.
64 $TB->like($$err, qr/^$err_re$/, 'failing errors');
Dis_deeply_fail.t45 sub like ($$;$) {
49 my $ok = $TB->like($$this, $regex, $name);
76 like( $err, <<ERR, ' right diagnostic' );
157 like( $err, <<ERR, ' right diagnostic' );
226 like \$warning,
286 like( $err, <<ERR, ' right diagnostic' );
351 like( $err, <<ERR, ' right diagnostic' );
366 like( $err, <<ERR, ' right diagnostic' );
/mirbsd/src/gnu/usr.bin/perl/t/run/
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' );
/mirbsd/src/gnu/usr.bin/perl/os2/
Dos2_base.t26 like($lpb, qr/\Q$s_cwd/);
33 like($lpe, qr/\Q$s_cwd/);
42 like(OS2::DLLname, qr#\Q/$Config{dll_name}\E\.dll$#i );
44 like(OS2::DLLname, qr#^\Q$root_cwd\E(/t)?\Q/$Config{dll_name}\E\.dll#i );
47 like(OS2::DLLname(0), qr#^(\d+)$# );
/mirbsd/src/gnu/usr.bin/perl/t/comp/
Dparser.t15 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
36 like( $@, qr/^Can't modify constant item in tie /,
44 like( $@, qr/^Can't modify constant item in read /,
174 is($x, 2, 'scalar assignment to $[ behaves like other variables');
176 is($x, 1, 'list assignment to $[ behaves like other variables');
/mirbsd/src/gnu/usr.bin/perl/ext/Sys/Syslog/t/
Dconstants.t17 like( $@, "/^This is not a valid $testpack macro/", "trying a non-existing macro");
20 like( $@, "/^NOSUCHNAME is not a valid $testpack macro/", "trying a non-existing macro");
32 like( $v, '/^\d+$/', "checking that $name is a number ($v)" );
35 like( $@, "/^Your vendor has not defined $testpack macro $name/",

12345678910>>...29