From e24aa7faa46ad4a0318be951e81f2daa93382762 Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sat, 1 Jan 2022 16:42:57 +0000
Subject: Bool tests

---
 src/gleam/json.gleam       |  3 ---
 test/gleam_json_test.gleam | 10 ++++++++++
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/src/gleam/json.gleam b/src/gleam/json.gleam
index 5e44f71..fb0ac36 100644
--- a/src/gleam/json.gleam
+++ b/src/gleam/json.gleam
@@ -52,12 +52,10 @@ pub fn nullable(from input: Option(a), of inner_type: fn(a) -> Json) -> Json {
 }
 
 // TODO: document
-// TODO: test
 pub external fn object(entries: List(#(String, Json))) -> Json =
   "thoas_encode" "non_recursive_object"
 
 // TODO: document
-// TODO: test
 pub fn array(from entries: List(a), of inner_type: fn(a) -> Json) -> Json {
   entries
   |> list.map(inner_type)
@@ -65,6 +63,5 @@ pub fn array(from entries: List(a), of inner_type: fn(a) -> Json) -> Json {
 }
 
 // TODO: document
-// TODO: test
 pub external fn preprocessed_array(from: List(Json)) -> Json =
   "thoas_encode" "non_recursive_array"
diff --git a/test/gleam_json_test.gleam b/test/gleam_json_test.gleam
index 8fe256d..79f17f9 100644
--- a/test/gleam_json_test.gleam
+++ b/test/gleam_json_test.gleam
@@ -62,6 +62,16 @@ pub fn encode_nullable_none_test() {
   |> should_encode("null")
 }
 
+pub fn encode_bool_true_test() {
+  json.bool(True)
+  |> should_encode("true")
+}
+
+pub fn encode_bool_false_test() {
+  json.bool(False)
+  |> should_encode("false")
+}
+
 fn should_encode(data: Json, expected: String) {
   data
   |> json.to_string()
-- 
cgit v1.2.3