Test cookie helper

src/wisp.gleam

···
     |> request.get_cookies
     |> list.key_find(name),
   )
-  case security {
+  use value <- result.try(case security {
     PlainText -> base.decode64(value)
     Signed -> verify_signed_message(request, value)
-  }
-  |> result.try(bit_string.to_string)
+  })
+  bit_string.to_string(value)
 }
-
-/// Get all the cookies for a request.
-///
-/// Any malformed cookies will be ignored, as specified in RFC6265.
-///
-/// # Examples
-///
-/// ```gleam
-/// wisp.get_cookies(request)
-/// // -> [#("accepted", "1"), #("group", "A")]
-/// ```
-///
-pub const get_cookies = request.get_cookies
 
 //
 // Testing

test/wisp/testing_test.gleam

···
     #("accept", "application/json"),
   ])
 }
+
+pub fn set_cookie_plain_text_test() {
+  let req =
+    testing.get("/", [])
+    |> testing.set_cookie("abc", "1234", wisp.PlainText)
+    |> testing.set_cookie("def", "5678", wisp.PlainText)
+  req.headers
+  |> should.equal([#("cookie", "abc=MTIzNA; def=NTY3OA")])
+}
+
+pub fn set_cookie_signed_test() {
+  let req =
+    testing.get("/", [])
+    |> testing.set_cookie("abc", "1234", wisp.Signed)
+    |> testing.set_cookie("def", "5678", wisp.Signed)
+  req.headers
+  |> should.equal([
+    #(
+      "cookie",
+      "abc=SFM1MTI.MTIzNA.QWGuB_lZLssnh71rC6R5_WOr8MDr8dxE3C_2JvLRAAC4ad4SnmQk0Fl_6_RrtmzdH2O3WaNPExkJsuwBixtWIA; def=SFM1MTI.NTY3OA.R3HRe5woa1qwxvjRUC5ggQVd3hTqGCXIk_4ybU35SXPtGvLrFpHBXWGIjyG5QeuEk9j3jnWIL3ct18olJiSCMw",
+    ),
+  ])
+}

test/wisp_test.gleam

···
   out
   |> should.equal(message)
 }
-
-pub fn get_cookies_test() {
-  let request =
-    testing.get(
-      "/",
-      [
-        #("cookie", "id=123; flash=hi-there; other=456"),
-        #("cookie", "wibble=789; id=456"),
-      ],
-    )
-
-  request
-  |> wisp.get_cookies
-  |> should.equal([
-    #("id", "123"),
-    #("flash", "hi-there"),
-    #("other", "456"),
-    #("wibble", "789"),
-    #("id", "456"),
-  ])
-}