1 files changed, 113 insertions, 0 deletions
diff --git a/SBO-Lib/t/versions.t b/SBO-Lib/t/versions.t
new file mode 100755
index 0000000..af4d406
--- /dev/null
+++ b/SBO-Lib/t/versions.t
@@ -0,0 +1,113 @@
+#!/usr/bin/perl
+#$Id: versions.t,v 1.9 2003/08/24 22:33:03 ed Exp $
+
+use strict;
+use Sort::Versions;
+use Test::More;
+
+my @tests;
+
+while(<DATA>) {
+	if(/^\s*(\S+)\s*([<>])\s*(\S+)\s*$/) {
+		push @tests, $1,$3 if $2 eq "<";
+		push @tests, $3,$1 if $2 eq ">";
+	}
+}
+
+plan tests => (@tests / 2 * 3) + 3;
+
+my @l = sort versions qw(1.2 1.2a);
+is($l[0], "1.2");
+
+@l = sort { versioncmp($a, $b) } qw(1.2 1.2a);
+is($l[0], "1.2");
+
+SKIP: {
+    skip "requires perl 5.6.0", 1 unless ($] >= 5.006);
+    @l = sort versioncmp qw(1.2 1.2a);
+    is($l[0], "1.2");
+}
+
+my $i=4;
+while (@tests) {
+    ($a, $b) = @tests[0, 1];
+
+    # Test both the versioncmp() and versions() interfaces, in both
+    # the main package and other packages.
+    #
+    is(versions(), -1, "versions($a, $b)");
+    $i++;
+
+    is(versioncmp($a, $b), -1, "versioncmp($a, $b)");
+    $i++;
+	
+    undef $a; undef $b; # just in case
+	
+    eval {
+	package Foo;
+	use Sort::Versions;
+	($a, $b) = @tests[0, 1];
+
+        if (versions() != -1) {
+	    die "failed versions() in foreign package";
+	}
+
+        if (versioncmp($a, $b) != -1) {
+	    die "failed versioncmp() in foreign package";
+	}
+    };
+    if ($@) {
+	fail($@);
+    }
+    else {
+	pass("foreign package tests ($tests[0], $tests[1])");
+    }
+
+    shift @tests; shift @tests;
+}
+
+
+__END__
+
+# Simple . only tests
+1.2   < 1.3
+1.2   < 1.2.1
+1.2.1 < 1.3
+1.2   < 1.2a
+1.2a  < 1.3
+1.2   < 1.2.b
+1.2.1 < 1.2a
+1.2.b < 1.2a
+
+# Assorted non-numerics
+a     < b
+a     < a.b
+a.b   < a.c
+a.1   < a.a
+1 < a
+1a < a
+1a < 2
+
+# Null version point
+1..1 < 1.1.1
+
+# Leading 0 tests
+1 > 0002
+1.5 > 1.06
+
+# Handling mixed -. versions
+1 < 1-1
+1-1 < 1-2
+1-2 < 1.2
+1-2 < 1.0-1
+1-2 < 1.0
+1-2 < 1.3
+1.2-1 < 1.2a-1
+1.3-4.6-7 < 1.3-4.8
+1.3-4.6-7 < 1.3-4.6.7
+1.3-4a-7 < 1.3-4a-7.4
+
+# 'Bug' reported by pgw99
+1.2-1 < 1.2.1-1
+1.2.1-1 < 1.2.1-2
+1.2.1-2 < 1.3.0-1