X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=bdeaa27885a29e1e64864c8edfd655bc231955c5;hb=5f0d98408c20ff43709fc654978d1a5e4a675f2d;hp=5b7c7be7061fbbe8742ffbfc4646fba0407b5492;hpb=b3126a50cca65c379c4580bed23e180664ba2d7c;p=kmrcl.git diff --git a/tests.lisp b/tests.lisp index 5b7c7be..bdeaa27 100644 --- a/tests.lisp +++ b/tests.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: tests.lisp,v 1.12 2003/05/07 16:07:13 kevin Exp $ +;;;; $Id: tests.lisp,v 1.14 2003/05/11 21:51:44 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; @@ -62,6 +62,42 @@ (deftest apsl.4 (append-sublists '((a))) (a)) (deftest apsl.5 (append-sublists '((a) (b) (c d (e f g)))) (a b c d (e f g))) +(deftest pss.0 (with-output-to-string (s) (print-separated-strings s "|" nil)) + "") + +(deftest pss.1 + (with-output-to-string (s) (print-separated-strings s "|" '("ab")) ) + "ab") + +(deftest pss.2 + (with-output-to-string (s) (print-separated-strings s "|" '("ab" "cd"))) + "ab|cd") + +(deftest pss.3 + (with-output-to-string (s) (print-separated-strings s "|" '("ab" "cd") nil)) + "ab|cd") + +(deftest pss.4 + (with-output-to-string (s) + (print-separated-strings s "|" '("ab" "cd") nil nil)) + "ab|cd") + +(deftest pss.5 + (with-output-to-string (s) + (print-separated-strings s "|" '("ab" "cd") nil '("ef") nil)) + "ab|cd|ef") + +(deftest css.0 (concat-separated-strings "|" nil) "") +(deftest css.1 (concat-separated-strings "|" nil nil) "") +(deftest css.2 (concat-separated-strings "|" '("ab")) "ab") +(deftest css.3 (concat-separated-strings "|" '("ab" "cd")) "ab|cd") +(deftest css.4 (concat-separated-strings "|" '("ab" "cd") nil) "ab|cd") +(deftest css.5 (concat-separated-strings "|" '("ab" "cd") nil '("ef")) "ab|cd|ef") + +(deftest f.1 (filter #'(lambda (x) (when (oddp x) x)) + '(0 1 2 3 4 5 6 7 8 9)) (1 3 5 7 9)) +(deftest an.1 (appendnew '(a b c d) '(c c e f)) (a b c d e f)) + (eval-when (:compile-toplevel :load-toplevel :execute) (when (find-package '#:kmr-mop) (pushnew :kmrtest-mop cl:*features*)))