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=a63e2f8f2a3a386e13698ea3cbe0cb0ef181f97a;hp=e1176db52f48abf516acdb8a0e79039a73e06b47;hb=d8636e889212a943adefc3837476bfb2efd23a7b;hpb=6ea66bbdff1cc0356c121d453857ecb9d3c1e351

diff --git a/src/test/main.lisp b/src/test/main.lisp
index e1176db..a63e2f8 100644
--- a/src/test/main.lisp
+++ b/src/test/main.lisp
@@ -2,13 +2,13 @@
 
 (defvar *tests* nil)
 
-(defmacro deftest (filename success &optional msg line-no col-no)
+(defmacro deftest (filename success &optional msg line-no col-no copyright-notice)
  `(push
    (lambda ()
     (let
      ((green (format nil "~c[1;32m" #\Esc))
       (red (format nil "~c[1;31m" #\Esc))
-      (result (wolf:check-file ,filename)))
+      (result (wolf:check-file ,filename :copyright-notice ,copyright-notice)))
      (cond
       ((not (eql ,success (car result)))
        (format t "~A- ~A failed, expected ~A and got ~A~c[0m~%"
@@ -55,3 +55,6 @@
 (deftest #P"resources/unspacedforms.lisp" :failure "Multiline top level forms must be separated by a space" 4 0)
 (deftest #P"resources/whitespaceendline.lisp" :failure "No whitespace at end of line" 4 106)
 (deftest #P"resources/whitespacelines.lisp" :failure "No whitespace only lines" 1 1)
+(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")