X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fformat.lisp;h=3491010222ee7243e6aaeda2e2195708b39642c4;hb=cfd9e0ce078d53d0665aea0b2e445432721f99b7;hp=73c69bdc3af98e2d7d63ad28b01be3efb35c8cc6;hpb=0081c7195ffecd2e99650961020719fcd66dea1d;p=jscl.git

diff --git a/tests/format.lisp b/tests/format.lisp
index 73c69bd..3491010 100644
--- a/tests/format.lisp
+++ b/tests/format.lisp
@@ -4,4 +4,9 @@
 
 (test (string= "a~a" (format nil "a~~a")))
 
-(test (string= "a\na" (format nil "a~%a")))
+(test (string= "a
+a" (format nil "a~%a")))
+
+(test (string= "this is foo" (format nil "this is ~a" "foo")))
+
+(test (string= "this is \"foo\"" (format nil "this is ~S" "foo")))