move test files

1 files changed, 0 insertions, 36 deletions

diff --git a/tests/lisp/control-flow.lisp b/tests/lisp/control-flow.lisp
deleted file mode 100644
index 75095ec..0000000
--- a/tests/lisp/control-flow.lisp
+++ /dev/null
@@ -1,36 +0,0 @@
-(assert-error (if (error "") 1 2))
-
-(defmacro inmacro x (progn ,@x))
-
-(let ((i 0))
-  (while #t
-    (if (> i 4)
-      (break)
-      nil)
-    (incq i))
-  (assert (= i 5)))
-
-(let ((i 0))
-  (while #t
-    (if (> i 4)
-      (let () (break))
-      nil)
-    (incq i))
-  (assert (= i 5)))
-
-(let ((flag 0)
-      (i 0))
-  (while (< i 10)
-    (incq i)
-    (continue)
-    (setq flag 1))
-  (assert (= i 10))
-  (assert (= flag 0)))
-
-(assert-error (funcall (lambda () (break))))
-(assert-error (funcall (lambda () (continue))))
-(assert (= 1 (funcall (lambda () (return 1)))))
-(assert (= 1 (funcall (lambda () (inmacro (return 1) (return 2))))))
-(assert (= 1 (funcall (lambda () (while #t (return 1))))))
-(assert (= 1 (funcall (lambda () (let () (return 1))))))
-(assert (= 1 (funcall (lambda () (let ((x (return 1))) (return 2))))))