# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1529280985 25200
# Node ID 6dbc64f70f9bc82bf53984302d82f0bea42e496c
# Parent  7db631c1cf60d895bb720268f7d3fd2aa6510729
Add list tests

diff -r 7db631c1cf60 -r 6dbc64f70f9b losh.asd
--- a/losh.asd	Sun Jun 17 17:10:27 2018 -0700
+++ b/losh.asd	Sun Jun 17 17:16:25 2018 -0700
@@ -74,6 +74,7 @@
                 :components ((:file "package")
                              (:file "base")
                              (:file "arrays")
+                             (:file "lists")
                              (:file "control-flow"))))
 
   :perform (asdf:test-op (op system)
diff -r 7db631c1cf60 -r 6dbc64f70f9b test/lists.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/lists.lisp	Sun Jun 17 17:16:25 2018 -0700
@@ -0,0 +1,22 @@
+(in-package :losh.test)
+
+(define-test somelist
+  (is (equal '(a b c d)
+             (somelist (lambda (l)
+                         (if (eq (car l) 'a)
+                           l
+                           nil))
+                       '(a b c d))))
+  (is (equal '(c d)
+             (somelist (lambda (l)
+                         (if (eq (car l) 'c)
+                           l
+                           nil))
+                       '(a b c d))))
+  (is (equal 6
+             (somelist (lambda (l1 l2)
+                         (if (eq (car l1) (car l2))
+                           (+ (length l1) (length l2))
+                           nil))
+                       '(a b c d e)
+                       '(e d c b a)))))