1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
let () =
assert (Lang_string.Version.of_string "2.0.0~beta1" = ([2; 0; 0], "~beta1"));
assert (
Lang_string.Version.of_string "2.0.0+git@7e211ffd"
= ([2; 0; 0], "+git@7e211ffd"));
assert (
Lang_string.Version.of_string "2.314234~beta1" = ([2; 314234], "~beta1"));
assert (Lang_string.Version.of_string "2.314234" = ([2; 314234], ""));
assert (Lang_string.Version.of_string "2.0.0" = ([2; 0; 0], ""));
assert (
Lang_string.Version.of_string "2.3.1.4.2.3.4" = ([2; 3; 1; 4; 2; 3; 4], ""));
assert (Lang_string.Version.compare ([2; 0; 0], "") ([2; 0; 0], "~beta1") = 1);
assert (
Lang_string.Version.compare ([2; 0; 0], "+foo") ([2; 0; 0], "~beta1") = 1);
assert (
Lang_string.Version.compare ([2; 0; 0], "~beta1") ([2; 0; 0], "+foo") = -1);
assert (Lang_string.Version.compare ([2; 0; 0], "~beta1") ([2; 0; 0], "") = -1);
assert (Lang_string.Version.compare ([2; 1; 0], "~beta1") ([2; 0; 0], "") = 1);
assert (
Lang_string.Version.compare ([2; 1; 0], "~beta1") ([2; 12; 0], "") = -1);
assert (Lang_string.Version.compare ([2; 12; 0], "") ([2; 12; 0], "") = 0);
assert (
Lang_string.Version.compare ([2; 0; 0], "+foo") ([2; 0; 0], "+bla") = 1);
assert (
Lang_string.Version.compare ([2; 0; 0], "~bla") ([2; 0; 0], "~foo") = -1);
assert (Lang_string.Version.compare ([2; 0], "") ([2; 0; 0], "") = -1);
assert (Lang_string.Version.compare ([2; 0; 0], "") ([2; 0], "") = 1)
|
