Attachment #553842 for bug #670120

View | Details | Raw Unified | Return to bug 670120
Collapse All | Expand All

Line 71 Link Here

(-)file_not_specified_in_diff (-1 lines)
71	https://sourceware.org/git/?p=glibc.git&a=commit&h=70a6707fa15e63591d991761be025e26e8d02bb6	6707	https://sourceware.org/git/?p=glibc.git&a=commit&h=70a6707fa15e63591d991761be025e26e8d02bb6
72	--
73	test-suite/tests/i18n.test \| 14 +++++++-------	6708	test-suite/tests/i18n.test \| 14 +++++++-------
74	1 file changed, 7 insertions(+), 7 deletions(-)	6709	1 file changed, 7 insertions(+), 7 deletions(-)




  (with-test-prefix "French"

    (pass-if-equal "integer"
        "123\xa0456"
      (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\xa0234\xa0567"
      (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\xa0234,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\xa0234,6"
      (under-french-locale-or-unresolved
       (lambda ()
         (let ((fr (make-locale LC_ALL %french-locale-name)))

  (with-test-prefix "French"

    (pass-if-equal "12345.678"
        "12\xa0345,678"
      (under-french-locale-or-unresolved
       (lambda ()
         (if (null? (locale-digit-grouping %french-locale))

  (with-test-prefix "French"

    (pass-if-equal "integer"
        "123\xa0456,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\xa0234,57 EUR "
      (under-french-locale-or-unresolved
       (lambda ()
         (let ((fr (make-locale LC_ALL %french-locale-name)))

Return to bug 670120

Lines 601-628 Link Here

(-)a/test-suite/tests/i18n.test (-7 / +7 lines)
601	(with-test-prefix "French"	601	(with-test-prefix "French"
602		602
603	(pass-if-equal "integer"	603	(pass-if-equal "integer"
604	"123 456"	604	"123\xa0456"
605	(under-french-locale-or-unresolved	605	(under-french-locale-or-unresolved
606	(lambda ()	606	(lambda ()
607	(let ((fr (make-locale LC_ALL %french-locale-name)))	607	(let ((fr (make-locale LC_ALL %french-locale-name)))
608	(number->locale-string 123456 #t fr)))))	608	(number->locale-string 123456 #t fr)))))
609		609
610	(pass-if-equal "negative integer"	610	(pass-if-equal "negative integer"
611	"-1 234 567"	611	"-1\xa0234\xa0567"
612	(under-french-locale-or-unresolved	612	(under-french-locale-or-unresolved
613	(lambda ()	613	(lambda ()
614	(let ((fr (make-locale LC_ALL %french-locale-name)))	614	(let ((fr (make-locale LC_ALL %french-locale-name)))
615	(number->locale-string -1234567 #t fr)))))	615	(number->locale-string -1234567 #t fr)))))
616		616
617	(pass-if-equal "fraction"	617	(pass-if-equal "fraction"
618	"1 234,567"	618	"1\xa0234,567"
619	(under-french-locale-or-unresolved	619	(under-french-locale-or-unresolved
620	(lambda ()	620	(lambda ()
621	(let ((fr (make-locale LC_ALL %french-locale-name)))	621	(let ((fr (make-locale LC_ALL %french-locale-name)))
622	(number->locale-string 1234.567 #t fr)))))	622	(number->locale-string 1234.567 #t fr)))))
623		623
624	(pass-if-equal "fraction, 1 digit"	624	(pass-if-equal "fraction, 1 digit"
625	"1 234,6"	625	"1\xa0234,6"
626	(under-french-locale-or-unresolved	626	(under-french-locale-or-unresolved
627	(lambda ()	627	(lambda ()
628	(let ((fr (make-locale LC_ALL %french-locale-name)))	628	(let ((fr (make-locale LC_ALL %french-locale-name)))
Lines 637-643 Link Here
637	(with-test-prefix "French"	637	(with-test-prefix "French"
638		638
639	(pass-if-equal "12345.678"	639	(pass-if-equal "12345.678"
640	"12 345,678"	640	"12\xa0345,678"
641	(under-french-locale-or-unresolved	641	(under-french-locale-or-unresolved
642	(lambda ()	642	(lambda ()
643	(if (null? (locale-digit-grouping %french-locale))	643	(if (null? (locale-digit-grouping %french-locale))
Lines 660-673 Link Here
660	(with-test-prefix "French"	660	(with-test-prefix "French"
661		661
662	(pass-if-equal "integer"	662	(pass-if-equal "integer"
663	"123 456,00 +EUR"	663	"123\xa0456,00 +EUR"
664	(under-french-locale-or-unresolved	664	(under-french-locale-or-unresolved
665	(lambda ()	665	(lambda ()
666	(let ((fr (make-locale LC_ALL %french-locale-name)))	666	(let ((fr (make-locale LC_ALL %french-locale-name)))
667	(monetary-amount->locale-string 123456 #f fr)))))	667	(monetary-amount->locale-string 123456 #f fr)))))
668		668
669	(pass-if-equal "fraction"	669	(pass-if-equal "fraction"
670	"1 234,57 EUR "	670	"1\xa0234,57 EUR "
671	(under-french-locale-or-unresolved	671	(under-french-locale-or-unresolved
672	(lambda ()	672	(lambda ()
673	(let ((fr (make-locale LC_ALL %french-locale-name)))	673	(let ((fr (make-locale LC_ALL %french-locale-name)))