Add tests for version parsing and comparison logic

Licenser · Aug 12, 2010 · 6436cce · 6436cce
1 parent fd8e6fb
commit 6436cce
Showing 1 changed file with 21 additions and 2 deletions.
diff --git a/test/lein_search/core_test.clj b/test/lein_search/core_test.clj
@@ -2,5 +2,24 @@
   (:use [lein-search.core] :reload-all)
   (:use [clojure.test]))
 
-(deftest replace-me ;; FIXME: write
-  (is false))
+(deftest version-parsing
+  (are [a b] (= a (split-version b))
+       [0 1 2 ""] "0.1.2"
+       [0 1 0 ""] "0.1"
+       [1 2 3 "SNAPSHOT"] "1.2.3-SNAPSHOT"
+       [1 2 0 "SNAPSHOT"] "1.2-SNAPSHOT"))
+
+(deftest version-comparisons
+  (are [a b c] (= a (compare-versions b c))
+       1  "1.2" "1.1"
+       -1 "1.1" "1.2"
+       0  "1.1" "1.1"
+       1  "0.1.1" "0.1"
+       -1 "0.1"   "0.1.1"
+       0  "0.1.1" "0.1.1"
+       ;; ? "0.1.0" "0.1"
+       ;; 1  "1.2" "1.2-RC2"
+       0  "1.1-RC" "1.1-RC"
+       0  "0.2-SNAPSHOT" "0.2-SNAPSHOT"
+       1  "0.1"          "0.1-SNAPSHOT"
+       -1 "0.1-SNAPSHOT" "0.1"))