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

haskell: Phase 9 — hk-test-error helper in testlib.sx (+2 tests, 66/66)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 1m4s
Details

Browse Source 
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-05-07 04:43:07 +00:00
parent 1b844f6a19
commit d523df30c2
3 changed files with 36 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/haskell/tests/eval.sx
View File

@@ -289,6 +289,16 @@
(hk-deep-force (hk-run "main = head [42]"))
42)
(hk-test-error
"hk-test-error helper: catches matching error"
(fn () (hk-deep-force (hk-run "main = error \"boom\"")))
"hk-error: boom")
(hk-test-error
"hk-test-error helper: catches head [] error"
(fn () (hk-deep-force (hk-run "main = head []")))
"Prelude.head: empty list")
(hk-test
"second arg never forced"
(hk-eval-expr-source "(\\x y -> x) 1 (error \"never\")")