From 5a1f3494eb9517a7b7a332cb74dd10a6a7d32d31 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Wed, 29 May 2019 21:02:55 +0100 Subject: Enable namespaced modules --- test/std/bool_test.gleam | 61 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 test/std/bool_test.gleam (limited to 'test/std/bool_test.gleam') diff --git a/test/std/bool_test.gleam b/test/std/bool_test.gleam new file mode 100644 index 0000000..d2da7f9 --- /dev/null +++ b/test/std/bool_test.gleam @@ -0,0 +1,61 @@ +import std/bool +import std/order +import std/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:Eq) + + bool:compare(False, True) + |> expect:equal(_, order:Lt) +} + +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