From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 28 Apr 2013 13:53:11 +0000 (+0300)
Subject: add smoketests for FIND and REPLACE
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=66ad0d166c47208bed9dfb786a335d84aed73c3d;p=jscl.git

add smoketests for FIND and REPLACE
---

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)))))