aboutsummaryrefslogtreecommitdiff
path: root/src/bool.gleam
diff options
context:
space:
mode:
Diffstat (limited to 'src/bool.gleam')
-rw-r--r--src/bool.gleam61
1 files changed, 1 insertions, 60 deletions
diff --git a/src/bool.gleam b/src/bool.gleam
index b4e5287..d1d9ac4 100644
--- a/src/bool.gleam
+++ b/src/bool.gleam
@@ -1,5 +1,4 @@
-import expect
-import order
+// import order
pub fn negate(bool) {
case bool {
@@ -8,14 +7,6 @@ pub fn negate(bool) {
}
}
-test negate {
- negate(True)
- |> expect:false
-
- negate(False)
- |> expect:true
-}
-
// pub fn compare(a, b) {
// case {a, b} {
// | {True, True} -> order:Eq
@@ -25,20 +16,6 @@ test negate {
// }
// }
-// test compare {
-// compare(True, True)
-// |> expect:equal(_, order:Eq)
-
-// compare(True, False)
-// |> expect:equal(_, order:Gt)
-
-// compare(False, False)
-// |> expect:equal(_, order:Lt)
-
-// compare(False, True)
-// |> expect:equal(_, order:Gt)
-// }
-
pub fn max(a, b) {
case a {
| True -> True
@@ -46,20 +23,6 @@ pub fn max(a, b) {
}
}
-test max {
- max(True, True)
- |> expect:equal(_, True)
-
- max(True, False)
- |> expect:equal(_, True)
-
- max(False, False)
- |> expect:equal(_, False)
-
- max(False, True)
- |> expect:equal(_, True)
-}
-
pub fn min(a, b) {
case a {
| False -> False
@@ -67,31 +30,9 @@ pub fn min(a, b) {
}
}
-test min {
- min(True, True)
- |> expect:equal(_, True)
-
- min(True, False)
- |> expect:equal(_, False)
-
- min(False, False)
- |> expect:equal(_, False)
-
- min(False, True)
- |> expect:equal(_, False)
-}
-
pub fn to_int(bool) {
case bool {
| False -> 0
| True -> 1
}
}
-
-test to_int {
- to_int(True)
- |> expect:equal(_, 1)
-
- to_int(False)
- |> expect:equal(_, 0)
-}