From: Raimon Grau <raimonster@gmail.com>
Date: Fri, 26 Apr 2013 00:31:29 +0000 (+0200)
Subject: minimal tests for format
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=0081c7195ffecd2e99650961020719fcd66dea1d

minimal tests for format
---

diff --git a/jscl.lisp b/jscl.lisp
index 12b71cf..33b8f15 100644
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -26,6 +26,7 @@
     ("toplevel"  :target)
     ;; Tests
     ("tests"            :test)
+    ("format"           :test)
     ("setf"             :test)
     ("eval"             :test)
     ("tests-report"     :test)))
diff --git a/tests/format.lisp b/tests/format.lisp
new file mode 100644
index 0000000..73c69bd
--- /dev/null
+++ b/tests/format.lisp
@@ -0,0 +1,7 @@
+(test (string= "a" (format nil "a")))
+
+(test (string= "~" (format nil "~~")))
+
+(test (string= "a~a" (format nil "a~~a")))
+
+(test (string= "a\na" (format nil "a~%a")))