Lines Matching full:not
4 # it under the perl debugger (perl -d) it might not work as expected.
31 # just not have been deleted at the end of the last run; if the former, we
52 close REQ or die "Could not close $f: $!";
108 print "not " unless 5.5.1 gt v5.5;
112 print "not " unless v5.5.640 eq "\x{5}\x{5}\x{280}";
115 print "not " unless v7.15 eq "\x{7}\x{f}";
118 print "not "
139 print "# $@\nnot " unless $@ =~ /did not return a true/;
142 print "not " if exists $INC{'bleah.pm'};
143 print "ok ",$i++," - %INC not updated\n";
149 print "not " unless -e $flag_file;
154 print "not " unless -e $flag_file xor $expected_compile;
156 print "not " unless exists $INC{'bleah.pm'};
163 # various yaccs may or may not capitalize 'syntax'.
168 print "not " unless exists $INC{'bleah.pm'};
176 print "not " unless -e $flag_file;
178 print "not " unless exists $INC{'bleah.pm'};
189 \$x = "not ok $i - bleah.do\\n";
199 print "not " if !defined wantarray || wantarray ne '';
216 print "# $@\nnot " unless $@ =~ /^Bareword in require must not start with a double-colon:/;
226 print "not ok - RT #24404$i\n";
235 print "not ok - [perl #24482] require CORE::foo\n";
245 print "not ok $i - expected error\n";
251 print "not ok $test - write_file_not_thing $file\n";
252 die "The $thing file should not be loaded";
276 write_file('whap.pmc', qq(die "This is not an expected error"));
304 print "not ok $pmc_dies - pmc_dies\n";
319 print "not " if $@ =~ /Permission denied/;
334 print "not ok $i - require(func())\n";
337 print "ok $i # SKIP Cwd may not be available in miniperl\n";
346 my $not = $F::x eq "\xD1\x9E" ? "" : "not ";
347 print "${not}ok $i - require ignores I/O layers\n";
354 my $not = eval 'use bleah; "ab" =~ /a b/' ? "" : "not ";
356 print "${not}ok $i - require does not localise %^H at run time\n";
462 my $not = eval "$eval_code 1" ? "" : "not ";
463 my $err= $not ? $@ : "";
469 print "${not}ok $i - (AA) $descr did not blow up\n";
470 if ($not) {
475 $not = ($return_val && $return_val eq '1') ? "" : "not ";
477 print "${not}ok $i - (AB) scalar return value "
481 $not = (@return_val && $return_val[0] eq '1') ? "" : "not ";
483 print "${not}ok $i - (AB) list return value "
487 # test cases where the feature is not on and return false
488 my $not= $not ? "" : "not ";
490 print "${not}ok $i - (BA) $descr should die\n";
491 if ($not) {
495 $not= $err=~/did not return a true value/ ? "" : "not ";
497 print "${not}ok $i - (BB) saw expected error\n";
499 #test cases where the feature is not on and return true
501 print "${not}ok $i - (CA) $descr should not die\n";
503 $not = ($return_val || @return_val) ? "" : "not ";
505 print "${not}ok $i - (CB) returned expected value\n";
507 if ($not) {
519 my $not = eval "\$result = require 'blorn.pm'; 1" ? 'not ' : '';
521 print "${not}ok $i - disabling module_true should not return a true value ($result)\n";
522 $not = $@ =~ /did not return a true value/ ? '' : 'not ';
524 print "${not}ok $i - ... and should fail to compile without a true return value\n";
534 my $not = $result == 3 ? '' : 'not ';
536 …print "${not}ok $i - disabling 'module_true' and should not override module's return value ($resul…
537 $not = $@ eq '' ? '' : 'not ';
539 print "${not}ok $i - ... but should compile successfully with a provided return value\n";
561 my $not = $ok ? 'not ' : '';
563 print "${not}ok $i - in $pack disabling module_true "
564 . "should not return a true value ($result)\n";
565 $not = $err =~ /did not return a true value/ ? '' : 'not ';
567 print "${not}ok $i - ... and should throw the expected error\n";
568 if ($not) {
572 my $not = $ok ? '' : 'not ';
574 print "${not}ok $i - in $pack enabling module_true "
575 . "should not return a true value ($result)\n";
576 $not = $result == 1 ? "" : "not ";
578 print "${not}ok $i - ... and should return a simple true value\n";