diff options
Diffstat (limited to 'src/order.gleam')
-rw-r--r-- | src/order.gleam | 50 |
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) -} |