X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/bf090e021a5c20da452a4841cdfb8eb78e29544e..097d5a3ebbadefec2471e0046ab62a312b459934:/src/test-base.lisp

diff --git a/src/test-base.lisp b/src/test-base.lisp
index ffc8e19..f7210ab 100644
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -52,6 +52,20 @@
 			       rather than `~A'."
 			  object print string))))
 
+(defclass base-test (test-case) ())
+(add-test *sod-test-suite* (get-suite base-test))
+
+(export '*build-version*)
+(defvar *build-version* nil)
+
+(def-test-method check-version ((test base-test) :run nil)
+  (unless (or (null *build-version*)
+	      (and (>= (length *build-version*) (length *sod-version*))
+		   (string= *build-version* *sod-version*
+			    :end1 (length *sod-version*))))
+    (failure "Build version ~A doesn't match package version ~A."
+	     *build-version* *sod-version*)))
+
 (defun run-tests (&optional which)
   (textui-test-run (acond
 		     ((null which) *sod-test-suite*)