Compare commits
1 Commits
loops/hs
...
hs-e39-web
| Author | SHA1 | Date | |
|---|---|---|---|
| 573f9fa4b3 |
@@ -2749,6 +2749,7 @@
|
|||||||
((= val "behavior") (do (adv!) (parse-behavior-feat)))
|
((= val "behavior") (do (adv!) (parse-behavior-feat)))
|
||||||
((= val "live") (do (adv!) (parse-live-feat)))
|
((= val "live") (do (adv!) (parse-live-feat)))
|
||||||
((= val "when") (do (adv!) (parse-when-feat)))
|
((= val "when") (do (adv!) (parse-when-feat)))
|
||||||
|
((= val "worker") (error "worker plugin is not installed — see https://hyperscript.org/features/worker"))
|
||||||
(true (parse-cmd-list))))))
|
(true (parse-cmd-list))))))
|
||||||
(define
|
(define
|
||||||
coll-feats
|
coll-feats
|
||||||
|
|||||||
@@ -2749,6 +2749,7 @@
|
|||||||
((= val "behavior") (do (adv!) (parse-behavior-feat)))
|
((= val "behavior") (do (adv!) (parse-behavior-feat)))
|
||||||
((= val "live") (do (adv!) (parse-live-feat)))
|
((= val "live") (do (adv!) (parse-live-feat)))
|
||||||
((= val "when") (do (adv!) (parse-when-feat)))
|
((= val "when") (do (adv!) (parse-when-feat)))
|
||||||
|
((= val "worker") (error "worker plugin is not installed — see https://hyperscript.org/features/worker"))
|
||||||
(true (parse-cmd-list))))))
|
(true (parse-cmd-list))))))
|
||||||
(define
|
(define
|
||||||
coll-feats
|
coll-feats
|
||||||
|
|||||||
@@ -13595,5 +13595,9 @@ end")
|
|||||||
;; ── worker (1 tests) ──
|
;; ── worker (1 tests) ──
|
||||||
(defsuite "hs-upstream-worker"
|
(defsuite "hs-upstream-worker"
|
||||||
(deftest "raises a helpful error when the worker plugin is not installed"
|
(deftest "raises a helpful error when the worker plugin is not installed"
|
||||||
(error "SKIP (untranslated): raises a helpful error when the worker plugin is not installed"))
|
(let ((result (guard (e (true (if (string? e) e (str e))))
|
||||||
|
(hs-compile "worker MyWorker def noop() end end")
|
||||||
|
"")))
|
||||||
|
(assert (contains? result "worker plugin"))
|
||||||
|
(assert (contains? result "hyperscript.org/features/worker"))))
|
||||||
)
|
)
|
||||||
|
|||||||
Reference in New Issue
Block a user