Move all test code into one file.

1 files changed, 0 insertions, 64 deletions

diff --git a/tests/macros.lisp b/tests/macros.lisp
deleted file mode 100644
index 5e0a1fb..0000000
--- a/tests/macros.lisp
+++ /dev/null
@@ -1,64 +0,0 @@
-;;; main.lisp - 2025-02-16
-
-;; Copyright (C) 2025 Aryadev Chavali
-
-;; This program is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-;; FOR A PARTICULAR PURPOSE.  See the GNU General Public License Version 2 for
-;; details.
-
-;; You may distribute and modify this code under the terms of the GNU General
-;; Public License Version 2, which you should have received a copy of along with
-;; this program.  If not, please go to <https://www.gnu.org/licenses/>.
-
-;;; Code:
-
-(defpackage cantedraw/tests/macros
-  (:use :cl :cantedraw.lib.macros
-        :parachute))
-
-(in-package :cantedraw/tests/macros)
-
-(define-test macro-test)
-
-(define-test (macro-test "-->")
-  (true (null          (--> x)))
-  (is eq 'a            (--> x 'a))
-  (is eq 2             (--> x 1 (1+ x)))
-  (is eq 2             (--> x 1 1+))
-  (is string= "World!" (--> _ "Hello" (format nil "~a World!" _) (subseq _ 6))))
-
-(define-test (macro-test "->>")
-  (true (null (->>)))
-  (let ((a (gensym))
-        (b (gensym))
-        (c (gensym))
-        (d (gensym)))
-    (is eq a (->> a))
-    (is equal `(,a ,b)           (macroexpand `(->> ,b (,a))))
-    (is equal `(,a ,b)           (macroexpand `(->> ,b ,a)))
-    (is equal `(,a (,b ,c))      (macroexpand `(->> ,c (,b) (,a))))
-    (is equal `(,a (,b ,c))      (macroexpand `(->> ,c ,b ,a)))
-    (is equal `(,a ,b ,c)        (macroexpand `(->> ,c (,a ,b))))
-    (is equal `(,a ,b (,c ,d))   (macroexpand `(->> (,c ,d) (,a ,b))))
-    (is equal `(,a (,b (,c ,d))) (macroexpand `(->> ,d (,c) (,b) (,a))))
-    (is equal `(,a (,b (,c ,d))) (macroexpand `(->> ,d ,c ,b ,a))))
-  (is string= "Hello, World!"    (->> "world!" (format nil "hello, ~a") string-capitalize)))
-
-(define-test (macro-test "-<>")
-  (true (null (-<>)))
-  (let ((a (gensym))
-        (b (gensym))
-        (c (gensym))
-        (d (gensym)))
-    (is eq a (-<> a))
-    (is equal `(,a ,b)           (macroexpand `(-<> ,b (,a))))
-    (is equal `(,a ,b)           (macroexpand `(-<> ,b ,a)))
-    (is equal `(,a (,b ,c))      (macroexpand `(-<> ,c (,b) (,a))))
-    (is equal `(,a (,b ,c))      (macroexpand `(-<> ,c ,b ,a)))
-    (is equal `(,a ,b ,c)        (macroexpand `(-<> ,b (,a ,c))))
-    (is equal `(,a (,b (,c ,d))) (macroexpand `(-<> ,d (,c) (,b) (,a))))
-    (is equal `(,a (,b (,c ,d))) (macroexpand `(-<> ,d ,c ,b ,a)))
-    (is equal `(,a (,b ,c) ,d)   (macroexpand `(-<> ,c (,b) (,a ,d)))))
-  (is equal 69                   (-<> 489 (- 420)))
-  (is string= "HELLO"            (-<> "Hello World!" (subseq 0 5) string-upcase)))