aboutsummaryrefslogtreecommitdiff
path: root/test/order_test.gleam
diff options
context:
space:
mode:
Diffstat (limited to 'test/order_test.gleam')
-rw-r--r--test/order_test.gleam52
1 files changed, 52 insertions, 0 deletions
diff --git a/test/order_test.gleam b/test/order_test.gleam
new file mode 100644
index 0000000..07b527c
--- /dev/null
+++ b/test/order_test.gleam
@@ -0,0 +1,52 @@
+import expect
+import order
+
+// TODO: https://github.com/lpil/gleam/issues/141
+
+// pub fn reverse_test() {
+// order:reverse(Lt) |> expect:equal(_, Gt)
+// order:reverse(Eq) |> expect:equal(_, Eq)
+// order:reverse(Gt) |> expect:equal(_, Lt)
+// }
+
+// pub fn to_int_test() {
+// order:to_int(Lt) |> expect:equal(_, -1)
+// order:to_int(Eq) |> expect:equal(_, 0)
+// order:to_int(Gt) |> expect:equal(_, 1)
+// }
+
+// pub fn compare_test() {
+// order:compare(Lt, Lt) |> expect:equal(_, Eq)
+// order:compare(Lt, Eq) |> expect:equal(_, Lt)
+// order:compare(Lt, Gt) |> expect:equal(_, Lt)
+// order:compare(Eq, Lt) |> expect:equal(_, Gt)
+// order:compare(Eq, Eq) |> expect:equal(_, Eq)
+// order:compare(Eq, Gt) |> expect:equal(_, Lt)
+// order:compare(Gt, Lt) |> expect:equal(_, Gt)
+// order:compare(Gt, Eq) |> expect:equal(_, Gt)
+// order:compare(Gt, Gt) |> expect:equal(_, Eq)
+// }
+
+// pub fn max_test() {
+// order:max(Lt, Lt) |> expect:equal(_, Lt)
+// order:max(Lt, Eq) |> expect:equal(_, Eq)
+// order:max(Lt, Gt) |> expect:equal(_, Gt)
+// order:max(Eq, Lt) |> expect:equal(_, Eq)
+// order:max(Eq, Eq) |> expect:equal(_, Eq)
+// order:max(Eq, Gt) |> expect:equal(_, Gt)
+// order:max(Gt, Lt) |> expect:equal(_, Gt)
+// order:max(Gt, Eq) |> expect:equal(_, Gt)
+// order:max(Gt, Gt) |> expect:equal(_, Gt)
+// }
+
+// pub fn min_test() {
+// order:min(Lt, Lt) |> expect:equal(_, Lt)
+// order:min(Lt, Eq) |> expect:equal(_, Lt)
+// order:min(Lt, Gt) |> expect:equal(_, Lt)
+// order:min(Eq, Lt) |> expect:equal(_, Lt)
+// order:min(Eq, Eq) |> expect:equal(_, Eq)
+// order:min(Eq, Gt) |> expect:equal(_, Eq)
+// order:min(Gt, Lt) |> expect:equal(_, Lt)
+// order:min(Gt, Eq) |> expect:equal(_, Eq)
+// order:min(Gt, Gt) |> expect:equal(_, Gt)
+// }