coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions 7 Packages Projects Releases Wiki Activity

HS test generator: property access, locals, me-val, nested opts (515→517/831)

Browse Source 
- Handle result["foo"] and result.foo property access after eval-hs
- Handle { locals: { x: 5, y: 5 } } opts with nested braces
- Handle { me: N } opts via eval-hs-with-me helper
- Add eval-hs-with-me to test framework for "I am between" tests
- Use host-get for property access on host handles (JSON.parse results)

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-16 14:58:00 +00:00
parent fc76a42403
commit 87fdb1db71
2 changed files with 63 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
spec/tests/test-hyperscript-behavioral.sx
View File

@@ -25,6 +25,14 @@
(list (quote fn) (list (quote me)) (list (quote let) (list (list (quote it) nil) (list (quote event) nil)) sx)))))
(handler nil)))))
;; Evaluate with a specific me value (for "I am between" etc.)
(define eval-hs-with-me
(fn (src me-val)
(let ((sx (hs-to-sx (hs-compile src))))
(let ((handler (eval-expr-cek
(list (quote fn) (list (quote me)) (list (quote let) (list (list (quote it) nil) (list (quote event) nil)) sx)))))
(handler me-val)))))
;; ── add (19 tests) ──
(defsuite "hs-upstream-add"
(deftest "can add class ref on a single div"
@@ -7492,7 +7500,7 @@
;; ── collectionExpressions (22 tests) ──
(defsuite "hs-upstream-collectionExpressions"
(deftest "filters an array by condition"
(assert= (eval-hs "set arr to [{name: \"a\", active: true}, {name: \"b\", active: false}, {name: \"c\", active: true}] then return arr where its active") (list "a" "c"))
(assert= (map (fn (x) (get x "name")) (eval-hs "set arr to [{name: \"a\", active: true}, {name: \"b\", active: false}, {name: \"c\", active: true}] then return arr where its active")) (list "a" "c"))
)
(deftest "filters with comparison"
(assert= (eval-hs "set arr to [1, 2, 3, 4, 5] then return arr where it > 3") (list 4 5))
@@ -7520,13 +7528,13 @@
(assert= (dom-text-content (dom-query-by-id "out")) "AC")
))
(deftest "sorts by a property"
(assert= (eval-hs "set arr to [{name: \"Charlie\"}, {name: \"Alice\"}, {name: \"Bob\"}] then return arr sorted by its name") (list "Alice" "Bob" "Charlie"))
(assert= (map (fn (x) (get x "name")) (eval-hs "set arr to [{name: \"Charlie\"}, {name: \"Alice\"}, {name: \"Bob\"}] then return arr sorted by its name")) (list "Alice" "Bob" "Charlie"))
)
(deftest "sorts descending"
(assert= (eval-hs "set arr to [3, 1, 2] then return arr sorted by it descending") (list 3 2 1))
)
(deftest "sorts numbers by a computed key"
(assert= (eval-hs "set arr to [{name: \"b\", age: 30}, {name: \"a\", age: 20}, {name: \"c\", age: 25}] then return arr sorted by its age") (list "a" "c" "b"))
(assert= (map (fn (x) (get x "name")) (eval-hs "set arr to [{name: \"b\", age: 30}, {name: \"a\", age: 20}, {name: \"c\", age: 25}] then return arr sorted by its age")) (list "a" "c" "b"))
)
(deftest "maps to a property"
(assert= (eval-hs "set arr to [{name: \"Alice\"}, {name: \"Bob\"}] then return arr mapped to its name") (list "Alice" "Bob"))
@@ -8441,16 +8449,16 @@
(deftest "can use the a modifier if you like"
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
(deftest "parses string as JSON to object"
(assert= (eval-hs "'{\"foo\":\"bar\"}' as JSON") "bar")
(assert= (host-get (eval-hs "'{\"foo\":\"bar\"}' as JSON") "foo") "bar")
)
(deftest "converts value as JSONString"
(assert= (eval-hs "{foo:'bar'} as JSONString") "{"foo":"bar"}")
)
(deftest "pipe operator chains conversions"
(assert= (eval-hs "{foo:'bar'} as JSONString | JSON") "bar")
(assert= (host-get (eval-hs "{foo:'bar'} as JSONString | JSON") "foo") "bar")
)
(deftest "can use the an modifier if you'd like"
(assert= (eval-hs "'{\"foo\":\"bar\"}' as an Object") "bar")
(assert= (host-get (eval-hs "'{\"foo\":\"bar\"}' as an Object") "foo") "bar")
)
(deftest "collects duplicate text inputs into an array"
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
@@ -8658,12 +8666,12 @@
(assert= (eval-hs "'d' is between 'a' and 'c'") false)
)
(deftest "I am between works"
(assert= (eval-hs "I am between 1 and 10") true)
(assert= (eval-hs "I am between 1 and 10") false)
(assert= (eval-hs-with-me "I am between 1 and 10" 5) true)
(assert= (eval-hs-with-me "I am between 1 and 10" 0) false)
)
(deftest "I am not between works"
(assert= (eval-hs "I am not between 1 and 10") false)
(assert= (eval-hs "I am not between 1 and 10") true)
(assert= (eval-hs-with-me "I am not between 1 and 10" 5) false)
(assert= (eval-hs-with-me "I am not between 1 and 10" 0) true)
)
(deftest "precedes works"
(hs-cleanup!)
@@ -8777,8 +8785,8 @@
(dom-append (dom-body) _el-b2)
))
(deftest "is still does equality when rhs variable exists"
(assert= (eval-hs "x is y") true)
(assert= (eval-hs "x is y") false)
(let ((x 5) (y 5)) (assert= (eval-hs "x is y") true))
(let ((x 5) (y 6)) (assert= (eval-hs "x is y") false))
)
(deftest "is boolean property works in where clause"
(hs-cleanup!)