Lines Matching refs:test
27 # test script for Sun::Solaris::Kstat
58 my ($test, $ks);
59 $test = 2;
61 print("not ok $test: $@");
63 print("ok $test\n");
65 $test++;
69 print("not ok $test: $@");
71 print("ok $test\n");
73 $test++;
81 print("ok $test\n");
83 print("not ok $test\n");
85 $test++;
90 print("ok $test\n");
92 print("not ok $test ($val)\n");
94 $test++;
98 print("ok $test\n");
99 $test++;
100 print("ok $test\n");
101 $test++;
104 print("ok $test\n");
106 print("not ok $test\n");
108 $test++;
111 print("ok $test\n");
113 print("not ok $test\n");
115 $test++;
121 print("ok $test\n");
123 print("not ok $test\n");
125 $test++;
134 if ($a ne $b) { print("not ok $test ($a ne $b)\n"); last; }
136 print("ok $test\n") if (! @avals && ! @bvals);
137 $test++;
141 print("not ok $test: $@");
143 print("ok $test\n");
145 $test++;
149 print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");
150 $test++;
153 print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");
154 $test++;
157 print($@ =~ /^Modification of a read-only/i ? "ok $test\n" : "not ok $test\n");
158 $test++;
164 print("not ok $test: $@");
166 print("ok $test\n");
168 $test++;
171 print("ok $test\n");
173 print("not ok $test\n");
175 $test++;