(deftest ric-member()
  (let ((testlist '(a b c d e)))
    (check 
      (equal (member 'a testlist) testlist)
      (equal (member 'b testlist) (cdr testlist))
      (not (member 'f testlist)))))