Added unit tests

src/pegrep.asd

@@ -26,3 +26,11 @@
                                 (debug 3)
                                 (speed 0)))
                     (funcall next)))
+
+(asdf:defsystem :pegrep/tests
+  :depends-on (:pegrep :fiveam)
+  :perform (test-op (o s)
+             (uiop:symbol-call :pegrep-tests :test-pegrep))
+  :components ((:module "../test"
+                :serial t
+                :components ((:file "main")))))

test/main.lisp

@@ -0,0 +1,19 @@
+(defpackage :pegrep-tests
+  (:use :cl :fiveam)
+  (:export :run!
+	       :all-tests
+	       :test-quasi))
+
+(in-package :pegrep-tests)
+
+(def-suite all-tests
+    :description "The master suite of all pegrep tests.")
+
+(in-suite all-tests)
+
+(defun test-pegrep ()
+  (run! 'all-tests))
+
+(test canary-test
+      (is (eq 1 1)
+          "Something is really wrong, the tests aren't working..."))