diff options
Diffstat (limited to 'stdlib/source/test/lux/world/net/http/header.lux')
-rw-r--r-- | stdlib/source/test/lux/world/net/http/header.lux | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/stdlib/source/test/lux/world/net/http/header.lux b/stdlib/source/test/lux/world/net/http/header.lux index 6a3c48a99..50b25f24b 100644 --- a/stdlib/source/test/lux/world/net/http/header.lux +++ b/stdlib/source/test/lux/world/net/http/header.lux @@ -18,7 +18,8 @@ [\\library ["[0]" / (.only) [// - ["[0]" mime (.use "[1]#[0]" equivalence)]]]]) + ["[0]" mime (.use "[1]#[0]" equivalence)] + ["[0]" cookie (.only Cookie)]]]]) (def .public test Test @@ -70,4 +71,19 @@ (/.one /.location) (try#each (text#= expected_location)) (try.else false))) + (do ! + [name (random.upper_case 1) + expected_value (random.lower_case 1) + .let [cookie (is (Cookie Text) + [cookie.#name name + cookie.#in (|>>) + cookie.#out (|>> {try.#Success})]) + expected_jar (|> cookie.empty + (cookie.has cookie expected_value))]] + (_.coverage [/.set_cookies] + (|> /.empty + (/.has /.set_cookies expected_jar) + (/.one /.set_cookies) + (try#each (at cookie.equivalence = expected_jar)) + (try.else false)))) ))) |