[thirdparty/gcc.git] / libstdc++-v3 / testsuite / 22_locale / locale / cons / 5.cc

// 2000-09-13 Benjamin Kosnik <bkoz@redhat.com>

// Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation
//
// This file is part of the GNU ISO C++ Library.  This library is free
// software; you can redistribute it and/or modify it under the
// terms of the GNU General Public License as published by the
// Free Software Foundation; either version 2, or (at your option)
// any later version.

// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.

// You should have received a copy of the GNU General Public License along
// with this library; see the file COPYING.  If not, write to the Free
// Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
// USA.

// 22.1.1.2 locale constructors and destructors [lib.locale.cons]

#include <cwchar> // for mbstate_t
#include <locale>
#include <stdexcept>
#include <testsuite_hooks.h>

// More tests for locale("") == POSIX locale::name. 
void test04()
{
  bool test = true;
  using namespace std;

#ifdef _GLIBCPP_HAVE_SETENV

  const char* LANG_orig = getenv("LANG") ? strdup(getenv("LANG")) : "";
  const char* LC_ALL_orig = getenv("LC_ALL") ? strdup(getenv("LC_ALL")) : "";
  const char* LC_CTYPE_orig = 
    getenv("LC_CTYPE") ? strdup(getenv("LC_CTYPE")) : "";
  const char* LC_NUMERIC_orig = 
    getenv("LC_NUMERIC") ? strdup(getenv("LC_NUMERIC")) : "";
  const char* LC_TIME_orig = 
    getenv("LC_TIME") ? strdup(getenv("LC_TIME")) : "";
  const char* LC_COLLATE_orig =
    getenv("LC_COLLATE") ? strdup(getenv("LC_COLLATE")) : "";
  const char* LC_MONETARY_orig = 
    getenv("LC_MONETARY") ? strdup(getenv("LC_MONETARY")) : "";
  const char* LC_MESSAGES_orig = 
    getenv("LC_MESSAGES") ? strdup(getenv("LC_MESSAGES")) : "";
#if _GLIBCPP_NUM_CATEGORIES
  const char* LC_PAPER_orig = 
    getenv("LC_PAPER") ? strdup(getenv("LC_PAPER")) : "";
  const char* LC_NAME_orig = 
    getenv("LC_NAME") ? strdup(getenv("LC_NAME")) : "";
  const char* LC_ADDRESS_orig = 
    getenv("LC_ADDRESS") ? strdup(getenv("LC_ADDRESS")) : "";
  const char* LC_TELEPHONE_orig = 
    getenv("LC_TELEPHONE") ? strdup(getenv("LC_TELEPHONE")) : "";
  const char* LC_MEASUREMENT_orig = 
    getenv("LC_MEASUREMENT") ? strdup(getenv("LC_MEASUREMENT")) : "";
  const char* LC_IDENTIFICATION_orig =
    getenv("LC_IDENTIFICATION") ? strdup(getenv("LC_IDENTIFICATION")) : "";
#endif

  // Check that a "POSIX" LC_ALL is equivalent to "C".
  if (!setenv("LC_ALL", "POSIX", 1))
    {
      locale loc("");
      VERIFY( loc.name() == "C" );
    }
  setenv("LC_ALL", "", 1);

  // Check that a "en_PH" LC_ALL is equivalent to "en_PH".
  if (!setenv("LC_ALL", "en_PH", 1))
    {
      locale loc("");
      VERIFY( loc.name() == "en_PH" );
    }
  setenv("LC_ALL", "", 1);

  // Explicit check that LC_ALL sets regardless of LC_* and LANG.
  if (!setenv("LANG", "es_MX", 1) && !setenv("LC_COLLATE", "de_DE", 1))
    {
      if (!setenv("LC_ALL", "en_PH", 1))
	{
	  locale loc("");
	  VERIFY( loc.name() == "en_PH" );
	}
      setenv("LC_ALL", "", 1);
      setenv("LANG", LANG_orig ? LANG_orig : "", 1);
      setenv("LC_COLLATE", LC_COLLATE_orig ? LC_COLLATE_orig : "", 1);
    }

  // NB: LANG checks all LC_* macro settings. As such, all LC_* macros
  // must be cleared for these tests, and then restored.
  setenv("LC_ALL", "", 1);
  setenv("LC_CTYPE", "", 1);
  setenv("LC_NUMERIC", "", 1);
  setenv("LC_TIME", "", 1);
  setenv("LC_COLLATE", "", 1);
  setenv("LC_MONETARY", "", 1);
  setenv("LC_MESSAGES", "", 1);
#if _GLIBCPP_NUM_CATEGORIES
  setenv("LC_PAPER", "", 1);
  setenv("LC_NAME", "", 1);
  setenv("LC_ADDRESS", "", 1);
  setenv("LC_TELEPHONE", "", 1);
  setenv("LC_MEASUREMENT", "", 1);
  setenv("LC_IDENTIFICATION", "", 1);
#endif

  // Check the default set by LANG.
  if (!setenv("LANG", "fr_FR", 1))
    {
      locale loc("");
      VERIFY( loc.name() == "fr_FR" );
    }

  // Check that a "POSIX" LANG is equivalent to "C".
  if (!setenv("LANG", "POSIX", 1))
    {
      locale loc(""); 
      VERIFY( loc.name() == "C" );
    }

  // Setting a category in the "C" default.
  if (!setenv("LC_COLLATE", "de_DE", 1))
    {
      locale loc("");

#if _GLIBCPP_NUM_CATEGORIES
      VERIFY( loc.name() == "LC_CTYPE=C;LC_NUMERIC=C;LC_TIME=C;"
              "LC_COLLATE=de_DE;LC_MONETARY=C;LC_MESSAGES=C;LC_PAPER=C;"
	      "LC_NAME=C;LC_ADDRESS=C;LC_TELEPHONE=C;LC_MEASUREMENT=C;"
	      "LC_IDENTIFICATION=C" );
#else
      VERIFY( loc.name() == "LC_CTYPE=C;LC_NUMERIC=C;LC_TIME=C;"
	      "LC_COLLATE=de_DE;LC_MONETARY=C;LC_MESSAGES=C" );
#endif
    }

  // Changing the LANG default while LC_COLLATE is set.
  if (!setenv("LANG", "fr_FR", 1))
    {
      locale loc("");
#if _GLIBCPP_NUM_CATEGORIES
      VERIFY( loc.name() == "LC_CTYPE=fr_FR;LC_NUMERIC=fr_FR;"
	      "LC_TIME=fr_FR;LC_COLLATE=de_DE;LC_MONETARY=fr_FR;"
	      "LC_MESSAGES=fr_FR;LC_PAPER=fr_FR;LC_NAME=fr_FR;"
	      "LC_ADDRESS=fr_FR;LC_TELEPHONE=fr_FR;LC_MEASUREMENT=fr_FR;"
	      "LC_IDENTIFICATION=fr_FR" );
#else
      VERIFY( loc.name() == "LC_CTYPE=fr_FR;LC_NUMERIC=fr_FR;"
	      "LC_TIME=fr_FR;LC_COLLATE=de_DE;LC_MONETARY=fr_FR;"
	      "LC_MESSAGES=fr_FR" );
#endif
    }
  
  // Changing another (C only) category.
#if _GLIBCPP_NUM_CATEGORIES
  if (!setenv("LC_IDENTIFICATION", "it_IT", 1))
    {
      locale loc("");
      VERIFY( loc.name() == "LC_CTYPE=fr_FR;LC_NUMERIC=fr_FR;"
	      "LC_TIME=fr_FR;LC_COLLATE=de_DE;LC_MONETARY=fr_FR;"
	      "LC_MESSAGES=fr_FR;LC_PAPER=fr_FR;LC_NAME=fr_FR;"
	      "LC_ADDRESS=fr_FR;LC_TELEPHONE=fr_FR;LC_MEASUREMENT=fr_FR;"
	      "LC_IDENTIFICATION=it_IT" );
    }
#endif

  // Restore the environment.
  setenv("LANG", LANG_orig ? LANG_orig : "", 1);
  setenv("LC_ALL", LC_ALL_orig ? LC_ALL_orig : "", 1);
  setenv("LC_CTYPE", LC_CTYPE_orig ? LC_CTYPE_orig : "", 1);
  setenv("LC_NUMERIC", LC_NUMERIC_orig ? LC_NUMERIC_orig : "", 1);
  setenv("LC_TIME", LC_TIME_orig ? LC_TIME_orig : "", 1);
  setenv("LC_COLLATE", LC_COLLATE_orig ? LC_COLLATE_orig : "", 1);
  setenv("LC_MONETARY", LC_MONETARY_orig ? LC_MONETARY_orig : "", 1);
  setenv("LC_MESSAGES", LC_MESSAGES_orig ? LC_MESSAGES_orig : "", 1);
#if _GLIBCPP_NUM_CATEGORIES
  setenv("LC_PAPER", LC_PAPER_orig ? LC_PAPER_orig : "", 1);
  setenv("LC_NAME", LC_NAME_orig ? LC_NAME_orig : "", 1);
  setenv("LC_ADDRESS", LC_ADDRESS_orig ? LC_ADDRESS_orig : "", 1);
  setenv("LC_TELEPHONE", LC_TELEPHONE_orig ? LC_TELEPHONE_orig : "", 1);
  setenv("LC_MEASUREMENT", LC_MEASUREMENT_orig ? LC_MEASUREMENT_orig : "", 1);
  setenv("LC_IDENTIFICATION", 
         LC_IDENTIFICATION_orig ? LC_IDENTIFICATION_orig : "", 1);
#endif

#endif
}

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