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

diff --git a/tests/format.lisp b/tests/format.lisp
index a37ed09..3491010 100644
--- a/tests/format.lisp
+++ b/tests/format.lisp
@@ -6,3 +6,7 @@
 
 (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")))