[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-112-ge4612ff

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e4612ff64201284167f71ac4c09ddb1959f66eb8

The branch, stable-2.0 has been updated
       via  e4612ff64201284167f71ac4c09ddb1959f66eb8 (commit)
       via  c428d33d3220c96026c54075ab28021a0aeff755 (commit)
      from  f80ed1be36b9ff86291e7103488aeb06ab9c092e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e4612ff64201284167f71ac4c09ddb1959f66eb8
Author: Ludovic Courtès <address@hidden>
Date:   Thu Mar 17 22:44:25 2011 +0100

    i18n: Add case mapping and case-insensitive string comparison tests.
    
    Thanks to Mark H Weaver <address@hidden> for coming up with most of the
    examples.
    
    * test-suite/tests/i18n.test (%german-utf8-locale-name,
      %greek-utf8-locale-name): New variables.
      (under-german-utf8-locale-or-unresolved,
      under-greek-utf8-locale-or-unresolved): New procedures.
      ("text collation (German)", "text collation (Greek)"): New tests
      prefixes.
      ("string mapping")["string-locale-upcase German",
      "string-locale-upcase Greek", "string-locale-upcase Greek (two
      sigmas)", "string-locale-downcase Greek", "string-locale-downcase
      Greek (two sigmas)"]: New tests.

commit c428d33d3220c96026c54075ab28021a0aeff755
Author: Ludovic Courtès <address@hidden>
Date:   Thu Mar 17 22:31:48 2011 +0100

    i18n: Re-enable tests with the Turkish locale.
    
    * 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.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/i18n.test |   79 ++++++++++++++++++++++++++++++++++++-------
 1 files changed, 66 insertions(+), 13 deletions(-)

diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index 708075e..ef71578 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -1,6 +1,6 @@
 ;;;; i18n.test --- Exercise the i18n API.  -*- coding: utf-8; mode: scheme; -*-
 ;;;;
-;;;; Copyright (C) 2006, 2007, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
 ;;;; Ludovic Courtès
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
@@ -88,6 +88,12 @@
 (define %turkish-utf8-locale-name
   "tr_TR.UTF-8")
 
+(define %german-utf8-locale-name
+  "de_DE.UTF-8")
+
+(define %greek-utf8-locale-name
+  "el_GR.UTF-8")
+
 (define %french-locale
   (false-if-exception
    (make-locale (list LC_CTYPE LC_COLLATE LC_NUMERIC LC_TIME)
@@ -124,6 +130,12 @@
 (define (under-turkish-utf8-locale-or-unresolved thunk)
   (under-locale-or-unresolved %turkish-utf8-locale thunk))
 
+(define (under-german-utf8-locale-or-unresolved thunk)
+  (under-locale-or-unresolved %german-utf8-locale-name thunk))
+
+(define (under-greek-utf8-locale-or-unresolved thunk)
+  (under-locale-or-unresolved %greek-utf8-locale-name thunk))
+
 (with-test-prefix "text collation (French)"
 
   (pass-if "string-locale<?"
@@ -192,6 +204,24 @@
               (char-locale-ci>? #\Π#\e %french-utf8-locale))))))
 
 
+(with-test-prefix "text collation (German)"
+
+  (pass-if "string-locale-ci=?"
+    (under-german-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((de (make-locale LC_ALL %german-utf8-locale-name)))
+         (string-locale-ci=? "Straße" "STRASSE"))))))
+
+
+(with-test-prefix "text collation (Greek)"
+
+  (pass-if "string-locale-ci=?"
+    (under-greek-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((gr (make-locale LC_ALL %greek-utf8-locale-name)))
+         (string-locale-ci=? "ΧΑΟΣ" "χαος" gr))))))
+
+
 (with-test-prefix "character mapping"
 
   (pass-if "char-locale-downcase"
@@ -213,17 +243,11 @@
   (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))))))
 
 
@@ -242,20 +266,49 @@
         (string=? "Hello, World" (string-locale-titlecase 
                                   "hello, world" (make-locale LC_ALL "C")))))
 
+  (pass-if "string-locale-upcase German"
+    (under-german-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((de (make-locale LC_ALL %german-utf8-locale-name)))
+         (string=? "STRASSE"
+                   (string-locale-upcase "Straße" de))))))
+
+  (pass-if "string-locale-upcase Greek"
+    (under-greek-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((el (make-locale LC_ALL %greek-utf8-locale-name)))
+         (string=? "ΧΑΟΣ"
+                   (string-locale-upcase "χαος" el))))))
+
+  (pass-if "string-locale-upcase Greek (two sigmas)"
+    (under-greek-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((el (make-locale LC_ALL %greek-utf8-locale-name)))
+         (string=? "ΓΕΙΆ ΣΑΣ"
+                   (string-locale-upcase "Γειά σας" el))))))
+
+  (pass-if "string-locale-downcase Greek"
+    (under-greek-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((el (make-locale LC_ALL %greek-utf8-locale-name)))
+         (string=? "χαος"
+                   (string-locale-downcase "ΧΑΟΣ" el))))))
+
+  (pass-if "string-locale-downcase Greek (two sigmas)"
+    (under-greek-utf8-locale-or-unresolved
+     (lambda ()
+       (let ((el (make-locale LC_ALL %greek-utf8-locale-name)))
+         (string=? "γειά σας"
+                   (string-locale-downcase "ΓΕΙΆ ΣΑΣ" el))))))
+
   (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))))))
 
 


hooks/post-receive
-- 
GNU Guile