From d71977a7daa4371ab10ba41ddb76e55ddf82c4de Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Fri, 8 Dec 2017 11:39:06 -0500 Subject: [PATCH] Reduce test noise --- tests/smoke.impure.lisp | 10 ++++++---- tests/x86-64-codegen.impure.lisp | 8 ++++---- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/tests/smoke.impure.lisp b/tests/smoke.impure.lisp index e72304340..4e22a84fb 100644 --- a/tests/smoke.impure.lisp +++ b/tests/smoke.impure.lisp @@ -15,9 +15,10 @@ (cl:in-package :cl-user) ;;; ROOM should run without signalling an error. (bug 247) -(room) -(room t) -(room nil) +(let ((*standard-output* (make-broadcast-stream))) + (room) + (room t) + (room nil)) ;;; COPY-SYMBOL should work without signalling an error, even if the ;;; symbol is unbound. @@ -36,7 +37,8 @@ (random 1d0)) (profile profiled-fun) (loop repeat 100000 do (profiled-fun)) - (report)) + (let ((*trace-output* (make-broadcast-stream))) + (report))) ;;; Defconstant should behave as the documentation specifies, ;;; including documented condition type. diff --git a/tests/x86-64-codegen.impure.lisp b/tests/x86-64-codegen.impure.lisp index b6319a563..36d6c2640 100644 --- a/tests/x86-64-codegen.impure.lisp +++ b/tests/x86-64-codegen.impure.lisp @@ -54,12 +54,12 @@ ;; Lack of earmuffs on this symbol allocates it in dynamic space (defvar foo) -(assert (not (sb-kernel:immobile-space-obj-p 'foo))) +#-immobile-symbols (assert (not (sb-kernel:immobile-space-obj-p 'foo))) ;; This compilation causes a side-effect of assigning FOO a TLS index ;; DO NOT REMOVE! (compile nil '(lambda (foo) (eval 'frob))) -(with-test (:name :symeval-known-tls-index) +(with-test (:name :symeval-known-tls-index :skipped-on :immobile-symbols) ;; When symbol SC is IMMEDIATE: ;; 498B942478210000 MOV RDX, [R12+8568] ; tls: *PRINT-BASE* ;; 83FA61 CMP EDX, 97 @@ -77,9 +77,9 @@ (defvar *blub*) ; immobile space (defvar blub) ; dynamic space (assert (sb-kernel:immobile-space-obj-p '*blub*)) -(assert (not (sb-kernel:immobile-space-obj-p 'blub))) +#-immobile-symbols (assert (not (sb-kernel:immobile-space-obj-p 'blub))) -(with-test (:name :symeval-unknown-tls-index) +(with-test (:name :symeval-unknown-tls-index :skipped-on :immobile-symbols) ;; When symbol SC is immediate: ;; 8B142514A24C20 MOV EDX, [#x204CA214] ; tls_index: *BLUB* ;; 498B1414 MOV RDX, [R12+RDX] -- 2.11.4.GIT