23 lines
774 B
Text
23 lines
774 B
Text
|
(ns version-clj.split-test
|
||
|
|
(:require [clojure.test :refer [deftest are is]]
|
||
|
|
[version-clj.split :refer [version->seq]]))
|
||
|
|
|
||
|
|
(deftest t-split
|
||
|
|
(are [version v] (= (version->seq version) v)
|
||
|
|
"1.0.0" [[1 0 0]]
|
||
|
|
"1.0" [[1 0]]
|
||
|
|
"1" [[1]]
|
||
|
|
"1a" [[1] ["a"]]
|
||
|
|
"1-a" [[1] ["a"]]
|
||
|
|
"1.0.1-SNAPSHOT" [[1 0 1] ["snapshot"]]
|
||
|
|
"1.0.1-alpha2" [[1 0 1] ["alpha" 2]]
|
||
|
|
"11.2.0.3.0" [[11 2 0 3 0]]
|
||
|
|
"1.0-1-0.2-RC" [[1 [0 1 0] 2] ["rc"]]))
|
||
|
|
|
||
|
|
(deftest t-split-with-large-number
|
||
|
|
(is (= (version->seq "0.0.1-20141002100138")
|
||
|
|
[[0 0 1] [20141002100138]]))
|
||
|
|
#?(:clj
|
||
|
|
(let [v (str Long/MAX_VALUE "12345")]
|
||
|
|
(is (= (version->seq v) [[(bigint v)]])))))
|