Blame SOURCES/guile-i18ntest.patch

3c79d0
diff -up guile-2.0.14/test-suite/tests/i18n.test.i18ntest guile-2.0.14/test-suite/tests/i18n.test
3c79d0
--- guile-2.0.14/test-suite/tests/i18n.test.i18ntest	2017-02-13 21:32:39.000000000 +0100
3c79d0
+++ guile-2.0.14/test-suite/tests/i18n.test	2017-10-10 13:25:47.492589702 +0200
3c79d0
@@ -527,28 +527,28 @@
3c79d0
   (with-test-prefix "French"
3c79d0
 
3c79d0
     (pass-if-equal "integer"
3c79d0
-        "123 456"
3c79d0
+        "123\xa0456"
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (let ((fr (make-locale LC_ALL %french-locale-name)))
3c79d0
            (number->locale-string 123456 #t fr)))))
3c79d0
 
3c79d0
     (pass-if-equal "negative integer"
3c79d0
-        "-1 234 567"
3c79d0
+        "-1\xa0234\xa0567"
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (let ((fr (make-locale LC_ALL %french-locale-name)))
3c79d0
            (number->locale-string -1234567 #t fr)))))
3c79d0
 
3c79d0
     (pass-if-equal "fraction"
3c79d0
-        "1 234,567"
3c79d0
+        "1\xa0234,567"
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (let ((fr (make-locale LC_ALL %french-locale-name)))
3c79d0
            (number->locale-string 1234.567 #t fr)))))
3c79d0
 
3c79d0
     (pass-if-equal "fraction, 1 digit"
3c79d0
-        "1 234,6"
3c79d0
+        "1\xa0234,6"
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (let ((fr (make-locale LC_ALL %french-locale-name)))
3c79d0
@@ -563,7 +563,7 @@
3c79d0
   (with-test-prefix "French"
3c79d0
 
3c79d0
     (pass-if-equal "12345.678"
3c79d0
-        "12 345,678"
3c79d0
+        "12\xa0345,678"
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (if (null? (locale-digit-grouping %french-locale))
3c79d0
@@ -586,14 +586,14 @@
3c79d0
   (with-test-prefix "French"
3c79d0
 
3c79d0
     (pass-if-equal "integer"
3c79d0
-        "123 456,00 +EUR"
3c79d0
+        "123\xa0456,00 +EUR"
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (let ((fr (make-locale LC_ALL %french-locale-name)))
3c79d0
            (monetary-amount->locale-string 123456 #f fr)))))
3c79d0
 
3c79d0
     (pass-if-equal "fraction"
3c79d0
-        "1 234,57 EUR "
3c79d0
+        "1\xa0234,57 EUR "
3c79d0
       (under-french-locale-or-unresolved
3c79d0
        (lambda ()
3c79d0
          (let ((fr (make-locale LC_ALL %french-locale-name)))