The test fails still when reversing the tests:
/running tests on '/home/zmyrgel/git/sbcl/tests/../src/runtime/sbcl --core /home/zmyrgel/git/sbcl/tests/../output/sbcl.core --noinform --no-sysinit --no-userinit --noprint --disable-debugger'
; file: /home/zmyrgel/git/sbcl/tests/test-util.lisp ; in: DEFMACRO WITH-TEST ; (LET ((TEST-UTIL::BLOCK-NAME (GENSYM)) ; (TEST-UTIL::THREADS (GENSYM "THREADS"))) ; `(PROGN ; (TEST-UTIL::START-TEST) ; (COND ; ((TEST-UTIL::BROKEN-P ,TEST-UTIL::BROKEN-ON) ; (TEST-UTIL::FAIL-TEST :SKIPPED-BROKEN ',TEST-UTIL::NAME ; "Test broken on this platform")) ; ((TEST-UTIL::SKIPPED-P ,TEST-UTIL::SKIPPED-ON) ; (TEST-UTIL::FAIL-TEST :SKIPPED-DISABLED ',TEST-UTIL::NAME ; "Test disabled for this combination of platform and features")) ; (T ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; The variable THREADS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running pure tests (#<FUNCTION RUN-TESTS::LOAD-TEST>) // Running pure tests (#<FUNCTION RUN-TESTS::CLOAD-TEST>) // Running impure tests (#<FUNCTION RUN-TESTS::LOAD-TEST>)
; file: /home/zmyrgel/git/sbcl/tests/test-util.lisp ; in: DEFMACRO WITH-TEST ; (LET ((TEST-UTIL::BLOCK-NAME (GENSYM)) ; (TEST-UTIL::THREADS (GENSYM "THREADS"))) ; `(PROGN ; (TEST-UTIL::START-TEST) ; (COND ; ((TEST-UTIL::BROKEN-P ,TEST-UTIL::BROKEN-ON) ; (TEST-UTIL::FAIL-TEST :SKIPPED-BROKEN ',TEST-UTIL::NAME ; "Test broken on this platform")) ; ((TEST-UTIL::SKIPPED-P ,TEST-UTIL::SKIPPED-ON) ; (TEST-UTIL::FAIL-TEST :SKIPPED-DISABLED ',TEST-UTIL::NAME ; "Test disabled for this combination of platform and features")) ; (T ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; The variable THREADS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition // Running /home/zmyrgel/git/sbcl/tests/float.impure.lisp ::: Running (:RANGE-REDUCTION :X87) ::: UNEXPECTED-FAILURE (:RANGE-REDUCTION :X87) due to #<SIMPLE-ERROR "The assertion ~S failed." {10036C1E73}>: "The assertion (ALMOST= (SIN (MOD BIG (* 2 PI))) (SIN BIG)) failed." ::: SKIPPED-DISABLED (:RANGE-REDUCTION :PRECISE-PI) Test disabled for this combination of platform and features // Running impure tests (#<FUNCTION RUN-TESTS::CLOAD-TEST>) // Running impure tests (#<FUNCTION RUN-TESTS::SH-TEST>)
Finished running tests. Status: Failure: float.impure.lisp / (RANGE-REDUCTION X87) (1 tests skipped for this combination of platform and features) test failed, expected 104 return code, got 1
The test fails still when reversing the tests:
/running tests on '/home/ zmyrgel/ git/sbcl/ tests/. ./src/runtime/ sbcl --core /home/zmyrgel/ git/sbcl/ tests/. ./output/ sbcl.core --noinform --no-sysinit --no-userinit --noprint --disable-debugger'
; file: /home/zmyrgel/ git/sbcl/ tests/test- util.lisp UTIL::BLOCK- NAME (GENSYM)) :START- TEST) UTIL::BROKEN- P ,TEST-UTIL: :BROKEN- ON) :FAIL-TEST :SKIPPED-BROKEN ',TEST-UTIL::NAME UTIL::SKIPPED- P ,TEST-UTIL: :SKIPPED- ON) :FAIL-TEST :SKIPPED-DISABLED ',TEST-UTIL::NAME :LOAD-TEST> ) :CLOAD- TEST>) :LOAD-TEST> )
; in: DEFMACRO WITH-TEST
; (LET ((TEST-
; (TEST-UTIL::THREADS (GENSYM "THREADS")))
; `(PROGN
; (TEST-UTIL:
; (COND
; ((TEST-
; (TEST-UTIL:
; "Test broken on this platform"))
; ((TEST-
; (TEST-UTIL:
; "Test disabled for this combination of platform and features"))
; (T
; (LET #
; #)))))
;
; caught STYLE-WARNING:
; The variable THREADS is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
// Running pure tests (#<FUNCTION RUN-TESTS:
// Running pure tests (#<FUNCTION RUN-TESTS:
// Running impure tests (#<FUNCTION RUN-TESTS:
; file: /home/zmyrgel/ git/sbcl/ tests/test- util.lisp UTIL::BLOCK- NAME (GENSYM)) :START- TEST) UTIL::BROKEN- P ,TEST-UTIL: :BROKEN- ON) :FAIL-TEST :SKIPPED-BROKEN ',TEST-UTIL::NAME UTIL::SKIPPED- P ,TEST-UTIL: :SKIPPED- ON) :FAIL-TEST :SKIPPED-DISABLED ',TEST-UTIL::NAME git/sbcl/ tests/float. impure. lisp :CLOAD- TEST>) :SH-TEST> )
; in: DEFMACRO WITH-TEST
; (LET ((TEST-
; (TEST-UTIL::THREADS (GENSYM "THREADS")))
; `(PROGN
; (TEST-UTIL:
; (COND
; ((TEST-
; (TEST-UTIL:
; "Test broken on this platform"))
; ((TEST-
; (TEST-UTIL:
; "Test disabled for this combination of platform and features"))
; (T
; (LET #
; #)))))
;
; caught STYLE-WARNING:
; The variable THREADS is defined but never used.
;
; compilation unit finished
; caught 1 STYLE-WARNING condition
// Running /home/zmyrgel/
::: Running (:RANGE-REDUCTION :X87)
::: UNEXPECTED-FAILURE (:RANGE-REDUCTION :X87)
due to #<SIMPLE-ERROR "The assertion ~S failed." {10036C1E73}>:
"The assertion (ALMOST= (SIN (MOD BIG (* 2 PI))) (SIN BIG)) failed."
::: SKIPPED-DISABLED (:RANGE-REDUCTION :PRECISE-PI)
Test disabled for this combination of platform and features
// Running impure tests (#<FUNCTION RUN-TESTS:
// Running impure tests (#<FUNCTION RUN-TESTS:
Finished running tests.
Status:
Failure: float.impure.lisp / (RANGE-REDUCTION X87)
(1 tests skipped for this combination of platform and features)
test failed, expected 104 return code, got 1