From 66ad0d166c47208bed9dfb786a335d84aed73c3d Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 28 Apr 2013 16:53:11 +0300 Subject: [PATCH] add smoketests for FIND and REPLACE --- tests/seq.lisp | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 tests/seq.lisp diff --git a/tests/seq.lisp b/tests/seq.lisp new file mode 100644 index 0000000..326b4f7 --- /dev/null +++ b/tests/seq.lisp @@ -0,0 +1,7 @@ +(test (find 1 #(2 1 3))) +(test (not (find 1 #(2 2 2)))) +(test (not (find 1 (remove 1 #(1 2 3 1))))) + +(test (find 1 (list 2 1 3))) +(test (not (find 1 (list 2 2 2)))) +(test (not (find 1 (remove 1 (list 1 2 3 1))))) -- 1.7.10.4