Create a unit test system

Setup cantedraw/tests with a test-system record, as well as linking it
back to cantedraw so we can run test-system on cantedraw and run the
tests.

Using parachute, we can setup a suite of unit tests for each package.
For each package in src/ or lib/ we'll write a separate unit test
suite with tests for all the public exposing functionality.

I've setup a main suite in cantedraw/tests/main which will depend on
each of the unit test suites so we can run the tests all at once.

Currently we have one test for the --> macro.

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/main.lisp b/tests/main.lisp
new file mode 100644
index 0000000..0e8e462
--- /dev/null
+++ b/tests/main.lisp
@@ -0,0 +1,24 @@
+;;; main.lisp - 2025-02-20
+
+;; 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/main
+  (:use :cl :parachute))
+
+(in-package :cantedraw/tests/main)
+
+(define-test all
+  :serial t
+  :depends-on ((cantedraw/tests/macros macro-test)))