Delete :sb-test feature. Always do those tests

gsorbier · Feb 21, 2017 · 9f8aae2 · 9f8aae2
1 parent 7102565
commit 9f8aae2
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 14 deletions.
diff --git a/base-target-features.lisp-expr b/base-target-features.lisp-expr
@@ -70,13 +70,6 @@
  ;; the executable I'm running.
  :sb-doc
 
- ;; Do regression and other tests when building the system. You might
- ;; or might not want this if you're not a developer, depending on how
- ;; paranoid you are. You probably do want it if you are a developer.
- ;; This test does not affect the target system (in much the same way
- ;; as :sb-after-xc-core, below).
- :sb-test
-
  ;; Make more debugging information available (for debugging SBCL
  ;; itself). If you aren't hacking or troubleshooting SBCL itself,
  ;; you probably don't want this set.

diff --git a/make-host-1.lisp b/make-host-1.lisp
@@ -66,10 +66,9 @@
 ;;; Let's check that the type system, and various other things, are
 ;;; reasonably sane. (It's easy to spend a long time wandering around
 ;;; confused trying to debug cross-compilation if it isn't.)
- (when (find :sb-test *shebang-features*)
- (load "tests/type.before-xc.lisp")
- (load "tests/info.before-xc.lisp")
- (load "tests/vm.before-xc.lisp"))
+ (load "tests/type.before-xc.lisp")
+ (load "tests/info.before-xc.lisp")
+ (load "tests/vm.before-xc.lisp")
 ;; When building on a slow host using a slow Lisp,
 ;; the wait time in slurp-ucd seems interminable - over a minute.
 ;; Compiling seems to help a bit, but maybe it's my imagination.

diff --git a/make-host-2.lisp b/make-host-2.lisp
@@ -203,8 +203,7 @@ Sample output
 ;;; Let's check that the type system was reasonably sane. (It's easy
 ;;; to spend a long time wandering around confused trying to debug
 ;;; cold init if it wasn't.)
-(when (position :sb-test *shebang-features*)
- (load "tests/type.after-xc.lisp"))
+(load "tests/type.after-xc.lisp")
 
 ;;; If you're experimenting with the system under a cross-compilation
 ;;; host which supports CMU-CL-style SAVE-LISP, this can be a good

diff --git a/src/code/pred.lisp b/src/code/pred.lisp
@@ -492,7 +492,6 @@ length and have identical components. Other arrays must be EQ to be EQUAL."
  (t nil)))
 
 (/show0 "about to do test cases in pred.lisp")
-#!+sb-test
 (let ((test-cases `((0.0 ,(load-time-value (make-unportable-float :single-float-negative-zero)) t)
  (0.0 1.0 nil)
  (#c(1 0) #c(1.0 0.0) t)