X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/19df3e0001e75ce2decece2a177bf9711eab9dd7..5ea92e79ef1e4b7db2d7d5251e5b6044c613466f:/src/test-base.lisp

diff --git a/src/test-base.lisp b/src/test-base.lisp
index f7210ab..203f918 100644
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -55,17 +55,6 @@
 (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*)