integrate cfgperl contents into mainline

[p5sagit/p5-mst-13.2.git] / t / op / cmp.t

diff --git a/t/op/cmp.t b/t/op/cmp.t
index e69de29..4a7e68d 100755 (executable)
--- a/t/op/cmp.t
+++ b/t/op/cmp.t
@@ -0,0 +1,35 @@
+#!./perl
+
+@FOO = ('s', 'N/A', 'a', 'NaN', -1, undef, 0, 1);
+
+$expect = ($#FOO+2) * ($#FOO+1);
+print "1..$expect\n";
+
+my $ok = 0;
+for my $i (0..$#FOO) {
+    for my $j ($i..$#FOO) {
+       $ok++;
+       my $cmp = $FOO[$i] <=> $FOO[$j];
+       if (!defined($cmp) ||
+           $cmp == -1 && $FOO[$i] < $FOO[$j] ||
+           $cmp == 0  && $FOO[$i] == $FOO[$j] ||
+           $cmp == 1  && $FOO[$i] > $FOO[$j])
+       {
+           print "ok $ok\n";
+       }
+       else {
+           print "not ok $ok ($FOO[$i] <=> $FOO[$j]) gives: '$cmp'\n";
+       }
+       $ok++;
+       $cmp = $FOO[$i] cmp $FOO[$j];
+       if ($cmp == -1 && $FOO[$i] lt $FOO[$j] ||
+           $cmp == 0  && $FOO[$i] eq $FOO[$j] ||
+           $cmp == 1  && $FOO[$i] gt $FOO[$j])
+       {
+           print "ok $ok\n";
+       }
+       else {
+           print "not ok $ok ($FOO[$i] cmp $FOO[$j]) gives '$cmp'\n";
+       }
+    }
+}