HS: resolves global context properly (+1)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 41s
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:
@@ -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)
|
||||
)
|
||||
|
||||
@@ -326,6 +326,11 @@ MANUAL_TEST_BODIES = {
|
||||
' (list (list (quote record) record)))',
|
||||
' "<div age=\\"21\\" style=\\"color:bleaux\\">John Connor</div>"))',
|
||||
],
|
||||
# symbol: document resolves to the global document object (reference equality)
|
||||
"resolves global context properly": [
|
||||
' (let ((r (eval-hs "document")))',
|
||||
' (assert (hs-ref-eq r (host-global "document"))))',
|
||||
],
|
||||
# asExpression: custom conversions — set/clear via hs-set-conversion! + hs-add-dynamic-converter!
|
||||
"can accept custom conversions": [
|
||||
' (do',
|
||||
|
||||
Reference in New Issue
Block a user