lesson-lisp/tests/arcana/typeof.scm

(begin
  (assert-equal 'null      (arcana/typeof '()))
  (assert-equal 'procedure (arcana/typeof +))
  (assert-equal 'pair      (arcana/typeof (cons 123 456)))
  (assert-equal 'boolean   (arcana/typeof #false))
  ;(assert-equal 'char      (arcana/typeof #\n))
  (assert-equal 'symbol    (arcana/typeof 'foo))
  (assert-equal 'string    (arcana/typeof "foo"))
  (assert-equal 'number    (arcana/typeof 123))
)