~ chicken-core (master) /tests/version-module-tests.scm

 1(import (chicken eval)
 2        (chicken load)
 3        (chicken version))
 4
 5(cond-expand
 6 (compiling
 7  (include "test.scm") )
 8 (else
 9  (load-relative "test.scm")))
10
11(test-begin "chicken.version")
12
13(test-assert "0 >= 0"                 (version>=? "0" "0"))
14(test-assert "1 >= 0"                 (version>=? "1" "0"))
15(test-assert "1.0 >= 0.0.1"           (version>=? "1.0" "0.0.1"))
16(test-assert "1.0 >= 0.1.1"           (version>=? "1.0" "0.1.1"))
17(test-assert "0.0.0 >= 0.0.0"         (version>=? "0.0.0" "0.0.0"))
18(test-assert "0.0.0 >= 0.0"           (version>=? "0.0.0" "0.0"))
19(test-assert "0.0.1 >= 0.0.0"         (version>=? "0.0.1" "0.0.0"))
20(test-assert "1.0.0 >= 0.0.0"         (version>=? "1.0.0" "0.0.0"))
21(test-assert "1.0.0 >= 0.0.0b"        (version>=? "1.0.0" "0.0.0b"))
22(test-assert "1.0.0b >= 1.0.0"        (version>=? "1.0.0b" "1.0.0"))
23(test-assert "1.0.0 >= 0.9.9-rc1"     (version>=? "1.0.0" "0.9.9-rc1"))
24(test-assert "1.10 >= 1.09"           (version>=? "1.10" "1.09"))
25(test-assert "1.10.2 >= 1.09.2"       (version>=? "1.10.2" "1.09.2"))
26
27(test-end "chicken.version")
28
29(test-exit)