8 lines
384 B
Scheme
8 lines
384 B
Scheme
(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))
|