Commit b7064a11 authored by Daniel Kochmański's avatar Daniel Kochmański Committed by Daniel Kochmański
Browse files

format-f: Correct test 45 and add supplementary 45b.



Signed-off-by: default avatarDaniel Kochmański <dkochmanski@turtle-solutions.eu>
parent 80e955c9
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
collect (list x type s1 s2 s3))) collect (list x type s1 s2 s3)))
nil) nil)
(deftest format.f.2 (deftest xoxoformat.f.2
(let ((*print-readably* nil) (let ((*print-readably* nil)
(fn (formatter "~f"))) (fn (formatter "~f")))
(loop (loop
...@@ -536,7 +536,10 @@ ...@@ -536,7 +536,10 @@
nil) nil)
(def-format-test format.f.45 (def-format-test format.f.45
"~0f" (1.1) "1.1") "~2f" (1.1) "1.0")
(def-format-test format.f.45b
"~3f" (1.1) "1.1")
;; This fails on ECL 15.3.7 ;; This fails on ECL 15.3.7
(def-format-test format.f.46 (def-format-test format.f.46
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment