X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcontrol.lisp;h=fba89568ad6e0a53d388172d42be179c86d8ebb9;hb=43fdd8d126248aa25a56771febf11b4f5efe397c;hp=5e010e3464e5c244e308b21ef91050814166c1ef;hpb=343b5129802d801f084f48f6199a04e292ace1af;p=jscl.git

diff --git a/tests/control.lisp b/tests/control.lisp
index 5e010e3..fba8956 100644
--- a/tests/control.lisp
+++ b/tests/control.lisp
@@ -42,3 +42,10 @@
                    (zfoo 5 rf 3)
                    out)))
              '(-5 -4 -3 999 1 2 3 4 5)))
+
+;; COMPLEMENT
+(test (funcall (complement #'zerop) 1))
+;; FIXME: Uncomment whenever characterp is defined
+;(test (not (funcall (complement #'characterp) #\A)))
+(test (not (funcall (complement #'member) 'a '(a b c))))
+(test (funcall (complement #'member) 'd '(a b c)))