mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-02 02:10:19 +02:00
(~f): Test leading zeros bugfix.
This commit is contained in:
parent
e8587f7eca
commit
f461265c96
1 changed files with 14 additions and 0 deletions
|
@ -72,6 +72,20 @@
|
|||
(pass-if "+1"
|
||||
(string=? (format #f "~@d" 1) "+1"))))
|
||||
|
||||
;;;
|
||||
;;; ~f
|
||||
;;;
|
||||
|
||||
(with-test-prefix "~f fixed-point"
|
||||
|
||||
(pass-if "1.5"
|
||||
(string=? "1.5" (format #f "~f" 1.5)))
|
||||
|
||||
;; in guile prior to 1.6.9 and 1.8.1, leading zeros were incorrectly
|
||||
;; stripped, moving the decimal point and giving "25.0" here
|
||||
(pass-if "string 02.5"
|
||||
(string=? "2.5" (format #f "~f" "02.5"))))
|
||||
|
||||
;;;
|
||||
;;; ~{
|
||||
;;;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue