HS: return via raise/guard, def param fix, script block extraction
- Compiler: return compiles to (raise (list "hs-return" value))
- Compiler: def wraps body in guard to catch hs-return exceptions
- Compiler: def params extract name from (ref name) nodes
- Test generator: extract <script type="text/hyperscript"> blocks
and compile def functions as setup before tests
- Test generator: add eval-hs-with-me for {me: N} opts
The return mechanism enables repeat-forever with early exit via return.
Direct SX guard/raise works (returns correct value), but the compiled
HS repeat-forever thunk body needs further debugging for full coverage.
Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
@@ -1826,12 +1826,10 @@
|
||||
))
|
||||
(deftest "repeat forever works"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def repeatForeverWithReturn() set retVal to 0 repeat forever set retVal to retVal + 1 if retVal == 5 then return retVal end end end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def repeatForeverWithReturn() set retVal to 0 repeat forever set retVal to retVal + 1 if retVal == 5 then return retVal end end end")))
|
||||
(let ((_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-set-attr _el-d1 "_" "on click put repeatForeverWithReturn() into my.innerHTML")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-d1)
|
||||
(dom-dispatch _el-d1 "click" nil)
|
||||
@@ -1839,12 +1837,10 @@
|
||||
))
|
||||
(deftest "repeat forever works w/o keyword"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def repeatForeverWithReturn() set retVal to 0 repeat set retVal to retVal + 1 if retVal == 5 then return retVal end end end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def repeatForeverWithReturn() set retVal to 0 repeat set retVal to retVal + 1 if retVal == 5 then return retVal end end end")))
|
||||
(let ((_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-set-attr _el-d1 "_" "on click put repeatForeverWithReturn() into my.innerHTML")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-d1)
|
||||
(dom-dispatch _el-d1 "click" nil)
|
||||
@@ -1879,12 +1875,10 @@
|
||||
))
|
||||
(deftest "while keyword works"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def repeatWhileTest() set retVal to 0 repeat while retVal < 5 set retVal to retVal + 1 end return retVal end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def repeatWhileTest() set retVal to 0 repeat while retVal < 5 set retVal to retVal + 1 end return retVal end")))
|
||||
(let ((_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-set-attr _el-d1 "_" "on click put repeatWhileTest() into my.innerHTML")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-d1)
|
||||
(dom-dispatch _el-d1 "click" nil)
|
||||
@@ -1892,12 +1886,10 @@
|
||||
))
|
||||
(deftest "until keyword works"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def repeatUntilTest() set retVal to 0 repeat until retVal == 5 set retVal to retVal + 1 end return retVal end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def repeatUntilTest() set retVal to 0 repeat until retVal == 5 set retVal to retVal + 1 end return retVal end")))
|
||||
(let ((_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-set-attr _el-d1 "_" "on click put repeatUntilTest() into my.innerHTML")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-d1)
|
||||
(dom-dispatch _el-d1 "click" nil)
|
||||
@@ -1905,23 +1897,19 @@
|
||||
))
|
||||
(deftest "until event keyword works"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-untilTest (dom-create-element "div")) (_el-script (dom-create-element "script")))
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def repeatUntilTest() repeat until event click from #untilTest wait 2ms end return 42 end")))
|
||||
(let ((_el-untilTest (dom-create-element "div")))
|
||||
(dom-set-attr _el-untilTest "id" "untilTest")
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def repeatUntilTest() repeat until event click from #untilTest wait 2ms end return 42 end")
|
||||
(dom-append (dom-body) _el-untilTest)
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-dispatch _el-untilTest "click" nil)
|
||||
;; SKIP check: skip value.should.equal(42)
|
||||
))
|
||||
(deftest "only executes the init expression once"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def getArray() set window.called to (window.called or 0) + 1 return [1, 2, 3] end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def getArray() set window.called to (window.called or 0) + 1 return [1, 2, 3] end")))
|
||||
(let ((_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-set-attr _el-d1 "_" "on click for x in getArray() put x into my.innerHTML end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-d1)
|
||||
(dom-dispatch _el-d1 "click" nil)
|
||||
@@ -1930,12 +1918,10 @@
|
||||
))
|
||||
(deftest "can nest loops"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def sprayInto(elt) for x in [1, 2, 3] for y in [1, 2, 3] put x * y at end of elt end end end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def sprayInto(elt) for x in [1, 2, 3] for y in [1, 2, 3] put x * y at end of elt end end end")))
|
||||
(let ((_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-set-attr _el-d1 "_" "on click call sprayInto(me)")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-d1)
|
||||
(dom-dispatch _el-d1 "click" nil)
|
||||
@@ -3669,11 +3655,9 @@
|
||||
))
|
||||
(deftest "can be in a top level script tag"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-loadedDemo (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "on load put \"Loaded\" into #loadedDemo.innerHTML")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "on load put \"Loaded\" into #loadedDemo.innerHTML")))
|
||||
(let ((_el-loadedDemo (dom-create-element "div")))
|
||||
(dom-set-attr _el-loadedDemo "id" "loadedDemo")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-loadedDemo)
|
||||
;; SKIP check: skip byId("loadedDemo").innerText.should.equal("Loaded")
|
||||
))
|
||||
@@ -4043,11 +4027,9 @@
|
||||
))
|
||||
(deftest "can catch exceptions thrown in hyperscript functions"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-button (dom-create-element "button")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def throwBar() throw 'bar' end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def throwBar() throw 'bar' end")))
|
||||
(let ((_el-button (dom-create-element "button")))
|
||||
(dom-set-attr _el-button "_" "on click throwBar() catch e put e into me")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-button)
|
||||
(hs-activate! _el-button)
|
||||
(dom-dispatch _el-button "click" nil)
|
||||
@@ -4259,205 +4241,119 @@
|
||||
(assert= (dom-inner-html _el-div) "42")
|
||||
))
|
||||
(deftest "can define an init block in a script"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "init set window.foo to 42 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.foo.should.equal(42)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can initialize immediately"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "init set window.foo to 10 init immediately set window.bar to window.foo")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.foo.should.equal(10)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
)
|
||||
|
||||
;; ── def (27 tests) ──
|
||||
(defsuite "hs-upstream-def"
|
||||
(deftest "can define a basic no arg function"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() add .called to #d1 end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def foo() add .called to #d1 end")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call foo()")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
(assert (dom-has-class? _el-div "called"))
|
||||
))
|
||||
(deftest "can define a basic one arg function"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo(str) put str into #d1.innerHTML end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def foo(str) put str into #d1.innerHTML end")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call foo(\"called\")")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
(assert= (dom-inner-html _el-div) "called")
|
||||
))
|
||||
(deftest "functions can be namespaced"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def utils.foo() add .called to #d1 end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def utils.foo() add .called to #d1 end")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call utils.foo()")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
(assert (dom-has-class? _el-div "called"))
|
||||
))
|
||||
(deftest "is called synchronously"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() log meend")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def foo() log meend")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call foo() then add .called to #d1")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
(assert (dom-has-class? _el-div "called"))
|
||||
))
|
||||
(deftest "can call asynchronously"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() wait 1ms log meend")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def foo() wait 1ms log meend")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call foo() then add .called to #d1")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
(assert (dom-has-class? _el-div "called"))
|
||||
))
|
||||
(deftest "can return a value synchronously"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() return \"foo\"end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def foo() return \"foo\"end")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call foo() then put it into #d1.innerText")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
;; SKIP check: skip div.innerText.should.equal("")
|
||||
;; SKIP check: skip div.innerText.should.equal("foo")
|
||||
))
|
||||
(deftest "can exit"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() exit end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can return a value asynchronously"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")) (_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() wait 1ms return \"foo\"end")
|
||||
(eval-expr-cek (hs-to-sx (hs-compile "def foo() wait 1ms return \"foo\"end")))
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")))
|
||||
(dom-set-attr _el-div "_" "on click call foo() then put it into #d1.innerText")
|
||||
(dom-set-attr _el-d1 "id" "d1")
|
||||
(dom-append (dom-body) _el-script)
|
||||
(dom-append (dom-body) _el-div)
|
||||
(dom-append (dom-body) _el-d1)
|
||||
(hs-activate! _el-div)
|
||||
(dom-dispatch _el-script "click" nil)
|
||||
(dom-dispatch _el-div "click" nil)
|
||||
;; SKIP check: skip div.innerText.should.equal("")
|
||||
;; SKIP check: skip div.innerText.should.equal("foo")
|
||||
))
|
||||
(deftest "can interop with javascript"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() return \"foo\"end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip foo().should.equal("foo")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can interop with javascript asynchronously"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() wait 1ms return \"foo\"end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip val.should.equal("foo")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can catch exceptions"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() throw \"bar\"catch e set window.bar to e end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal("bar")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can rethrow in catch blocks"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() throw \"bar\"catch e throw e end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip true.should.equal(false)
|
||||
;; SKIP check: skip e.should.equal("bar")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can return in catch blocks"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() throw \"bar\"catch e return 42 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip foo().should.equal(42)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can catch async exceptions"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def doh() wait 10ms throw \"bar\"end def foo() call doh()catch e set window.bar to e end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal("bar")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can catch nested async exceptions"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def doh() wait 10ms throw \"bar\"end def foo() call doh()catch e set window.bar to e end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal("bar")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can rethrow in async catch blocks"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() throw \"bar\"catch e wait 10ms throw e end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip reason.should.equal("bar")
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can return in async catch blocks"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() throw \"bar\"catch e wait 10ms return 42 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip val.should.equal(42)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can install a function on an element and use in children w/ no leak"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-div (dom-create-element "div")) (_el-d1 (dom-create-element "div")) (_el-d2 (dom-create-element "div")) (_el-d3 (dom-create-element "div")))
|
||||
@@ -4507,59 +4403,19 @@
|
||||
;; SKIP check: skip div.innerText.should.equal("42")
|
||||
))
|
||||
(deftest "finally blocks run normally"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() set window.bar to 10finally set window.bar to 20 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal(20)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "finally blocks run when an exception occurs"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() set window.bar to 10 throw \"foo\"finally set window.bar to 20 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal(20)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "finally blocks run when an exception expr occurs"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() set window.bar to 10 call throwsAsyncException()finally set window.bar to 20 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal(20)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "async finally blocks run normally"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() wait a tick then set window.bar to 10finally set window.bar to 20 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal(20)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "async finally blocks run when an exception occurs"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() wait a tick then set window.bar to 10 throw \"foo\"finally set window.bar to 20 end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
;; SKIP check: skip window.bar.should.equal(20)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "exit stops execution mid-function"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() set x to 1 then exit then set x to 2 then return x end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
(deftest "can return without a value"
|
||||
(hs-cleanup!)
|
||||
(let ((_el-script (dom-create-element "script")))
|
||||
(dom-set-attr _el-script "type" "text/hyperscript")
|
||||
(dom-set-inner-html _el-script "def foo() return end")
|
||||
(dom-append (dom-body) _el-script)
|
||||
))
|
||||
(error "NOT IMPLEMENTED: test HTML could not be parsed into SX"))
|
||||
)
|
||||
|
||||
;; ── askAnswer (5 tests) ──
|
||||
|
||||
Reference in New Issue
Block a user