causa-arcana-misc
/
lesson-lisp
1
0
Fork 0
Code

Improve tests

This commit is contained in:
Alex Kotov 2023-05-07 16:57:07 +04:00
parent 6941128db3
commit 27337e4624
Signed by: kotovalexarian
GPG Key ID: 553C0EBBEB5D5F08
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -22,9 +22,9 @@ repl: arcana-lisp
./arcana-lisp
test: arcana-lisp
$(CAT) tests/arcana.scm | ./arcana-lisp
$(CAT) tests/arcana/builtin.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/arithm_ops.scm | ./arcana-lisp
$(CAT) tests/basic_data_structs.scm | ./arcana-lisp

1
tests/arcana.scm → tests/arcana/typeof.scm
View File

@ -1,5 +1,4 @@
(begin
;;; arcana/typeof ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(assert-equal 'null (arcana/typeof '()))
(assert-equal 'procedure (arcana/typeof +))
(assert-equal 'pair (arcana/typeof (cons 123 456)))