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*)