Lines Matching refs:test
192 my $test = 42;
198 s/^not /<<EOT/e and T '^main:\(eval \d+\):2$', $test++;
201 print $_, $test++, "\n";
202 T('^main:\(eval \d+\):6$', $test++);
204 T('^main:plunk:1$', $test++);
206 print "# $@\nnot ok $test\n" if $@;
207 T '^main:plink:53$', $test++;
215 my $test = 47;
217 print "ok $test\n";
218 ++$test;
222 print "ok $test\n";
223 ++$test;
228 print +((">@a<" eq ">1 2 3<") ? '' : 'not '), "ok $test\n";
229 ++$test;
234 print "ok $test\n";
235 ++$test;
237 # This isn't actually a lex test, but it's testing the same feature
245 print "ok $test\n";
246 ++$test;
259 my $test = 52;
260 print ((exists $str{foo} ? "" : "not ")."ok $test\n"); ++$test;
261 print ((exists $str{bar} ? "" : "not ")."ok $test\n"); ++$test;
262 print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test;
264 sub foo::::::bar { print "ok $test\n"; $test++ }