3 @FOO = ('s', 'N/A', 'a', 'NaN', -1, undef, 0, 1);
5 $expect = ($#FOO+2) * ($#FOO+1);
10 for my $j ($i..$#FOO) {
12 my $cmp = $FOO[$i] <=> $FOO[$j];
14 $cmp == -1 && $FOO[$i] < $FOO[$j] ||
15 $cmp == 0 && $FOO[$i] == $FOO[$j] ||
16 $cmp == 1 && $FOO[$i] > $FOO[$j])
21 print "not ok $ok ($FOO[$i] <=> $FOO[$j]) gives: '$cmp'\n";
24 $cmp = $FOO[$i] cmp $FOO[$j];
25 if ($cmp == -1 && $FOO[$i] lt $FOO[$j] ||
26 $cmp == 0 && $FOO[$i] eq $FOO[$j] ||
27 $cmp == 1 && $FOO[$i] gt $FOO[$j])
32 print "not ok $ok ($FOO[$i] cmp $FOO[$j]) gives '$cmp'\n";