From 32ce583927759f77af18ef9314279c5f5297bc36 Mon Sep 17 00:00:00 2001
From: Jeronimo Pellegrini <j_p@aleph0.info>
Date: Sun, 15 May 2022 08:30:27 -0300
Subject: [PATCH] Add some more unit tests to SRFI-144

Tests for flmin, flmax, fl-least, fl-epsilon, fl-greatest are
included.
---
 lib/srfi/144/test.sld | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/srfi/144/test.sld b/lib/srfi/144/test.sld
index eb2ab30e..0076c270 100644
--- a/lib/srfi/144/test.sld
+++ b/lib/srfi/144/test.sld
@@ -95,4 +95,13 @@
       (test -0.781212821 (flsecond-bessel 1 1.))
       (test 0.842700793 (flerf 1.))
       (test 0.157299207 (flerfc 1.))
+      (test #t (< 0.0
+                  fl-least
+                  fl-epsilon
+                  1.0
+                  (+ 1.0 fl-epsilon)
+                  fl-greatest
+                  +inf.0))
+      (test +inf.0 (flmin))
+      (test -inf.0 (flmax))
       (test-end))))