Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/sort.t

Lines Matching defs:ok
44 print ($x eq $expected ? "ok 1\n" : "not ok 1\n");
49 print ($x eq $expected ? "ok 2\n" : "not ok 2\n");
54 print ($x eq $expected ? "ok 3\n" : "not ok 3\n");
61 print ($x eq $expected ?"ok 4\n":"not ok 4\n");
65 print ("@b" eq "" ? "ok 5\n" : "not ok 5 (@b)\n");
69 print ("@b" eq "1" ? "ok 6\n" : "not ok 6 (@b)\n");
73 print ("@b" eq "2 1" ? "ok 7\n" : "not ok 7 (@b)\n");
77 print ("@b" eq "3 2 1" ? "ok 8\n" : "not ok 8 (@b)\n");
81 print ("@b" eq "4 3 2 1" ? "ok 9\n" : "not ok 9 (@b)\n");
85 print ("@b" eq "2 3 4 10" ? "ok 10\n" : "not ok 10 (@b)\n");
91 print ($x eq $expected ? "ok 11\n" : "not ok 11\n");
97 print ($x eq $expected ? "ok 12\n" : "not ok 12\n");
102 print ("@b" eq '1 2 3 4' ? "ok 13\n" : "not ok 13\n");
106 print ("@b" eq '1 2 3 4' ? "ok 14\n" : "not ok 14\n");
110 print ("@b" eq '1 2 3 4' ? "ok 15\n" : "not ok 15\n");
114 print ("@b" eq '1 2 3 4' ? "ok 16\n" : "not ok 16\n");
120 print ($@ =~ /redefine active sort/ ? "ok 17\n" : "not ok 17\n");
124 print $@ ? "not ok 18\n" : "ok 18\n";
127 print ("@b" eq '4 3 2 1' ? "ok 19\n" : "not ok 19 |@b|\n");
134 print ($@ =~ /redefine active sort/ ? "ok 20\n" : "not ok 20\n");
140 		 die($@ =~ /redefine active sort/ ? "ok 21\n" : "not ok 21\n");
145 print $@ ? "$@" : "not ok 21\n";
150 print $@ ? "not ok 22\n# $@" : "ok 22\n";
156 print $@ ? "not ok 23\n# $@" : "ok 23\n";
164   print ("@b" eq '4 3 2 1' ? "ok 24\n" : "not ok 24 |@b|\n");
166   print ("@b" eq '4 3 2 1' ? "ok 25\n" : "not ok 25 |@b|\n");
168   print ("@b" eq '4 3 2 1' ? "ok 26\n" : "not ok 26 |@b|\n");
170   print ("@b" eq '4 3 2 1' ? "ok 27\n" : "not ok 27 |@b|\n");
179   print ("@b" eq '4 3 2 1' ? "ok 28\n" : "not ok 28 |@b|\n");
181   print ("@b" eq '4 3 2 1' ? "ok 29\n" : "not ok 29 |@b|\n");
183   print ("@b" eq '4 3 2 1' ? "ok 30\n" : "not ok 30 |@b|\n");
185   print ("@b" eq '4 3 2 1' ? "ok 31\n" : "not ok 31 |@b|\n");
194   print ("@b" eq '4 3 2 1' ? "ok 32\n" : "not ok 32 |@b|\n");
196   print ("@b" eq '4 3 2 1' ? "ok 33\n" : "not ok 33 |@b|\n");
198   print ("@b" eq '4 3 2 1' ? "ok 34\n" : "not ok 34 |@b|\n");
200   print ("@b" eq '4 3 2 1' ? "ok 35\n" : "not ok 35 |@b|\n");
209   print ("@b" eq '4 3 2 1' ? "ok 36\n" : "not ok 36 |@b|\n");
211   print ("@b" eq '4 3 2 1' ? "ok 37\n" : "not ok 37 |@b|\n");
213   print ("@b" eq '4 3 2 1' ? "ok 38\n" : "not ok 38 |@b|\n");
215   print ("@b" eq '4 3 2 1' ? "ok 39\n" : "not ok 39 |@b|\n");
224 print ("@b" eq '1996 255 90 19 5' ? "ok 40\n" : "not ok 40\n");
228 print ($x eq $expected ? "ok 41\n" : "not ok 41\n");
232 print ($x eq $expected ? "ok 42\n" : "not ok 42\n");
237     print ("@b" eq '5 19 90 255 1996' ? "ok 43\n" : "not ok 43\n");
240     print ("@b" eq '1996 255 90 19 5' ? "ok 44\n" : "not ok 44\n");
244     print ($x eq $expected ? "ok 45\n" : "not ok 45\n");
248     print ($x eq $expected ? "ok 46\n" : "not ok 46\n");
255 print $x eq "123" ? "ok 47\n" : "not ok 47\n";
261 print ("@b" eq '1996 255 90 19 5' ? "ok 48\n" : "not ok 48\n");
265 print ("@b" eq '90 5 255 1996 19' ? "ok 49\n" : "not ok 49\n");
275     print "ok $test\n";
290     print "ok $test\n";
314     print ("@b" eq '1 2 3 4' ? "ok 56\n" : "not ok 56\n");
316     print !$def ? "ok 57\n" : "not ok 57\n";
323     print "@a" eq "one two" ? "ok 58\n" : "not ok 58\n";
328 sub ok {
330     print "ok $test - $_[2]\n";
340     ok "$r1-@g", "$r2-1 2 3", "inplace sort of global";
343     ok "$r1-@a", "$r2-a b c", "inplace sort of lexical";
346     ok "$r1-@g", "$r2-3 2 1", "inplace reversed sort of global";
350     ok "$r1-@g", "$r2-3 2 1", "inplace custom sort of global";
354     ok "$r1-@a", "$r2-c b a", "inplace sort with function of lexical";
361     ok "@t", "a b c", "inplace sort of tied array";
364     ok "@t", "c b a", "inplace sort of tied array with function";
369     ok "@g", "0 1 2 3", "un-inplace sort of global";
371     ok "@g", "1 2 3 4", "un-inplace sort of global 2";
374     ok "@a", "x a b c", "un-inplace sort of lexical";
376     ok "@a", "a b c x", "un-inplace sort of lexical 2";
379     ok "@g", "0 3 2 1", "un-inplace reversed sort of global";
381     ok "@g", "3 2 1 4", "un-inplace reversed sort of global 2";
384     ok "@g", "0 3 2 1", "un-inplace custom sort of global";
386     ok "@g", "3 2 1 4", "un-inplace custom sort of global 2";
389     ok "@a", "x c b a", "un-inplace sort with function of lexical";
391     ok "@a", "c b a x", "un-inplace sort with function of lexical 2";