We must not override the configuration, else the other tests break.

Author: phmarek

test.lisp

@@ -208,11 +208,11 @@
                 (gethash "bar" parsed-hash))))
 
 (deftest :yason "parse-ordering-alist"
-  (setf yason:*parse-object-as* :alist)
-  (test-equal '(("foo" . 0) ("bar" . 1) ("foo" . 2))
-              (yason:parse "{\"foo\":0,\"bar\":1,\"foo\":2}")))
+  (let ((yason:*parse-object-as* :alist))
+    (test-equal '(("foo" . 0) ("bar" . 1) ("foo" . 2))
+                (yason:parse "{\"foo\":0,\"bar\":1,\"foo\":2}"))))
 
 (deftest :yason "parse-ordering-plist"
-  (setf yason:*parse-object-as* :plist)
-  (test-equal '("foo" 0 "bar" 1 "foo" 2)
-              (yason:parse "{\"foo\":0,\"bar\":1,\"foo\":2}")))
+  (let ((yason:*parse-object-as* :plist))
+    (test-equal '("foo" 0 "bar" 1 "foo" 2)
+                (yason:parse "{\"foo\":0,\"bar\":1,\"foo\":2}"))))