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

Improve tests

Browse source
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)))