(deftest test-copy-list()
  (setf x '(a b c))
  (setf y (copy-list x))
  (check
   (equal x y)
   (equal (car x) (car y))))

(deftest test-append()
  (setf x '(Mountain - eers))
  (check
   (equal '(a b c d) (append '(a b) '(c d)))
   (equal '(1 2 3 4) (append '(1) '(2) '(3) '(4)))
   (equal '(buccan - eers) (append '(buccan) (cdr x)))))

(deftest test-nested-list()
  (setf nl (list 'front (list 'nested 'part) 'and 'rest))
  (check
   (equal 'front (car nl))
   (equal '((nested part) and rest) (cdr nl))
   (equal '(nested part) (car (cdr nl)))))