Fix unknown slot test to be more specific, and also actually work
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Wed, 02 Dec 2020 23:43:41 -0500 |
| parents |
37efd8463e96
|
| children |
693b1dfe357a
|
| branches/tags |
(none) |
| files |
test/tests.lisp |
Changes
--- a/test/tests.lisp Wed Dec 02 23:40:36 2020 -0500
+++ b/test/tests.lisp Wed Dec 02 23:43:41 2020 -0500
@@ -596,8 +596,8 @@
(define-test error-on-unknown-slots
(is (string= (json "{'id':1}")
(roundtrip-string 'us-err "{'id':1}")))
- (signals error (jarl:read 'us-err "{'foo':10}"))
- (signals error (jarl:read 'us-err "{'id':1, 'foo': 'bar', 'meow': 'wow'}")))
+ (signals jarl::unknown-json-slot-error (jarl:read 'us-err (json "{'foo':10}")))
+ (signals jarl::unknown-json-slot-error (jarl:read 'us-err (json "{'id':1, 'foo': 'bar', 'meow': 'wow'}"))))
;;;; Passing Input ------------------------------------------------------------