# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1598744818 14400
# Node ID a7ad406182d859a1d944d254a04e7191825effdc
# Parent  1633c31dbdda66710652a1c12177bcf141ce677d
Add a test with a nontrivial class-designator

diff -r 1633c31dbdda -r a7ad406182d8 test/tests.lisp
--- a/test/tests.lisp	Sat Aug 29 19:42:57 2020 -0400
+++ b/test/tests.lisp	Sat Aug 29 19:46:58 2020 -0400
@@ -195,6 +195,18 @@
     (signals end-of-file (jarl:read t s))))
 
 
+(define-test complicated-object
+  (is (same (v (h "foo" (v 1 nil 2)
+                  "bar" (v))
+               (h)
+               (h "baz" (v nil 3)))
+            (jarl:read '(vector (hash-table (vector (or null number))))
+                       (json "[{ 'foo': [1, null, 2],
+                                 'bar': [] },
+                               {},
+                               { 'baz': [null, 3] }]")))))
+
+
 ;;;; Real-World Data ----------------------------------------------------------
 (defmacro define-file-test (name (object path) &body body)
   (alexandria:with-gensyms (string)