Test body functions

src/wisp/testing.gleam

···
   request(http.Patch, path, headers, <<body:utf8>>)
 }
 
-// TODO: test
 // TODO: document
 pub fn string_body(response: Response) -> String {
   case response.body {
···
   }
 }
 
-// TODO: test
 // TODO: document
 pub fn bit_string_body(response: Response) -> BitString {
   case response.body {

test/fixture.txt

···
+Hello, Joe!

test/wisp/testing_test.gleam

···
-import wisp
-import wisp/testing
 import gleam/http
+import gleam/http/response
 import gleam/option.{None}
+import gleam/string_builder
 import gleeunit/should
+import wisp
+import wisp/testing
 
 pub fn request_test() {
   let request =
···
   |> wisp.read_body_to_bitstring
   |> should.equal(Ok(<<"wubwub":utf8>>))
 }
+
+pub fn string_body_empty_test() {
+  wisp.ok()
+  |> response.set_body(wisp.Empty)
+  |> testing.string_body
+  |> should.equal("")
+}
+
+pub fn string_body_file_test() {
+  wisp.ok()
+  |> response.set_body(wisp.File("test/fixture.txt"))
+  |> testing.string_body
+  |> should.equal("Hello, Joe!\n")
+}
+
+pub fn string_body_text_test() {
+  wisp.ok()
+  |> response.set_body(wisp.Text(string_builder.from_string("Hello, Joe!")))
+  |> testing.string_body
+  |> should.equal("Hello, Joe!")
+}
+
+pub fn bit_string_body_empty_test() {
+  wisp.ok()
+  |> response.set_body(wisp.Empty)
+  |> testing.bit_string_body
+  |> should.equal(<<>>)
+}
+
+pub fn bit_string_body_file_test() {
+  wisp.ok()
+  |> response.set_body(wisp.File("test/fixture.txt"))
+  |> testing.bit_string_body
+  |> should.equal(<<"Hello, Joe!\n":utf8>>)
+}
+
+pub fn bit_string_body_text_test() {
+  wisp.ok()
+  |> response.set_body(wisp.Text(string_builder.from_string("Hello, Joe!")))
+  |> testing.bit_string_body
+  |> should.equal(<<"Hello, Joe!":utf8>>)
+}