lesson-lisp/tests/basic_data_structs.scm

(begin
  ;;; car ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (assert-equal 123 (car (cons 123 456)))

  ;;; cdr ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (assert-equal 456 (cdr (cons 123 456)))

  ;;; list ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (assert-equal '()        (list))
  (assert-equal '(123)     (list 123))
  (assert-equal '(123 456) (list 123 456))
)