Lines Matching full:not
8 if ($x eq 'x') {print "ok 1\n";} else {print "not ok 1\n";}
12 if ($x eq '') {print "ok 2\n";} else {print "not ok 2\n";}
16 if ($x eq '-1') {print "ok 3\n";} else {print "not ok 3\n";}
20 if (length($x) == 1) {print "ok 4\n";} else {print "not ok 4\n";}
29 if (!$@) {print "ok 6\n";} else {print "not ok 6 $@\n";}
34 if ($foo eq 2591024652) {print "ok 7\n";} else {print "not ok 7 :$foo:\n";}
78 print <<E1 eq "foo\n\n" ? "ok 19\n" : "not ok 19\n";
84 print <<E1 eq "foo\n\n" ? "ok 20\n" : "not ok 20\n";
97 print "$foo{$bar}" eq "BAZ" ? "ok 21\n" : "not ok 21\n";
99 print "${foo}{$bar}" eq "FOO{BAR}" ? "ok 22\n" : "not ok 22\n";
100 print "${foo{$bar}}" eq "BAZ" ? "ok 23\n" : "not ok 23\n";
102 print "FOO:" =~ /$foo[:]/ ? "ok 24\n" : "not ok 24\n";
103 print "ABC" =~ /^$ary[$A]$/ ? "ok 25\n" : "not ok 25\n";
104 print "FOOZ" =~ /^$foo[$A-Z]$/ ? "ok 26\n" : "not ok 26\n";
108 print "d" =~ /^$X[-1]$/ ? "ok 27\n" : "not ok 27\n";
109 print "a1" !~ /^$X[-1]$/ ? "ok 28\n" : "not ok 28\n";
111 print (((q{{\{\(}} . q{{\)\}}}) eq '{{\(}{\)}}') ? "ok 29\n" : "not ok 29\n");
114 $foo = "not ok 30\n";
115 $foo =~ s/^not /substr(<<EOF, 0, 0)/e;
129 if ($ {^XY} != 23) { print "not " }
133 if ("$^XY" ne "17Y") { print "not " }
141 if (($^Q^XX) != 3) { print "not " }
149 print "not " unless index ($@, 'Can\'t use global $^X in "my"') > -1;
154 print "not " unless index ($@, 'Can\'t use global $^XYZ in "my"') > -1;
162 print "not " if "${^TEST}" ne "splat";
165 print "not " if "${ ^TEST }" ne "splat";
168 print "not " if "${^TEST}[0]" ne "splat[0]";
171 print "not " if "${^TEST[0]}" ne "foo";
174 print "not " if "${ ^TEST [1] }" ne "bar";
177 print "not " if "${^TEST}{foo}" ne "splat{foo}";
180 print "not " if "${^TEST{foo}}" ne "FOO";
183 print "not " if "${ ^TEST {bar} }" ne "BAR";
193 print "not " unless $^Q eq 'Someother';
195 print "not " unless $ {^Quixote} eq 'Someother 2';
197 print "not " unless $ {^M} eq 'Someother 3';
214 local $_ = "not ok ";
216 s/^not /<<EOT/e and T '^main:\(eval \d+\):2$', $test++;
233 eval(q(">@nosuch<" eq "><")) || print "# $@", "not ";
238 eval(q("fred@example.com" eq "fred.com")) || print "# $@", "not ";
243 # For some reason, this appears not to be tested anywhere else.
245 print +((">@a<" eq ">1 2 3<") ? '' : 'not '), "ok $test\n";
250 || print "# $@", "not ";
261 || print "# $@", "not ";
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;
285 …- HERE after \$x =<-- HERE near column 5/) { print "ok $test\n"; } else { print "not ok $test\n"; }
290 print "not " unless($a[~~2] == 3);
298 print $_ || "not ok $test\n"; $test++;
306 print $_ || "not ok $test\n"; $test++;
313 print $_ || "not ok $test\n"; $test++;
320 print $_ || "not ok $test\n"; $test++;
327 print $_ || "not ok $test\n"; $test++;
329 $_ = "not ok $test - s/// in s/// pattern\n";
330 s/${s|||;\""}not //;
344 or print "not ok $test - eval ending with semicolon\n"; $test++;
346 print "not " unless qr/(?{<<END})/ eq '(?^:(?{<<END}))';
355 print "not " unless /foo/;
361 print "not " if $_ =~ /\n\n/;
362 print "ok $test - eval 's//<<END/' does not leave extra newlines\n"; $test++;
366 print 'not ' unless $_ eq "b\0";
375 print "not " unless $@;
378 $_ = "not ok $test";
379 $x{3} = "not ";
384 print "not " unless $@;
388 print "not " if $@;
394 print "not " if $@;
402 print "not " unless $counter == 2;
406 print "not " unless $counter == 2;
413 print "not " unless $output eq 'v10::foo';
416 print "not " unless (1?v65:"bar") eq chr(65);
417 print "ok $test - colon detection after vstring does not break ? vstring :\n"; $test++;
421 print "not ";
431 eq 'b' or print "not ";
435 eq 'b' or print "not ";
439 [0] eq 'b' or print "not ";
443 or print "not ";
447 eq qr/b/ or print "not ";
454 print "not " unless $_ eq 'b';
461 print "not " unless $_ eq 'b';
468 print "not " unless $_ eq 'b';
471 print "not " unless (time
476 print "not " unless eval '"a\U="' eq "a=";
480 print "not " unless
486 print "not " unless "@_" eq 'rhubarb2';
488 print "not " unless $_122782 eq 'tst2';
495 print "not "unless $_ == 42;
502 print "not "unless "@_" eq 2;
505 print "not " unless $@ =~ /^Unimplemented at /;
508 print "not " unless $@ =~ /^Unimplemented at /;
510 print "not " unless &{sub :lvalue { "a" }} eq "a";
512 print "not " unless ref +(map{sub :lvalue { "a" }} 1)[0] eq "CODE";
571 print "not " unless "$foo::$bar" eq "barbaz";
574 print "not " unless "$foo::@bar" eq "barbaz bonk";
578 # turns out not to be such does not upgrade constants to full globs in the
583 print "not " unless ref $::{fop} eq 'SCALAR';
584 print "ok $test - first constant in 'const1 const2' is not upgraded\n";
586 print "not " unless ref $::{bas} eq 'SCALAR';
587 print "ok $test - second constant in 'const1 const2' is not upgraded\n";