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, 6 insertions, 2 deletions

diff --git a/bob.lisp b/bob.lisp
index 5d08c7f..16c5faa 100644
--- a/bob.lisp
+++ b/bob.lisp
@@ -24,13 +24,17 @@
 
 (defpackage bob
   (:use :cl)
-  (:export :build :qload))
+  (:export :build :qload :tests))
 
 (in-package :bob)
 
 (defun qload ()
   (ql:quickload :cantedraw))
 
-(defun build ()
+(defun tests ()
   (qload)
+  (asdf:test-system :cantedraw))
+
+(defun build ()
+  (tests)
   (asdf:make :cantedraw))