test: more cookie tests #48

tests/testthat/_snaps/cookie.md

@@ -0,0 +1,7 @@
+# Request cookie
+
+    Code
+      parser
+    Message <cliMessage>
+      i A cookie parser
+

tests/testthat/test-cookie.R

@@ -1,13 +1,48 @@
 test_that("Request cookie", {
+  # cookie set
   req <- mockRequest(
     cookie = "yummy_cookie=choco; tasty_cookie=strawberry"
   )
   expect_s3_class(req, "Request")
+  expect_length(req$cookie, 2L)
   expect_equal(
     req$cookie,
     list(
       yummy_cookie = "choco", 
       tasty_cookie = "strawberry"
     )
   )
+
+  # empty coookie
+  req <- mockRequest(cookie = "")
+  expect_length(req$cookie, 0L)
+  expect_type(req$cookie, "list")
+  expect_equal(req$cookie, list())
+
+  # incorrect cookie
+  req <- mockRequest(
+    cookie = "yummy_cookie=choco; tasty_cookie="
+  )
+  expect_length(req$cookie, 1L)
+  expect_type(req$cookie, "list")
+  expect_equal(
+    req$cookie, 
+    list(
+      yummy_cookie = "choco"
+    )
+  )
+
+  # parser
+  fn <- function(req) {
+    return(req$HTTP_COOKIE)
+  }
+  parser <- as_cookie_parser(fn)
+  expect_snapshot(parser)
+  app <- Ambiorix$new()
+  app$use(parser)
+  req <- mockRequest(
+    cookie = "yummy_cookie=choco;"
+  )
+  expect_type(req$cookie, "character")
+  expect_equal(req$cookie, "yummy_cookie=choco;")
 })