i18n: Re-enable tests with the Turkish locale.
authorLudovic Courtès <ludo@gnu.org>
Thu, 17 Mar 2011 21:31:48 +0000 (22:31 +0100)
committerLudovic Courtès <ludo@gnu.org>
Thu, 17 Mar 2011 21:45:07 +0000 (22:45 +0100)
* test-suite/tests/i18n.test ("character mapping")["char-locale-upcase
  Turkish", "char-locale-downcase Turkish"]: Re-enable.  Passes with
  GNU libc 2.12.1.
  ("string mapping")["string-locale-upcase Turkish",
  "string-locale-downcase Turkish"]: Likewise.

test-suite/tests/i18n.test

index 708075e..410ffd5 100644 (file)
   (pass-if "char-locale-upcase Turkish"
     (under-turkish-utf8-locale-or-unresolved
      (lambda ()
-       ;; This test is disabled for now, because char-locale-upcase is
-       ;; incomplete.
-       (throw 'untested)
        (eq? #\İ (char-locale-upcase #\i %turkish-utf8-locale)))))
 
   (pass-if "char-locale-downcase Turkish"
     (under-turkish-utf8-locale-or-unresolved
      (lambda ()
-       ;; This test is disabled for now, because char-locale-downcase
-       ;; is incomplete.
-       (throw 'untested)
        (eq? #\i (char-locale-downcase #\İ %turkish-utf8-locale))))))
 
 \f
   (pass-if "string-locale-upcase Turkish"
     (under-turkish-utf8-locale-or-unresolved
      (lambda ()
-       ;; This test is disabled for now, because string-locale-upcase
-       ;; is incomplete.
-       (throw 'untested)
        (string=? "İI" (string-locale-upcase "iı" %turkish-utf8-locale)))))
 
   (pass-if "string-locale-downcase Turkish"
     (under-turkish-utf8-locale-or-unresolved
      (lambda ()
-       ;; This test is disabled for now, because
-       ;; string-locale-downcase is incomplete.
-       (throw 'untested)
        (string=? "iı" (string-locale-downcase "İI" %turkish-utf8-locale))))))
 
 \f