Skip to content

Commit 59a644c

Browse files
lpillpil
committed
order tests
1 parent 8fb5ad8 commit 59a644c

File tree

2 files changed

+150
-50
lines changed

2 files changed

+150
-50
lines changed

‎gen/test/order_test.erl‎

Lines changed: 42 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,47 @@
11
-module(order_test).
22
-compile(no_auto_import).
33

4-
-export([]).
4+
-export([reverse_test/0, to_int_test/0, compare_test/0, max_test/0, min_test/0]).
55

6+
reverse_test() ->
7+
expect:equal(order:reverse(lt), gt),
8+
expect:equal(order:reverse(eq), eq),
9+
expect:equal(order:reverse(gt), lt).
610

11+
to_int_test() ->
12+
expect:equal(order:to_int(lt), -1),
13+
expect:equal(order:to_int(eq), 0),
14+
expect:equal(order:to_int(gt), 1).
15+
16+
compare_test() ->
17+
expect:equal(order:compare(lt, lt), eq),
18+
expect:equal(order:compare(lt, eq), lt),
19+
expect:equal(order:compare(lt, gt), lt),
20+
expect:equal(order:compare(eq, lt), gt),
21+
expect:equal(order:compare(eq, eq), eq),
22+
expect:equal(order:compare(eq, gt), lt),
23+
expect:equal(order:compare(gt, lt), gt),
24+
expect:equal(order:compare(gt, eq), gt),
25+
expect:equal(order:compare(gt, gt), eq).
26+
27+
max_test() ->
28+
expect:equal(order:max(lt, lt), lt),
29+
expect:equal(order:max(lt, eq), eq),
30+
expect:equal(order:max(lt, gt), gt),
31+
expect:equal(order:max(eq, lt), eq),
32+
expect:equal(order:max(eq, eq), eq),
33+
expect:equal(order:max(eq, gt), gt),
34+
expect:equal(order:max(gt, lt), gt),
35+
expect:equal(order:max(gt, eq), gt),
36+
expect:equal(order:max(gt, gt), gt).
37+
38+
min_test() ->
39+
expect:equal(order:min(lt, lt), lt),
40+
expect:equal(order:min(lt, eq), lt),
41+
expect:equal(order:min(lt, gt), lt),
42+
expect:equal(order:min(eq, lt), lt),
43+
expect:equal(order:min(eq, eq), eq),
44+
expect:equal(order:min(eq, gt), eq),
45+
expect:equal(order:min(gt, lt), lt),
46+
expect:equal(order:min(gt, eq), eq),
47+
expect:equal(order:min(gt, gt), gt).

‎test/order_test.gleam‎

Lines changed: 108 additions & 49 deletions
Original file line numberDiff line numberDiff line change
@@ -1,52 +1,111 @@
11
import expect
22
import order
33

