Add tests for bad stringification and update changelog

Zulu-Inuoe · Mar 26, 2024 · e92bbb7 · e92bbb7
1 parent c81fd0a
commit e92bbb7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -4,6 +4,7 @@ Changes relative to [v1.1.3](#v113)
 
 * Skip optional failing unit test on ECL (https://github.com/Zulu-Inuoe/jzon/issues/59)
 * CLISP suport by removing PLN usage (https://github.com/Zulu-Inuoe/jzon/issues/53)
+* Fix bogus float serialization for certain floats (thanks https://github.com/atgreen)
 
 ## v1.1.3
 

diff --git a/test/jzon-tests.lisp b/test/jzon-tests.lisp
@@ -1530,6 +1530,11 @@
                                                 t))
                 (nreverse called-on)))))
 
+;; This lies in (or (< e10 -3) (>= e10 7)) for schubfach
+;; where we previously were generating garbage strings
+(test stringify-1.0e-4
+  (is (equalp "1.0e-4" (stringify 1.0e-4))))
+
 (def-suite jzon.json-checker :in jzon)
 
 (in-suite jzon.json-checker)