From 0081c7195ffecd2e99650961020719fcd66dea1d Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Fri, 26 Apr 2013 02:31:29 +0200 Subject: [PATCH] minimal tests for format --- jscl.lisp | 1 + tests/format.lisp | 7 +++++++ 2 files changed, 8 insertions(+) create mode 100644 tests/format.lisp 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"))) -- 1.7.10.4