From c88f8186afd9f08435c48ac7e155d6890323b711 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 30 Nov 2018 08:22:27 +0000 Subject: [PATCH] Add a copysign test case that bit me in a state I can't reproduce. --- tests/runtime/test-arith.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index 379dc8215..9c02f2f71 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -936,7 +936,8 @@ USA. (,(flo:make-nan #f #f 1) 1 ,(flo:make-nan #f #f 1)) (,(flo:make-nan #t #f 1) 1 ,(flo:make-nan #f #f 1)) (,(flo:make-nan #f #f 1) -1 ,(flo:make-nan #t #f 1)) - (,(flo:make-nan #t #f 1) -1 ,(flo:make-nan #t #f 1))) + (,(flo:make-nan #t #f 1) -1 ,(flo:make-nan #t #f 1)) + (1/4 -1/8 -1/4)) (lambda (x y z) (assert-eqv-nan (yes-traps (lambda () (copysign x y))) z) (assert-eqv-nan (yes-traps (lambda () (copysign (- x) y))) z) -- 2.25.1