aboutsummaryrefslogtreecommitdiff
path: root/src/order.gleam
diff options
context:
space:
mode:
Diffstat (limited to 'src/order.gleam')
-rw-r--r--src/order.gleam50
1 files changed, 0 insertions, 50 deletions
diff --git a/src/order.gleam b/src/order.gleam
index 9e69114..4d39705 100644
--- a/src/order.gleam
+++ b/src/order.gleam
@@ -1,5 +1,3 @@
-import expect
-
pub enum Order =
| Lt
| Eq
@@ -14,12 +12,6 @@ pub fn reverse(order) {
}
}
-test reverse {
- reverse(Lt) |> expect:equal(_, Gt)
- reverse(Eq) |> expect:equal(_, Eq)
- reverse(Gt) |> expect:equal(_, Lt)
-}
-
pub fn to_int(order) {
case order {
| Lt -> -1
@@ -28,12 +20,6 @@ pub fn to_int(order) {
}
}
-test to_int {
- to_int(Lt) |> expect:equal(_, -1)
- to_int(Eq) |> expect:equal(_, 0)
- to_int(Gt) |> expect:equal(_, 1)
-}
-
pub fn compare(a, b) {
case {a, b} {
| {Lt, Lt} -> Eq
@@ -45,18 +31,6 @@ pub fn compare(a, b) {
}
}
-test compare {
- compare(Lt, Lt) |> expect:equal(_, Eq)
- compare(Lt, Eq) |> expect:equal(_, Lt)
- compare(Lt, Gt) |> expect:equal(_, Lt)
- compare(Eq, Lt) |> expect:equal(_, Gt)
- compare(Eq, Eq) |> expect:equal(_, Eq)
- compare(Eq, Gt) |> expect:equal(_, Lt)
- compare(Gt, Lt) |> expect:equal(_, Gt)
- compare(Gt, Eq) |> expect:equal(_, Gt)
- compare(Gt, Gt) |> expect:equal(_, Eq)
-}
-
pub fn max(a, b) {
case {a, b} {
| {Gt, _} -> Gt
@@ -65,18 +39,6 @@ pub fn max(a, b) {
}
}
-test max {
- max(Lt, Lt) |> expect:equal(_, Lt)
- max(Lt, Eq) |> expect:equal(_, Eq)
- max(Lt, Gt) |> expect:equal(_, Gt)
- max(Eq, Lt) |> expect:equal(_, Eq)
- max(Eq, Eq) |> expect:equal(_, Eq)
- max(Eq, Gt) |> expect:equal(_, Gt)
- max(Gt, Lt) |> expect:equal(_, Gt)
- max(Gt, Eq) |> expect:equal(_, Gt)
- max(Gt, Gt) |> expect:equal(_, Gt)
-}
-
pub fn min(a, b) {
case {a, b} {
| {Lt, _} -> Lt
@@ -84,15 +46,3 @@ pub fn min(a, b) {
| _ -> b
}
}
-
-test min {
- min(Lt, Lt) |> expect:equal(_, Lt)
- min(Lt, Eq) |> expect:equal(_, Lt)
- min(Lt, Gt) |> expect:equal(_, Lt)
- min(Eq, Lt) |> expect:equal(_, Lt)
- min(Eq, Eq) |> expect:equal(_, Eq)
- min(Eq, Gt) |> expect:equal(_, Eq)
- min(Gt, Lt) |> expect:equal(_, Lt)
- min(Gt, Eq) |> expect:equal(_, Eq)
- min(Gt, Gt) |> expect:equal(_, Gt)
-}