;;;----- 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
: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'."
(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*)