tests/seq.lisp

   1 (test (find 1 #(2 1 3)))
   2 (test (not (find 1 #(2 2 2))))
   3 (test (not (find 1 (remove 1 #(1 2 3 1)))))
   4
   5 (test (find 1 (list 2 1 3)))
   6 (test (not (find 1 (list 2 2 2))))
   7 (test (not (find 1 (remove 1 (list 1 2 3 1)))))
   8
   9 (test (equal (remove-if     #'zerop '(1 0 2 0 3)) '(1 2 3)))
  10 (test (equal (remove-if-not #'zerop '(1 0 2 0 3)) '(0 0)))
  11
  12 ;; TODO: Rewrite these tests when EQUALP exists and works on vectors
  13 (let ((v1 (remove-if #'zerop #(1 0 2 0 3))))
  14   (test (and (= (aref v1 0) 1) (= (aref v1 1) 2) (= (aref v1 2) 3))))
  15 (test (every #'zerop (remove-if-not #'zerop #(1 0 2 0 3))))
  16
  17 (let ((nums '(1 2 3 4 5)))
  18   (test (equal (subseq nums 3) '(4 5)))
  19   (test (equal (subseq nums 2 4) '(3 4)))
  20   ; Test that nums hasn't been altered: SUBSEQ should construct fresh lists
  21   (test (equal nums '(1 2 3 4 5))))