added test for with-formatter

AccelerationNet · Feb 29, 2012 · 434f98c · 434f98c
1 parent c726fc8
commit 434f98c
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/tests/collectors.lisp b/tests/collectors.lisp
@@ -91,6 +91,22 @@
         (test)
      )))
 
+(define-test with-formatter
+  (with-formatter (test)
+    (test "~D ~D ~D" 0 0 0)
+    (test "~A" 1)
+    (test "~A" 2)
+    (test "~A" 3)
+    (test "ABC")
+    (assert-equal "0 0 0123ABC" (test)))
+  (with-formatter (test :delimiter "-")
+    (test "~D ~D ~D" 0 0 0)
+    (test "~A" 1)
+    (test "~A" 2)
+    (test "~A" 3)
+    (test "ABC")
+    (assert-equal "0 0 0-1-2-3-ABC" (test))))
+
 (define-test with-mapping-collector
   (with-mapping-collector (test (&rest nums)
                             (apply #'+ nums))