Lines Matching refs:ok
52 END {print "not ok 1\n" unless $loaded;}
55 print "ok 1\n";
61 print("not ok $test: $@");
63 print("ok $test\n");
69 print("not ok $test: $@");
71 print("ok $test\n");
81 print("ok $test\n");
83 print("not ok $test\n");
90 print("ok $test\n");
92 print("not ok $test ($val)\n");
98 print("ok $test\n");
100 print("ok $test\n");
104 print("ok $test\n");
106 print("not ok $test\n");
111 print("ok $test\n");
113 print("not ok $test\n");
121 print("ok $test\n");
123 print("not ok $test\n");
134 if ($a ne $b) { print("not ok $test ($a ne $b)\n"); last; }
136 print("ok $test\n") if (! @avals && ! @bvals);
141 print("not ok $test: $@");
143 print("ok $test\n");
149 print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");
153 print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");
157 print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");
164 print("not ok $test: $@");
166 print("ok $test\n");
171 print("ok $test\n");
173 print("not ok $test\n");