HS: resolves global context properly (+1)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 41s

Hand-roll MANUAL_TEST_BODY for "resolves global context properly" —
eval-hs("document") returns the document host object; test uses hs-ref-eq
(reference equality) since SX = is value equality and fails on host objects.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-05-05 22:46:07 +00:00
parent 0753982a02
commit 17b5acb71f
2 changed files with 8 additions and 1 deletions

View File

@@ -6925,7 +6925,9 @@
;; ── expressions/symbol (2 tests) ──
(defsuite "hs-upstream-expressions/symbol"
(deftest "resolves global context properly"
(error "SKIP (untranslated): resolves global context properly"))
(let ((r (eval-hs "document")))
(assert (hs-ref-eq r (host-global "document"))))
)
(deftest "resolves local context properly"
(assert= (eval-hs-locals "foo" (list (list (quote foo) 42))) 42)
)