Skip to content

Commit 043a202

Browse files
committed
Add test. Fix a corresponding EROR mismatch in boot.ss
1 parent ad1b8eb commit 043a202

File tree

3 files changed

+24
-1
lines changed

3 files changed

+24
-1
lines changed

scheme-libs/racket/unison/boot.ss

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -607,5 +607,5 @@
607607
(define (exn:bug->exception b)
608608
(raise-unison-exception
609609
ref-runtimefailure:typelink
610-
(exn:bug-msg b)
610+
(string->chunked-string (exn:bug-msg b))
611611
(exn:bug-val b)))

unison-src/builtin-tests/jit-tests.output.md

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -49,3 +49,18 @@ foo = do
4949
()
5050
5151
```
52+
This can also only be tested by separately running this test, because
53+
it is exercising the protocol that ucm uses to talk to the jit during
54+
an exception.
55+
56+
```ucm
57+
runtime-tests/selected> run.native testBug
58+
59+
💔💥
60+
61+
I've encountered a call to builtin.bug with the following
62+
value:
63+
64+
"testing"
65+
66+
```

unison-src/builtin-tests/jit-tests.tpl.md

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -34,3 +34,11 @@ foo = do
3434
.> run.native foo
3535
.> run.native foo
3636
```
37+
38+
This can also only be tested by separately running this test, because
39+
it is exercising the protocol that ucm uses to talk to the jit during
40+
an exception.
41+
42+
```ucm:error
43+
runtime-tests/selected> run.native testBug
44+
```

0 commit comments

Comments
 (0)