Add a test with a nontrivial class-designator
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 29 Aug 2020 19:46:58 -0400 |
| parents |
1633c31dbdda
|
| children |
8baa554470fd
|
| branches/tags |
(none) |
| files |
test/tests.lisp |
Changes
--- 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)