Lines Matching defs:ok
20 sub ok ($;$) {
21 my($ok, $name) = @_;
24 print $ok ? "ok $test - $name\n" : "not ok $test - $name\n";
26 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
29 return $ok;
105 print "ok $serial\n";
107 print "not ok $serial\n";
159 for (2..5) { print "ok $_\n" }
197 for (6..7) { print "ok $_ # Skipped: all directories are writeable\n" }
210 for (10..11) { print "ok $_ # Skipped: can't find world-writeable directory to test DCL\$PATH\n" }
215 for (8..11) { print "ok $_ # Skipped: This is not VMS\n"; }
304 for (35..36) { print "ok $_\n"; }
367 for (55..56) { print "ok $_ # Skipped: chown() is not available\n" }
375 for (57..58) { print "ok $_ # Skipped: link() is not available\n" }
383 for (59..60) { print "ok $_ # Skipped: symlink() is not available\n" }
403 for (67..68) { print "ok $_ # Skipped: chroot() is not available\n" }
438 for (76..79) { print "ok $_ # Skipped: open('|') is not available\n" }
465 for (86..87) { print "ok $_ # Skipped: This is not VMS\n"; }
479 for (90..91) { print "ok $_ # Skipped: setpgrp() is not available\n" }
487 for (92..93) { print "ok $_ # Skipped: setpriority() is not available\n" }
498 for (94..95) { print "ok $_ # Skipped: syscall() is not available\n" }
517 for (99..100) { print "ok $_ # Skipped: fcntl() is not available\n" }
607 for (142) { print "ok $_ # Skipped: getpwent() is not available\n" }
617 for (143) { print "ok $_ # Skipped: readdir() is not available\n" }
631 for (144) { print "ok $_ # Skipped: readlink() or symlink() is not available\n"; }
662 print "ok 150 # skipped: no IPC::SysV\n";
690 print "ok 150 # Skipped: SysV shared memory operation failed\n";
693 print "ok 150 # Skipped: SysV shared memory is not available\n";
700 print "ok 151 # skipped: no IPC::SysV\n";
730 print "ok 151 # Skipped: SysV message queue operation failed\n";
733 print "ok 151 # Skipped: SysV message queues are not available\n";
745 print "ok 152\n";
758 print "ok 153\n";
763 print "ok 154\n";
771 print "ok 155\n";
789 print "ok $_ # Skip: no Fcntl (no dynaloading?)\n";
868 print "ok 174\n";
898 print $i == 1 ? "ok 175\n" : "not ok 175\n"
912 print @untainted == 0 ? "ok 176\n" : "not ok 176\n";
917 ok( ${^TAINT} == 1, '$^TAINT is on' );
920 ok( ${^TAINT}, '$^TAINT is not assignable' );
921 ok( $@ =~ /^Modification of a read-only value attempted/,
938 print "ok 183 # Skipped: system {} has different semantics\n";
948 for (184..205) {print "not ok $_ # TODO tainted %ENV warning occludes tainted arguments warning\n";}
980 print "ok 205 # no exec()\n";