# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1606970621 18000
# Node ID 558d809397bd46dd9b776193f30a4d39d7e9d266
# Parent  37efd8463e96906045ef5129b2f8ebe0a99dc1b2
Fix unknown slot test to be more specific, and also actually work

diff -r 37efd8463e96 -r 558d809397bd test/tests.lisp
--- 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 ------------------------------------------------------------