Lines Matching refs:like

28 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");
216     like($@, qr/Illegal declaration of anonymous subroutine/, "readline operator as prototype");
219     like($@, qr/Illegal declaration of subroutine main::_/, "__FILE__ as prototype");
224 like( $@, qr/Bad name after foo::/, 'Bad name after foo::' );
226 like( $@, qr/Bad name after foo'/, 'Bad name after foo\'' );
230 like( $@, qr/Assignment to both a list and a scalar/, 'Assignment to both a list and a scalar' );
243 like($@, qr/Missing right curly/, 'nested sub syntax error' );
249 like($@, qr/Missing right curly/, 'nested sub syntax error 2' );
256 like($@, qr/Can't locate DieDieDie.pm/, 'croak cleanup' );
273 like($@, qr/Can't modify/, 'croak cleanup 3' );
295 like($@, qr/BEGIN failed--compilation aborted/, 'BEGIN 6' );
298 like($@, qr/BEGIN failed--compilation aborted/, 'BEGIN 7' );
314   like($@, qr/Identifier too long/, "too long id in \$# sigil ctx");
319   like($@, qr/Identifier too long/, "too long id in \$ sigil ctx");
324   like($@, qr/Identifier too long/, "too long id in % sigil ctx");
329   like($@, qr/Identifier too long/, "too long id in & sigil ctx");
334   like($@, qr/Identifier too long/, "too long id in glob ctx");
337   like($@, qr/^Missing \$ on loop variable /,
340   like($@, qr/^Missing \$ on loop variable /, "too long id in for ctx");
346   like($@, qr/^Missing \$ on loop variable /, "too long id ticket case");
359   like($@, qr/at \(eval \d+\) line 1[,.]/, "line number is reported correctly");
441 like "blah blah blah\n", qr/${\ <<END
445 like "blah blah blah\n", eval q|qr/${\ <<END
466     like("$x[0]-> [0]", qr/^ARRAY\([^)]*\)-> \[0\]\z/,
518 like $@, "^Identifier too long at ", 'ident buffer overflow';
522 like $@, "^No such class a1b at ", 'TYPE of my of for statement';
525 like $@, qq/^Can't call method "method" on unblessed reference at /,
591 …like $@, qr/^Version control conflict marker at \(eval \d+\) line 1, near "$marker"/, "VCS marker …
593 …like $@, qr/^Version control conflict marker at \(eval \d+\) line 2, near "$marker"/, "VCS marker …
595 …like $@, qr/^Version control conflict marker at \(eval \d+\) line 3, near "$marker"/, "VCS marker …
613         like $@, qr/Can't find string terminator "." anywhere before EOF/,
628     like $@, qr/^syntax error at \(eval \d+\) line 1, near "\{\]"/,
645     like ($got_file, $file, "file of $name");