From 8cfa606f3834cf7d05f5011bc68295a9d84263dc Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sun, 14 Apr 2019 13:03:24 +0000
Subject: stdlib: Split out tests

---
 test/bool_test.gleam | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 test/bool_test.gleam

(limited to 'test/bool_test.gleam')

diff --git a/test/bool_test.gleam b/test/bool_test.gleam
new file mode 100644
index 0000000..78c711b
--- /dev/null
+++ b/test/bool_test.gleam
@@ -0,0 +1,61 @@
+import bool
+// import order
+import expect
+
+pub fn negate_test() {
+  bool:negate(True)
+    |> expect:false
+
+  bool:negate(False)
+    |> expect:true
+}
+
+// pub fn compare_test() {
+//   bool:compare(True, True)
+//     |> expect:equal(_, order:Eq)
+
+//   bool:compare(True, False)
+//     |> expect:equal(_, order:Gt)
+
+//   bool:compare(False, False)
+//     |> expect:equal(_, order:Lt)
+
+//   bool:compare(False, True)
+//     |> expect:equal(_, order:Gt)
+// }
+
+pub fn max_test() {
+  bool:max(True, True)
+    |> expect:equal(_, True)
+
+  bool:max(True, False)
+    |> expect:equal(_, True)
+
+  bool:max(False, False)
+    |> expect:equal(_, False)
+
+  bool:max(False, True)
+    |> expect:equal(_, True)
+}
+
+pub fn min_test() {
+  bool:min(True, True)
+    |> expect:equal(_, True)
+
+  bool:min(True, False)
+    |> expect:equal(_, False)
+
+  bool:min(False, False)
+    |> expect:equal(_, False)
+
+  bool:min(False, True)
+    |> expect:equal(_, False)
+}
+
+pub fn to_int_test() {
+  bool:to_int(True)
+    |> expect:equal(_, 1)
+
+  bool:to_int(False)
+    |> expect:equal(_, 0)
+}
-- 
cgit v1.2.3