Added tests for printing behaviour

EuAndreh · Jun 8, 2015 · d7610a2 · d7610a2
1 parent 6c4f360
commit d7610a2
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/t/cl-bson.lisp b/t/cl-bson.lisp
@@ -384,6 +384,9 @@
     (is-print (princ #d())
               "#d()"
               "#d() prints like #d().")
+    (is-print (princ #d("1" "2" "3" "4"))
+              "#d(1 2 3 4)"
+              "#d(\"1\" \"2\" \"3\" \"4\") prints correctly.")
     (is-expand #d()
                (LET ()
                  (LET (($DOCUMENT (MAKE-INSTANCE '<DOCUMENT>)))