forked from pool/guile
82 lines
2.5 KiB
Diff
82 lines
2.5 KiB
Diff
|
Index: guile-2.0.14/test-suite/tests/i18n.test
|
||
|
|
===================================================================
|
||
|
|
--- guile-2.0.14.orig/test-suite/tests/i18n.test
|
||
|
|
+++ guile-2.0.14/test-suite/tests/i18n.test
|
||
|
|
@@ -522,37 +522,7 @@
|
||
|
|
|
||
|
|
(pass-if-equal "positive inexact zero, 1 digit"
|
||
|
|
"0.0"
|
||
|
|
- (number->locale-string .0 1)))
|
||
|
|
-
|
||
|
|
- (with-test-prefix "French"
|
||
|
|
-
|
||
|
|
- (pass-if-equal "integer"
|
||
|
|
- "123 456"
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (let ((fr (make-locale LC_ALL %french-locale-name)))
|
||
|
|
- (number->locale-string 123456 #t fr)))))
|
||
|
|
-
|
||
|
|
- (pass-if-equal "negative integer"
|
||
|
|
- "-1 234 567"
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (let ((fr (make-locale LC_ALL %french-locale-name)))
|
||
|
|
- (number->locale-string -1234567 #t fr)))))
|
||
|
|
-
|
||
|
|
- (pass-if-equal "fraction"
|
||
|
|
- "1 234,567"
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (let ((fr (make-locale LC_ALL %french-locale-name)))
|
||
|
|
- (number->locale-string 1234.567 #t fr)))))
|
||
|
|
-
|
||
|
|
- (pass-if-equal "fraction, 1 digit"
|
||
|
|
- "1 234,6"
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (let ((fr (make-locale LC_ALL %french-locale-name)))
|
||
|
|
- (number->locale-string 1234.567 1 fr)))))))
|
||
|
|
+ (number->locale-string .0 1))))
|
||
|
|
|
||
|
|
(with-test-prefix "format ~h"
|
||
|
|
|
||
|
|
@@ -560,16 +530,6 @@
|
||
|
|
;; `locale-digit-grouping' defaults to '(); skip the tests in that
|
||
|
|
;; case.
|
||
|
|
|
||
|
|
- (with-test-prefix "French"
|
||
|
|
-
|
||
|
|
- (pass-if-equal "12345.678"
|
||
|
|
- "12 345,678"
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (if (null? (locale-digit-grouping %french-locale))
|
||
|
|
- (throw 'unresolved)
|
||
|
|
- (format #f "~:h" 12345.678 %french-locale))))))
|
||
|
|
-
|
||
|
|
(with-test-prefix "English"
|
||
|
|
|
||
|
|
(pass-if-equal "12345.678"
|
||
|
|
@@ -585,20 +545,6 @@
|
||
|
|
|
||
|
|
(with-test-prefix "French"
|
||
|
|
|
||
|
|
- (pass-if-equal "integer"
|
||
|
|
- "123 456,00 +EUR"
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (let ((fr (make-locale LC_ALL %french-locale-name)))
|
||
|
|
- (monetary-amount->locale-string 123456 #f fr)))))
|
||
|
|
-
|
||
|
|
- (pass-if-equal "fraction"
|
||
|
|
- "1 234,57 EUR "
|
||
|
|
- (under-french-locale-or-unresolved
|
||
|
|
- (lambda ()
|
||
|
|
- (let ((fr (make-locale LC_ALL %french-locale-name)))
|
||
|
|
- (monetary-amount->locale-string 1234.567 #t fr)))))
|
||
|
|
-
|
||
|
|
(pass-if-equal "positive inexact zero"
|
||
|
|
"0,00 +EUR"
|
||
|
|
(under-french-locale-or-unresolved
|