guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 04/04: tests: Use the "normalized codeset" in locale nam


From: Ludovic Courtès
Subject: [Guile-commits] 04/04: tests: Use the "normalized codeset" in locale names.
Date: Tue, 11 Oct 2016 09:12:02 +0000 (UTC)

civodul pushed a commit to branch stable-2.0
in repository guile.

commit 4a21e5f200e0e5fd520d55f9fd17e60cbc4e93f5
Author: Ludovic Courtès <address@hidden>
Date:   Tue Oct 11 11:09:46 2016 +0200

    tests: Use the "normalized codeset" in locale names.
    
    * test-suite/tests/i18n.test (%french-locale-name)
    (%french-utf8-locale-name, %turkish-utf8-locale-name)
    (%german-utf8-locale-name, %greek-utf8-locale-name): Use the normalized
    codeset for ISO-8859-1 and UTF-8.
---
 test-suite/tests/i18n.test |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index 73502a0..0078baa 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -1,7 +1,7 @@
 ;;;; i18n.test --- Exercise the i18n API.  -*- coding: utf-8; mode: scheme; -*-
 ;;;;
 ;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012,
-;;;;   2013, 2014, 2015 Free Software Foundation, Inc.
+;;;;   2013, 2014, 2015, 2016 Free Software Foundation, Inc.
 ;;;; Ludovic Courtès
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
@@ -87,7 +87,7 @@
 (define %french-locale-name
   (if mingw?
       "fra_FRA.850"
-      "fr_FR.ISO-8859-1"))
+      "fr_FR.iso88591"))         ;"iso88591" is the "normalized codeset"
 
 ;; What we really want for the following locales is that they be Unicode
 ;; capable, not necessarily UTF-8, which Windows does not provide.
@@ -95,22 +95,22 @@
 (define %french-utf8-locale-name
   (if mingw?
       "fra_FRA.1252"
-      "fr_FR.UTF-8"))
+      "fr_FR.utf8"))                 ;"utf8" is the "normalized codeset"
 
 (define %turkish-utf8-locale-name
   (if mingw?
       "tur_TRK.1254"
-      "tr_TR.UTF-8"))
+      "tr_TR.utf8"))
 
 (define %german-utf8-locale-name
   (if mingw?
       "deu_DEU.1252"
-      "de_DE.UTF-8"))
+      "de_DE.utf8"))
 
 (define %greek-utf8-locale-name
   (if mingw?
       "grc_ELL.1253"
-      "el_GR.UTF-8"))
+      "el_GR.utf8"))
 
 (define %american-english-locale-name
   "en_US")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]