HS: cookies iteration via host-iter? before dict? (+1 test)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-04-26 14:24:16 +00:00
parent 11ee71d846
commit 4b69650336
5 changed files with 128 additions and 93 deletions

View File

@@ -4974,7 +4974,17 @@
(eval-hs "set cookies.foo to 'bar'")
(assert= (eval-hs "cookies.foo") "bar"))
(deftest "iterate cookies values work"
(error "SKIP (untranslated): iterate cookies values work"))
(hs-cleanup!)
(host-set! (host-global "cookies") "foo" "bar")
(let ((_names (list)) (_values (list)))
(hs-for-each
(fn (x)
(append! _names (host-get x "name"))
(append! _values (host-get x "value")))
(host-global "cookies"))
(assert-contains "foo" _names)
(assert-contains "bar" _values))
)
(deftest "length is 0 when no cookies are set"
(hs-cleanup!)
(assert= (eval-hs "cookies.length") 0))