Allow DO / DO* to take bare symbols as vars.

[jscl.git] / tests / format.lisp

diff --git a/tests/format.lisp b/tests/format.lisp
index 73c69bd..a3eae9d 100644 (file)
--- a/tests/format.lisp
+++ b/tests/format.lisp
@@ -4,4 +4,13 @@
 
 (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 ~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)))