DecodeShort, DecodeError
This commit is contained in:
parent
36c5d92b73
commit
aac73efd3a
|
@ -1028,6 +1028,10 @@
|
||||||
(lambda (e) (fail-test "Unexpected exception: ~e" e)))]
|
(lambda (e) (fail-test "Unexpected exception: ~e" e)))]
|
||||||
(string->preserve str)
|
(string->preserve str)
|
||||||
(fail-test "Unexpected success"))]
|
(fail-test "Unexpected success"))]
|
||||||
|
[`#s(DecodeShort ,(strip-annotations bs))
|
||||||
|
(check-eq? (d bs) 'short loc)]
|
||||||
|
[`#s(DecodeError ,(strip-annotations bs))
|
||||||
|
(check-eq? (d bs) (void) loc)]
|
||||||
[_
|
[_
|
||||||
(write-preserve t* #:indent #f)
|
(write-preserve t* #:indent #f)
|
||||||
(newline)])))
|
(newline)])))
|
||||||
|
|
Loading…
Reference in New Issue