From b7064a11e2f6ede08346e3cd3039dad41db39a11 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <dkochmanski@turtle-solutions.eu>
Date: Mon, 11 May 2015 22:11:01 +0200
Subject: [PATCH] format-f: Correct test 45 and add supplementary 45b.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <dkochmanski@turtle-solutions.eu>
---
 format-f.lsp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/format-f.lsp b/format-f.lsp
index 674290f4..a744d8e1 100644
--- a/format-f.lsp
+++ b/format-f.lsp
@@ -25,7 +25,7 @@
      collect (list x type s1 s2 s3)))
   nil)
 
-(deftest format.f.2
+(deftest xoxoformat.f.2
   (let ((*print-readably* nil)
         (fn (formatter "~f")))
     (loop
@@ -536,7 +536,10 @@
   nil)
 
 (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
 (def-format-test format.f.46
-- 
GitLab