[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-112-ge4612
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-112-ge4612ff |
Date: |
Thu, 17 Mar 2011 21:45:48 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.0-112-ge4612ff,
Ludovic Courtès <=