Lines Matching defs:ok
9 sub ok {
12 print "ok $test\n";
18 print "not ok $test # $err\n";
25 printf "not ok $test # line %d$wrong\n", (caller)[2];
38 ok ($a == 2147483648, $a);
42 ok ($a == 2147483648, $a);
46 ok ($a == 2147483648, $a);
50 ok ($a == -2147483649, $a);
54 ok ($a == -2147483649, $a);
58 ok ($a == -2147483649, $a);
63 ok ($a == -2147483649, $a);
68 ok ($a == -2147483649, $a);
73 ok ($a == -2147483649, $a);
78 ok ($b == -$a-1, $a);
83 ok ($b == -$a-1, $a);
88 ok ($b == -(++$a), $a);
91 ok ($a++ eq '0', do { $a=undef; $a++ }, "postinc undef returns '0'");
94 ok (!defined($a--), do { $a=undef; $a-- }, "postdec undef returns undef");
117 ok (!$fail);
129 ok ((defined $up and $up eq $ans), $up, $@);
138 ok ((defined $down and $down eq $ans), $down, $@);
147 ok ((defined $up and $up eq $ans), $up, $@);
156 ok ((defined $down and $down eq $ans), $down, $@);