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

diff --git a/src/test-base.lisp b/src/test-base.lisp
index f7210ab..915e33d 100644
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -45,8 +45,9 @@
 		 :description "Top-level test for the Sod translator."))
 
 (defun assert-princ (object string)
-  (let ((*print-right-margin* 77)
-	(print (princ-to-string object)))
+  (let* ((*print-right-margin* 77)
+	 (*print-pretty* t)
+	 (print (princ-to-string object)))
     (assert-equal print string
 		  (format nil "Assert princ: ~S ~_prints as `~A' ~_~
 			       rather than `~A'."
@@ -55,17 +56,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*)