From 27337e4624ec82361edf1c9db7f7eadab0e3e8c9 Mon Sep 17 00:00:00 2001 From: Alex Kotov Date: Sun, 7 May 2023 16:57:07 +0400 Subject: [PATCH] Improve tests --- Makefile | 2 +- tests/{arcana.scm => arcana/typeof.scm} | 1 - 2 files changed, 1 insertion(+), 2 deletions(-) rename tests/{arcana.scm => arcana/typeof.scm} (83%) diff --git a/Makefile b/Makefile index 0832114..0c53fce 100644 --- a/Makefile +++ b/Makefile @@ -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 diff --git a/tests/arcana.scm b/tests/arcana/typeof.scm similarity index 83% rename from tests/arcana.scm rename to tests/arcana/typeof.scm index b21d7a4..ec9cf49 100644 --- a/tests/arcana.scm +++ b/tests/arcana/typeof.scm @@ -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)))