4-
// TODO: https://github.com/lpil/gleam/issues/141
5-
6-
// pub fn reverse_test() {
7-
// order:reverse(Lt) |> expect:equal(_, Gt)
8-
// order:reverse(Eq) |> expect:equal(_, Eq)
9-
// order:reverse(Gt) |> expect:equal(_, Lt)
10-
// }
11-
12-
// pub fn to_int_test() {
13-
// order:to_int(Lt) |> expect:equal(_, -1)
14-
// order:to_int(Eq) |> expect:equal(_, 0)
15-
// order:to_int(Gt) |> expect:equal(_, 1)
16-
// }
17-
18-
// pub fn compare_test() {
19-
// order:compare(Lt, Lt) |> expect:equal(_, Eq)
20-
// order:compare(Lt, Eq) |> expect:equal(_, Lt)
21-
// order:compare(Lt, Gt) |> expect:equal(_, Lt)
22-
// order:compare(Eq, Lt) |> expect:equal(_, Gt)
23-
// order:compare(Eq, Eq) |> expect:equal(_, Eq)
24-
// order:compare(Eq, Gt) |> expect:equal(_, Lt)
25-
// order:compare(Gt, Lt) |> expect:equal(_, Gt)
26-
// order:compare(Gt, Eq) |> expect:equal(_, Gt)
27-
// order:compare(Gt, Gt) |> expect:equal(_, Eq)
28-
// }
29-
30-
// pub fn max_test() {
31-
// order:max(Lt, Lt) |> expect:equal(_, Lt)
32-
// order:max(Lt, Eq) |> expect:equal(_, Eq)
33-
// order:max(Lt, Gt) |> expect:equal(_, Gt)
34-
// order:max(Eq, Lt) |> expect:equal(_, Eq)
35-
// order:max(Eq, Eq) |> expect:equal(_, Eq)
36-
// order:max(Eq, Gt) |> expect:equal(_, Gt)
37-
// order:max(Gt, Lt) |> expect:equal(_, Gt)
38-
// order:max(Gt, Eq) |> expect:equal(_, Gt)
39-
// order:max(Gt, Gt) |> expect:equal(_, Gt)
40-
// }
41-
42-
// pub fn min_test() {
43-
// order:min(Lt, Lt) |> expect:equal(_, Lt)
44-
// order:min(Lt, Eq) |> expect:equal(_, Lt)
45-
// order:min(Lt, Gt) |> expect:equal(_, Lt)
46-
// order:min(Eq, Lt) |> expect:equal(_, Lt)
47-
// order:min(Eq, Eq) |> expect:equal(_, Eq)
48-
// order:min(Eq, Gt) |> expect:equal(_, Eq)
49-
// order:min(Gt, Lt) |> expect:equal(_, Lt)
50-
// order:min(Gt, Eq) |> expect:equal(_, Eq)
51-
// order:min(Gt, Gt) |> expect:equal(_, Gt)
52-
// }
4+
pub fn reverse_test() {
5+
order:reverse(order:Lt)
6+
|> expect:equal(_, order:Gt)
7+
8+
order:reverse(order:Eq)
9+
|> expect:equal(_, order:Eq)
10+
11+
order:reverse(order:Gt)
12+
|> expect:equal(_, order:Lt)
13+
}
14+
15+
pub fn to_int_test() {
16+
order:to_int(order:Lt)
17+
|> expect:equal(_, -1)
18+
19+
order:to_int(order:Eq)
20+
|> expect:equal(_, 0)
21+
22+
order:to_int(order:Gt)
23+
|> expect:equal(_, 1)
24+
}
25+
26+
pub fn compare_test() {
27+
order:compare(order:Lt, order:Lt)
28+
|> expect:equal(_, order:Eq)
29+
30+
order:compare(order:Lt, order:Eq)
31+
|> expect:equal(_, order:Lt)
32+
33+
order:compare(order:Lt, order:Gt)
34+
|> expect:equal(_, order:Lt)
35+
36+
order:compare(order:Eq, order:Lt)
37+
|> expect:equal(_, order:Gt)
38+
39+
order:compare(order:Eq, order:Eq)
40+
|> expect:equal(_, order:Eq)
41+
42+
order:compare(order:Eq, order:Gt)
43+
|> expect:equal(_, order:Lt)
44+
45+
order:compare(order:Gt, order:Lt)
46+
|> expect:equal(_, order:Gt)
47+
48+
order:compare(order:Gt, order:Eq)
49+
|> expect:equal(_, order:Gt)
50+
51+
order:compare(order:Gt, order:Gt)
52+
|> expect:equal(_, order:Eq)
53+
}
54+
55+
pub fn max_test() {
56+
order:max(order:Lt, order:Lt)
57+
|> expect:equal(_, order:Lt)
58+
59+
order:max(order:Lt, order:Eq)
60+
|> expect:equal(_, order:Eq)
61+
62+
order:max(order:Lt, order:Gt)
63+
|> expect:equal(_, order:Gt)
64+
65+
order:max(order:Eq, order:Lt)
66+
|> expect:equal(_, order:Eq)
67+
68+
order:max(order:Eq, order:Eq)
69+
|> expect:equal(_, order:Eq)
70+
71+
order:max(order:Eq, order:Gt)
72+
|> expect:equal(_, order:Gt)
73+
74+
order:max(order:Gt, order:Lt)
75+
|> expect:equal(_, order:Gt)
76+
77+
order:max(order:Gt, order:Eq)
78+
|> expect:equal(_, order:Gt)
79+
80+
order:max(order:Gt, order:Gt)
81+
|> expect:equal(_, order:Gt)
82+
}
83+
84+
pub fn min_test() {
85+
order:min(order:Lt, order:Lt)
86+
|> expect:equal(_, order:Lt)
87+
88+
order:min(order:Lt, order:Eq)
89+
|> expect:equal(_, order:Lt)
90+
91+
order:min(order:Lt, order:Gt)
92+
|> expect:equal(_, order:Lt)
93+
94+
order:min(order:Eq, order:Lt)
95+
|> expect:equal(_, order:Lt)
96+
97+
order:min(order:Eq, order:Eq)
98+
|> expect:equal(_, order:Eq)
99+
100+
order:min(order:Eq, order:Gt)
101+
|> expect:equal(_, order:Eq)
102+
103+
order:min(order:Gt, order:Lt)
104+
|> expect:equal(_, order:Lt)
105+
106+
order:min(order:Gt, order:Eq)
107+
|> expect:equal(_, order:Eq)
108+
109+
order:min(order:Gt, order:Gt)
110+
|> expect:equal(_, order:Gt)
111+
}

0 commit comments

Comments
 (0)