X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=wolf;a=blobdiff_plain;f=src%2Ftest%2Fmain.lisp;fp=src%2Ftest%2Fmain.lisp;h=20991a5ba9f95a4d800a04730edf5de5b91975f7;hp=2512ea1daa37472ce1008624a451e8bcded3e190;hb=32e40fe970531962c4b12e9ff5ae6558995feb62;hpb=4c7b410b80d93e6374344b4f837b33b2b900e24a

diff --git a/src/test/main.lisp b/src/test/main.lisp
index 2512ea1..20991a5 100644
--- a/src/test/main.lisp
+++ b/src/test/main.lisp
@@ -1,7 +1,7 @@
 ; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3.  See distributed LICENSE.txt.
 (in-package #:wolf-test)
 
-(defvar *tests* nil)
+(defparameter *tests* nil)
 
 (defmacro deftest (filename success &optional msg line-no col-no copyright-notice)
  `(push
@@ -59,3 +59,17 @@
 (deftest #P"resources/copyrightnotice.lisp" :success nil nil nil "; Copyright XXXX AGPL")
 (deftest #P"resources/copyrightnotice.lisp" :failure "Must begin with in-package form" 0 0)
 (deftest #P"resources/package.lisp" :failure "Must begin with specified copyright notice" 0 0 "; Copyright XXXX AGPL")
+(deftest #P"resources/unmatchedending.lisp" :failure "Unmatched ending paren" 2 12)
+
+; This is not a check for actually validity, but rather that the check directory code
+; checks the directory.
+(push
+ (lambda ()
+  (let
+   ((*standard-output* (make-broadcast-stream))
+    (*error-output* (make-broadcast-stream)))
+   (wolf:pretty-print-check-directory #P"resources/dircheck"
+    :copyright-notice "; Copyright XXXX AGPL")
+   (wolf:pretty-print-check-directory #P"resources/dircheck"))
+  t)
+ *tests*)