From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Nov 2018 08:22:27 +0000 (+0000)
Subject: Add a copysign test case that bit me in a state I can't reproduce.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~89
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c88f8186afd9f08435c48ac7e155d6890323b711;p=mit-scheme.git

Add a copysign test case that bit me in a state I can't reproduce.
---

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)