Improve tests
This commit is contained in:
parent
6941128db3
commit
27337e4624
2
Makefile
2
Makefile
|
@ -22,9 +22,9 @@ repl: arcana-lisp
|
||||||
./arcana-lisp
|
./arcana-lisp
|
||||||
|
|
||||||
test: arcana-lisp
|
test: arcana-lisp
|
||||||
$(CAT) tests/arcana.scm | ./arcana-lisp
|
|
||||||
$(CAT) tests/arcana/builtin.scm | ./arcana-lisp
|
$(CAT) tests/arcana/builtin.scm | ./arcana-lisp
|
||||||
$(CAT) tests/arcana/tokenize.scm | ./arcana-lisp
|
$(CAT) tests/arcana/tokenize.scm | ./arcana-lisp
|
||||||
|
$(CAT) tests/arcana/typeof.scm | ./arcana-lisp
|
||||||
$(CAT) tests/arcana/parse.scm | ./arcana-lisp
|
$(CAT) tests/arcana/parse.scm | ./arcana-lisp
|
||||||
$(CAT) tests/arithm_ops.scm | ./arcana-lisp
|
$(CAT) tests/arithm_ops.scm | ./arcana-lisp
|
||||||
$(CAT) tests/basic_data_structs.scm | ./arcana-lisp
|
$(CAT) tests/basic_data_structs.scm | ./arcana-lisp
|
||||||
|
|
|
@ -1,5 +1,4 @@
|
||||||
(begin
|
(begin
|
||||||
;;; arcana/typeof ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
(assert-equal 'null (arcana/typeof '()))
|
(assert-equal 'null (arcana/typeof '()))
|
||||||
(assert-equal 'procedure (arcana/typeof +))
|
(assert-equal 'procedure (arcana/typeof +))
|
||||||
(assert-equal 'pair (arcana/typeof (cons 123 456)))
|
(assert-equal 'pair (arcana/typeof (cons 123 456)))
|
Loading…
Reference in New Issue