Permalink
Browse files

added test for with-formatter

  • Loading branch information...
bobbysmith007 committed Feb 29, 2012
1 parent c726fc8 commit 434f98c152b106ae2485b1ca5724e7ae64ed58c1
Showing with 16 additions and 0 deletions.
  1. +16 −0 tests/collectors.lisp
View
@@ -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))

0 comments on commit 434f98c

Please sign in to comment.