From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 30 Jun 2019 18:58:54 +0000 (+0000)
Subject: Couple more logsumexp tests.
X-Git-Tag: mit-scheme-pucked-10.1.12~7^2~34
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7265ac719a6fcd8666b84582a144f6600ec5e95;p=mit-scheme.git

Couple more logsumexp tests.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index 91cc085bb..712bc68fb 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -415,6 +415,10 @@ USA.
 (define-enumerated-test 'logsumexp-edges
   (list
    (list '() (flo:-inf.0))
+   (list '(1) 1)
+   (list '(1/2) 1/2)
+   (list '(-1) -1)
+   (list '(-1/2) -1/2)
    (list '(-1000) -1000)
    (list '(-1000.) -1000.)
    (list (list (flo:-inf.0)) (flo:-inf.0))