libstdc++-v3/testsuite/22_locale/locale/cons/5.cc

   1 // { dg-require-namedlocale "" }
   2
   3 // 2000-09-13 Benjamin Kosnik <bkoz@redhat.com>
   4
   5 // Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
   6 // Free Software Foundation
   7 //
   8 // This file is part of the GNU ISO C++ Library.  This library is free
   9 // software; you can redistribute it and/or modify it under the
  10 // terms of the GNU General Public License as published by the
  11 // Free Software Foundation; either version 2, or (at your option)
  12 // any later version.
  13
  14 // This library is distributed in the hope that it will be useful,
  15 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 // GNU General Public License for more details.
  18
  19 // You should have received a copy of the GNU General Public License along
  20 // with this library; see the file COPYING.  If not, write to the Free
  21 // Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
  22 // USA.
  23
  24 // 22.1.1.2 locale constructors and destructors [lib.locale.cons]
  25
  26 #include <cwchar> // for mbstate_t
  27 #include <cstring>
  28 #include <cstdlib>
  29 #include <locale>
  30 #include <stdexcept>
  31 #include <testsuite_hooks.h>
  32
  33 // More tests for locale("") == POSIX locale::name.
  34 void test04()
  35 {
  36   bool test __attribute__((unused)) = true;
  37   using namespace std;
  38
  39 #ifdef _GLIBCXX_HAVE_SETENV
  40
  41   const char* LANG_orig = getenv("LANG") ? strdup(getenv("LANG")) : "";
  42   const char* LC_ALL_orig = getenv("LC_ALL") ? strdup(getenv("LC_ALL")) : "";
  43   const char* LC_CTYPE_orig =
  44     getenv("LC_CTYPE") ? strdup(getenv("LC_CTYPE")) : "";
  45   const char* LC_NUMERIC_orig =
  46     getenv("LC_NUMERIC") ? strdup(getenv("LC_NUMERIC")) : "";
  47   const char* LC_TIME_orig =
  48     getenv("LC_TIME") ? strdup(getenv("LC_TIME")) : "";
  49   const char* LC_COLLATE_orig =
  50     getenv("LC_COLLATE") ? strdup(getenv("LC_COLLATE")) : "";
  51   const char* LC_MONETARY_orig =
  52     getenv("LC_MONETARY") ? strdup(getenv("LC_MONETARY")) : "";
  53   const char* LC_MESSAGES_orig =
  54     getenv("LC_MESSAGES") ? strdup(getenv("LC_MESSAGES")) : "";
  55 #if _GLIBCXX_NUM_CATEGORIES
  56   const char* LC_PAPER_orig =
  57     getenv("LC_PAPER") ? strdup(getenv("LC_PAPER")) : "";
  58   const char* LC_NAME_orig =
  59     getenv("LC_NAME") ? strdup(getenv("LC_NAME")) : "";
  60   const char* LC_ADDRESS_orig =
  61     getenv("LC_ADDRESS") ? strdup(getenv("LC_ADDRESS")) : "";
  62   const char* LC_TELEPHONE_orig =
  63     getenv("LC_TELEPHONE") ? strdup(getenv("LC_TELEPHONE")) : "";
  64   const char* LC_MEASUREMENT_orig =
  65     getenv("LC_MEASUREMENT") ? strdup(getenv("LC_MEASUREMENT")) : "";
  66   const char* LC_IDENTIFICATION_orig =
  67     getenv("LC_IDENTIFICATION") ? strdup(getenv("LC_IDENTIFICATION")) : "";
  68 #endif
  69
  70   // Check that a "POSIX" LC_ALL is equivalent to "C".
  71   if (!setenv("LC_ALL", "POSIX", 1))
  72     {
  73       locale loc = locale("");
  74       VERIFY( loc.name() == "C" );
  75     }
  76   setenv("LC_ALL", "", 1);
  77
  78   // Check that a "en_PH" LC_ALL is equivalent to "en_PH".
  79   if (!setenv("LC_ALL", "en_PH", 1))
  80     {
  81       locale loc = locale("");
  82       VERIFY( loc.name() == "en_PH" );
  83     }
  84   setenv("LC_ALL", "", 1);
  85
  86   // Explicit check that LC_ALL sets regardless of LC_* and LANG.
  87   if (!setenv("LANG", "es_MX", 1) && !setenv("LC_COLLATE", "de_DE", 1))
  88     {
  89       if (!setenv("LC_ALL", "en_PH", 1))
  90         {
  91           locale loc = locale("");
  92           VERIFY( loc.name() == "en_PH" );
  93         }
  94       setenv("LC_ALL", "", 1);
  95       setenv("LANG", LANG_orig ? LANG_orig : "", 1);
  96       setenv("LC_COLLATE", LC_COLLATE_orig ? LC_COLLATE_orig : "", 1);
  97     }
  98
  99   // NB: LANG checks all LC_* macro settings. As such, all LC_* macros
 100   // must be cleared for these tests, and then restored.
 101   setenv("LC_ALL", "", 1);
 102   setenv("LC_CTYPE", "", 1);
 103   setenv("LC_NUMERIC", "", 1);
 104   setenv("LC_TIME", "", 1);
 105   setenv("LC_COLLATE", "", 1);
 106   setenv("LC_MONETARY", "", 1);
 107   setenv("LC_MESSAGES", "", 1);
 108 #if _GLIBCXX_NUM_CATEGORIES
 109   setenv("LC_PAPER", "", 1);
 110   setenv("LC_NAME", "", 1);
 111   setenv("LC_ADDRESS", "", 1);
 112   setenv("LC_TELEPHONE", "", 1);
 113   setenv("LC_MEASUREMENT", "", 1);
 114   setenv("LC_IDENTIFICATION", "", 1);
 115 #endif
 116
 117   // Check the default set by LANG.
 118   if (!setenv("LANG", "fr_FR", 1))
 119     {
 120       locale loc = locale("");
 121       VERIFY( loc.name() == "fr_FR" );
 122     }
 123
 124   // Check that a "POSIX" LANG is equivalent to "C".
 125   if (!setenv("LANG", "POSIX", 1))
 126     {
 127       locale loc("");
 128       VERIFY( loc.name() == "C" );
 129     }
 130
 131   // Setting a category in the "C" default.
 132   if (!setenv("LC_COLLATE", "de_DE", 1))
 133     {
 134       locale loc = locale("");
 135
 136 #if _GLIBCXX_NUM_CATEGORIES
 137       VERIFY( loc.name() == "LC_CTYPE=C;LC_NUMERIC=C;LC_TIME=C;"
 138               "LC_COLLATE=de_DE;LC_MONETARY=C;LC_MESSAGES=C;LC_PAPER=C;"
 139               "LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=C;"
 140               "LC_IDENTIFICATION=C" );
 141 #else
 142       VERIFY( loc.name() == "LC_CTYPE=C;LC_NUMERIC=C;LC_TIME=C;"
 143               "LC_COLLATE=de_DE;LC_MONETARY=C;LC_MESSAGES=C" );
 144 #endif
 145     }
 146
 147   // Changing the LANG default while LC_COLLATE is set.
 148   if (!setenv("LANG", "fr_FR", 1))
 149     {
 150       locale loc = locale("");
 151 #if _GLIBCXX_NUM_CATEGORIES
 152       VERIFY( loc.name() == "LC_CTYPE=fr_FR;LC_NUMERIC=fr_FR;"
 153               "LC_TIME=fr_FR;LC_COLLATE=de_DE;LC_MONETARY=fr_FR;"
 154               "LC_MESSAGES=fr_FR;LC_PAPER=fr_FR;LC_NAME=fr_FR;"
 155               "LC_ADDRESS=fr_FR;LC_TELEPHONE=fr_FR;LC_MEASUREMENT=fr_FR;"
 156               "LC_IDENTIFICATION=fr_FR" );
 157 #else
 158       VERIFY( loc.name() == "LC_CTYPE=fr_FR;LC_NUMERIC=fr_FR;"
 159               "LC_TIME=fr_FR;LC_COLLATE=de_DE;LC_MONETARY=fr_FR;"
 160               "LC_MESSAGES=fr_FR" );
 161 #endif
 162     }
 163
 164   // Changing another (C only) category.
 165 #if _GLIBCXX_NUM_CATEGORIES
 166   if (!setenv("LC_IDENTIFICATION", "it_IT", 1))
 167     {
 168       locale loc = locale("");
 169       VERIFY( loc.name() == "LC_CTYPE=fr_FR;LC_NUMERIC=fr_FR;"
 170               "LC_TIME=fr_FR;LC_COLLATE=de_DE;LC_MONETARY=fr_FR;"
 171               "LC_MESSAGES=fr_FR;LC_PAPER=fr_FR;LC_NAME=fr_FR;"
 172               "LC_ADDRESS=fr_FR;LC_TELEPHONE=fr_FR;LC_MEASUREMENT=fr_FR;"
 173               "LC_IDENTIFICATION=it_IT" );
 174     }
 175 #endif
 176
 177   // Restore the environment.
 178   setenv("LANG", LANG_orig ? LANG_orig : "", 1);
 179   setenv("LC_ALL", LC_ALL_orig ? LC_ALL_orig : "", 1);
 180   setenv("LC_CTYPE", LC_CTYPE_orig ? LC_CTYPE_orig : "", 1);
 181   setenv("LC_NUMERIC", LC_NUMERIC_orig ? LC_NUMERIC_orig : "", 1);
 182   setenv("LC_TIME", LC_TIME_orig ? LC_TIME_orig : "", 1);
 183   setenv("LC_COLLATE", LC_COLLATE_orig ? LC_COLLATE_orig : "", 1);
 184   setenv("LC_MONETARY", LC_MONETARY_orig ? LC_MONETARY_orig : "", 1);
 185   setenv("LC_MESSAGES", LC_MESSAGES_orig ? LC_MESSAGES_orig : "", 1);
 186 #if _GLIBCXX_NUM_CATEGORIES
 187   setenv("LC_PAPER", LC_PAPER_orig ? LC_PAPER_orig : "", 1);
 188   setenv("LC_NAME", LC_NAME_orig ? LC_NAME_orig : "", 1);
 189   setenv("LC_ADDRESS", LC_ADDRESS_orig ? LC_ADDRESS_orig : "", 1);
 190   setenv("LC_TELEPHONE", LC_TELEPHONE_orig ? LC_TELEPHONE_orig : "", 1);
 191   setenv("LC_MEASUREMENT", LC_MEASUREMENT_orig ? LC_MEASUREMENT_orig : "", 1);
 192   setenv("LC_IDENTIFICATION",
 193          LC_IDENTIFICATION_orig ? LC_IDENTIFICATION_orig : "", 1);
 194 #endif
 195
 196 #endif
 197 }
 198
 199 int main()
 200 {
 201   test04();
 202   return 0;
 203 }