From 06e553157c0260db4db2303e0ddb2e382f47689c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 10 Nov 2022 21:12:27 +0100
Subject: [PATCH] tests: add a regression test for (log small-ratio)

---
 src/tests/normal-tests/mixed.lsp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/tests/normal-tests/mixed.lsp b/src/tests/normal-tests/mixed.lsp
index 0d7522e39..c3f82c51b 100644
--- a/src/tests/normal-tests/mixed.lsp
+++ b/src/tests/normal-tests/mixed.lsp
@@ -429,3 +429,8 @@
   (let ((vector (si:make-vector t 10 t nil nil nil)))
     (si:adjust-vector vector 20)
     (is (= 20 (array-total-size vector)))))
+
+;;; Created: 2022-11-10
+;;; Contains: a test for a logarithm of a very small ratio
+(test mix.0023.log-small-ratio
+  (finishes (log (/ 1 6319748715279270675921934218987893281199411530039296))))