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

diff --git a/tests/format.lisp b/tests/format.lisp
index 3491010..a3eae9d 100644
--- a/tests/format.lisp
+++ b/tests/format.lisp
@@ -8,5 +8,9 @@
 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 ~A" "foo")))
 
+(test (string= "this is \"foo\"" (format nil "this is ~s" "foo")))
 (test (string= "this is \"foo\"" (format nil "this is ~S" "foo")))
+
+(test (string= "this is 2" (format nil "this is ~*~A" 1 2)))