Lines Matching full:test
72 print "ok 18 - was the test for the deprecated use of bare << to mean <<\"\"\n";
123 my $test = 31;
130 print "ok $test\n"; $test++;
134 print "ok $test\n"; $test++;
142 print "ok $test\n"; $test++;
150 print "ok $test\n"; $test++;
155 print "ok $test\n"; $test++;
158 ${^TEST}= "splat";
159 @{^TEST}= ("foo", "bar");
160 %{^TEST}= ("foo" => "FOO", "bar" => "BAR" );
162 print "not " if "${^TEST}" ne "splat";
163 print "ok $test\n"; $test++;
165 print "not " if "${ ^TEST }" ne "splat";
166 print "ok $test\n"; $test++;
168 print "not " if "${^TEST}[0]" ne "splat[0]";
169 print "ok $test\n"; $test++;
171 print "not " if "${^TEST[0]}" ne "foo";
172 print "ok $test\n"; $test++;
174 print "not " if "${ ^TEST [1] }" ne "bar";
175 print "ok $test\n"; $test++;
177 print "not " if "${^TEST}{foo}" ne "splat{foo}";
178 print "ok $test\n"; $test++;
180 print "not " if "${^TEST{foo}}" ne "FOO";
181 print "ok $test\n"; $test++;
183 print "not " if "${ ^TEST {bar} }" ne "BAR";
184 print "ok $test\n"; $test++;
194 print "ok $test\n"; $test++;
196 print "ok $test\n"; $test++;
198 print "ok $test\n"; $test++;
216 s/^not /<<EOT/e and T '^main:\(eval \d+\):2$', $test++;
219 print $_, $test++, "\n";
220 T('^main:\(eval \d+\):6$', $test++);
222 T('^main:plunk:1$', $test++);
224 print "# $@\nnot ok $test\n" if $@;
225 T '^main:plink:53$', $test++;
234 print "ok $test\n";
235 ++$test;
239 print "ok $test\n";
240 ++$test;
245 print +((">@a<" eq ">1 2 3<") ? '' : 'not '), "ok $test\n";
246 ++$test;
251 print "ok $test\n";
252 ++$test;
254 # This isn't actually a lex test, but it's testing the same feature
262 print "ok $test\n";
263 ++$test;
276 print ((exists $str{foo} ? "" : "not ")."ok $test\n"); ++$test;
277 print ((exists $str{bar} ? "" : "not ")."ok $test\n"); ++$test;
278 print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
280 sub foo::::::bar { print "ok $test\n"; $test++ }
285 …<-- HERE after \$x =<-- HERE near column 5/) { print "ok $test\n"; } else { print "not ok $test\n"…
286 $test++;
291 print "ok $test\n"; $test++;
294 eval 's/(?:)/"ok $test" . "${\q||}".<<\END/e;
298 print $_ || "not ok $test\n"; $test++;
301 eval 's|(?:)|"ok $test" . "${\<<\END}"
306 print $_ || "not ok $test\n"; $test++;
310 ok $test - null on same line as heredoc in s/// in eval
313 print $_ || "not ok $test\n"; $test++;
317 ok $test - heredoc in "" in single-line s///e in eval
320 print $_ || "not ok $test\n"; $test++;
324 ok $test - heredoc in "" in multiline s///e outside eval
327 print $_ || "not ok $test\n"; $test++;
329 $_ = "not ok $test - s/// in s/// pattern\n";
331 print; $test++;
334 ok $test - here-doc in re-eval
336 })/; $test++;
339 ok $test - here-doc in re-eval in string eval
341 })/'; $test++;
343 eval 'print qq ;ok $test - eval ending with semicolon\n;'
344 or print "not ok $test - eval ending with semicolon\n"; $test++;
349 print "ok $test - here-doc in single-line re-eval\n"; $test++;
356 print "ok $test - here-doc in quotes in multiline re-eval\n"; $test++;
362 print "ok $test - eval 's//<<END/' does not leave extra newlines\n"; $test++;
367 print "ok $test - # after null in s/// repl\n"; $test++;
372 print "ok $test - s//'#' . <<END/e\n"; $test++;
376 print "ok $test - s//3}->{3/e\n"; $test++;
378 $_ = "not ok $test";
381 print "$_ - s//\${\\%x}{3}/e\n"; $test++;
385 print "ok $test - s/\${foo#}//e\n"; $test++;
389 print "ok $test - listop({$_ => 1} + 1)\n"; $test++;
395 print "ok ", $test++, " - [perl #105924] $_ WORD << ...\n";
403 print "ok $test - Use v[0-9]+ as a label\n"; $test++;
407 print "ok $test - Use v[0-9]+ as a label with space before colon\n"; $test++;
411 package v10; sub test { return v10::foo::test2(); }
412 package main; \$output = v10::test(); ";
414 print "ok $test - call a function in package v10::foo\n"; $test++;
417 print "ok $test - colon detection after vstring does not break ? vstring :\n"; $test++;
425 print "ok $test - print vstring prints the vstring\n";
426 $test++;
428 # Test pyoq ops with comments before the first delim
432 print "ok $test - q <comment> <newline> ...\n"; $test++;
436 print "ok $test - qq <comment> <newline> ...\n"; $test++;
440 print "ok $test - qw <comment> <newline> ...\n"; $test++;
444 print "ok $test - m <comment> <newline> ...\n"; $test++;
448 print "ok $test - qr <comment> <newline> ...\n"; $test++;
455 print "ok $test - s <comment> <newline> ...\n"; $test++;
462 print "ok $test - tr <comment> <newline> ...\n"; $test++;
469 print "ok $test - y <comment> <newline> ...\n"; $test++;
473 print "ok $test - => quotes keywords across lines\n"; $test++;
477 print "ok $test - [perl #80368] qq <a\\U=>\n"; $test++;
483 print "ok $test - \${...} where {...} looks like hash\n"; $test++;
487 print "ok $test - map{BEGIN...\n"; $test++;
489 print "ok $test - map{BEGIN...\n"; $test++;
496 print "ok $test - \${ <newline> =pod\n"; $test++;
503 print "ok $test - map{ <newline> =pod\n"; $test++;
506 print "ok $test - \${...} (literal triple-dot)\n"; $test++;
509 print "ok $test - map{...} (literal triple-dot)\n"; $test++;
511 print "ok $test - &{sub :lvalue...}\n"; $test++;
513 print "ok $test - map{sub :lvalue...}\n"; $test++;
546 print "ok $test - 124385\n"; $test++;
552 print "ok $test - 125350\n"; $test++;
558 print "ok $test - 128171\n"; $test++;
563 print "ok $test - 132640\n"; $test++;
565 print "ok $test - 125351\n"; $test++;
567 print "ok $test - 126192\n"; $test++;
572 print qq|ok $test - [perl #128478] "\$foo::\$bar"\n|; $test++;
575 print qq|ok $test - [perl #128478] "\$foo::\@bar"\n|; $test ++;
577 # Test that compilation of tentative indirect method call syntax which
584 print "ok $test - first constant in 'const1 const2' is not upgraded\n";
585 $test++;
587 print "ok $test - second constant in 'const1 const2' is not upgraded\n";
588 $test++;