add builtin funcs

2 files changed, 35 insertions, 2 deletions

diff --git a/tests/bitwise.lisp b/tests/bitwise.lisp
index 7371058..4c1ad73 100644
--- a/tests/bitwise.lisp
+++ b/tests/bitwise.lisp
@@ -1,2 +1,18 @@
 (assert (= 16 (logand 31 16)))
 (assert (= 24 (logand 31 25 24)))
+
+(assert (= 25 (logior 24 16 1)))
+(assert (= 25 (logior 8 16 1)))
+
+(assert (= 678 (logxor 123 456 789)))
+
+(assert (= -124 (lognot 123)))
+
+(assert (= 246 (lsh 123 1)))
+
+(assert (= 30 (ash 123 2)))
+(assert (= -31 (ash -123 2)))
+
+(assert (= 30 (ash 123 2)))
+(assert (= -31 (ash -123 2)))
+
diff --git a/tests/list.lisp b/tests/list.lisp
index 7826afb..2b7228e 100644
--- a/tests/list.lisp
+++ b/tests/list.lisp
@@ -55,8 +55,6 @@
 (assert (not (member? nil (list 1 2))))
 (assert (not (member? 3 (list 1 2))))
 
-    ;;Interp_add_userfunc(self, "nconc", builtin_reverse);
-
 (let ((lst '(1 2 999 4)))
   (set-nth 2 lst 3)
   (assert (equal? '(1 2 3 4) lst)))
@@ -78,3 +76,22 @@
 (let ((a '(1 2 3))
       (b '(4 5 6)))
   (assert (equal? '(1 2 3 4 5 6) (nconc a b))))
+
+(assert (equal? '(1 2 3) (take 3 '(1 2 3 4 5))))
+(assert (equal? '(4 5) (drop 3 '(1 2 3 4 5))))
+
+(assert (equal? '(1 2 3)
+                (take-while (lambda (x) (<= x 3))
+                            '(1 2 3 4 5))))
+
+(assert (equal? '(4 5)
+                (drop-while (lambda (x) (<= x 3))
+                            '(1 2 3 4 5))))
+
+(assert (equal? '(1 2) (sublist 1 3 '(0 1 2 3 4))))
+
+(assert (equal? '(3 4 5) (find 3 '(1 2 3 4 5))))
+(assert (equal? nil (find 99 '(1 2 3 4))))
+
+(assert (contains? 3 '(1 2 3 4)))
+(assert (not (contains? 3 '(1 2 4 5))))