File guile-disable-int-tests.patch of Package guile

Overview Repositories Revisions Requests Users Attributes Meta

File guile-disable-int-tests.patch of Package guile (Revision 8e78ab5018f9c57f1e8c43b6623bad29)

Currently displaying revision 8e78ab5018f9c57f1e8c43b6623bad29 , Show latest

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

Places

File guile-disable-int-tests.patch of Package guile (Revision 8e78ab5018f9c57f1e8c43b6623bad29)

Places