+++ /dev/null
-// 2000-09-13 Benjamin Kosnik <bkoz@redhat.com>
-
-// Copyright (C) 2000, 2001, 2002 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>
-
-void test00()
-{
- // Should be able to do this as the first thing that happens in a
- // file and have it not crash.
- std::locale loc("C");
-}
-
-#if _GLIBCPP_USE___ENC_TRAITS
-typedef std::codecvt<char, char, std::mbstate_t> c_codecvt;
-typedef std::codecvt_byname<char, char, std::mbstate_t> c_codecvt_byname;
-typedef std::codecvt<wchar_t, char, std::mbstate_t> w_codecvt;
-typedef std::codecvt_byname<wchar_t, char, std::mbstate_t> w_codecvt_byname;
-
-class gnu_codecvt: public c_codecvt { };
-
-class gnu_facet: public std::locale::facet
-{
-public:
- static std::locale::id id;
-};
-
-std::locale::id gnu_facet::id;
-
-// Need some char_traits specializations for this to work.
-typedef unsigned short unicode_t;
-
-namespace std
-{
- template<>
- struct char_traits<unicode_t>
- {
- typedef unicode_t char_type;
- // Unsigned as wint_t is unsigned.
- typedef unsigned long int_type;
- typedef streampos pos_type;
- typedef streamoff off_type;
- typedef mbstate_t state_type;
-
- static void
- assign(char_type& __c1, const char_type& __c2);
-
- static bool
- eq(const char_type& __c1, const char_type& __c2);
-
- static bool
- lt(const char_type& __c1, const char_type& __c2);
-
- static int
- compare(const char_type* __s1, const char_type* __s2, size_t __n)
- { return memcmp(__s1, __s2, __n); }
-
- static size_t
- length(const char_type* __s);
-
- static const char_type*
- find(const char_type* __s, size_t __n, const char_type& __a);
-
- static char_type*
- move(char_type* __s1, const char_type* __s2, size_t __n);
-
- static char_type*
- copy(char_type* __s1, const char_type* __s2, size_t __n)
- { return static_cast<char_type*>(memcpy(__s1, __s2, __n)); }
-
- static char_type*
- assign(char_type* __s, size_t __n, char_type __a);
-
- static char_type
- to_char_type(const int_type& __c);
-
- static int_type
- to_int_type(const char_type& __c);
-
- static bool
- eq_int_type(const int_type& __c1, const int_type& __c2);
-
- static int_type
- eof();
-
- static int_type
- not_eof(const int_type& __c);
- };
-}
-
-void test01()
-{
- using namespace std;
- typedef unicode_t int_type;
- typedef char ext_type;
- typedef __enc_traits enc_type;
- typedef codecvt<int_type, ext_type, enc_type> unicode_codecvt;
-
- bool test = true;
- string str1, str2;
-
- // construct a locale object with the C facet
- const locale loc01 = locale::classic();
-
- // 1
- // template <class Facet> locale(const locale& other, Facet* f)
- // construct a locale object with the specialized facet.
- locale loc02(locale::classic(), new gnu_codecvt);
- VERIFY (loc01 != loc02);
- VERIFY (loc02.name() == "*");
- try
- {
- VERIFY (has_facet<gnu_codecvt>(loc02));
- VERIFY (has_facet<c_codecvt>(loc02));
- VERIFY (has_facet<w_codecvt>(loc02));
- }
- catch(...)
- { VERIFY( false ); }
-
- try
- { use_facet<gnu_facet>(loc02); }
- catch(bad_cast& obj)
- { VERIFY( true ); }
- catch(...)
- { VERIFY( false ); }
-
- // unicode_codecvt
- locale loc13(locale::classic(), new unicode_codecvt);
- VERIFY (loc01 != loc13);
- VERIFY (loc13.name() == "*");
- try
- {
- VERIFY (has_facet<c_codecvt>(loc13));
- VERIFY (has_facet<w_codecvt>(loc13));
- VERIFY (has_facet<unicode_codecvt>(loc13));
- }
- catch(...)
- { VERIFY( false ); }
-
- try
- { use_facet<gnu_facet>(loc13); }
- catch(bad_cast& obj)
- { VERIFY( true ); }
- catch(...)
- { VERIFY( false ); }
-
- // 2
- // locale() throw()
- locale loc03;
- VERIFY (loc03 == loc01);
- VERIFY (loc03.name() == "C");
- locale loc04 = locale::global(loc02);
- locale loc05;
- VERIFY (loc05 != loc03);
- VERIFY (loc05 == loc02);
-
- // 3
- // explicit locale(const char* std_name)
- locale loc06("fr_FR");
- VERIFY (loc06 != loc01);
- VERIFY (loc06 != loc02);
- VERIFY (loc06.name() == "fr_FR");
- locale loc07("");
- VERIFY (loc07 != loc02);
- VERIFY (loc07.name() != "");
- try
- { locale loc08(static_cast<const char*>(NULL)); }
- catch(runtime_error& obj)
- { VERIFY (true); }
- catch(...)
- { VERIFY (false); }
-
- try
- { locale loc08("saturn_SUN*RA"); }
- catch(runtime_error& obj)
- { VERIFY (true); }
- catch(...)
- { VERIFY (false); }
-
- // 4
- // locale(const locale& other, const char* std_name, category)
- {
- // This is the same as 5 only use "C" for loc("C")
- locale loc09(loc06, "C", locale::ctype);
- VERIFY (loc09.name() != "fr_FR");
- VERIFY (loc09.name() != "C");
- VERIFY (loc09.name() != "*");
- VERIFY (loc09 != loc01);
- VERIFY (loc09 != loc06);
-
- locale loc10(loc02, "C", locale::ctype);
- VERIFY (loc10.name() == "*");
- VERIFY (loc10 != loc01); // As not named, even tho facets same...
- VERIFY (loc10 != loc02);
-
- locale loc11(loc01, "C", locale::ctype);
- VERIFY (loc11.name() == "C");
- VERIFY (loc11 == loc01);
-
- try
- { locale loc12(loc01, static_cast<const char*>(NULL), locale::ctype); }
- catch(runtime_error& obj)
- { VERIFY (true); }
- catch(...)
- { VERIFY (false); }
-
- try
- { locale loc13(loc01, "localized by the wu-tang clan", locale::ctype); }
- catch(runtime_error& obj)
- { VERIFY (true); }
- catch(...)
- { VERIFY (false); }
-
- locale loc14(loc06, "C", locale::none);
- VERIFY (loc14.name() == "fr_FR");
- VERIFY (loc14 == loc06);
-
- locale loc15(loc06, "C", locale::collate);
- VERIFY (loc15.name() != "fr_FR");
- VERIFY (loc15.name() != "C");
- VERIFY (loc15.name() != "*");
- VERIFY (loc15.name() != loc09.name());
- VERIFY (loc15 != loc01);
- VERIFY (loc15 != loc06);
- VERIFY (loc15 != loc09);
- }
-
- // 5
- // locale(const locale& other, const locale& one, category)
- {
- // This is the exact same as 4, with locale("C") for "C"
- locale loc09(loc06, loc01, locale::ctype);
- VERIFY (loc09.name() != "fr_FR");
- VERIFY (loc09.name() != "C");
- VERIFY (loc09.name() != "*");
- VERIFY (loc09 != loc01);
- VERIFY (loc09 != loc06);
-
- locale loc10(loc02, loc01, locale::ctype);
- VERIFY (loc10.name() == "*");
- VERIFY (loc10 != loc01); // As not named, even tho facets same...
- VERIFY (loc10 != loc02);
-
- locale loc11(loc01, loc01, locale::ctype);
- VERIFY (loc11.name() == "C");
- VERIFY (loc11 == loc01);
-
- try
- { locale loc12(loc01, static_cast<const char*>(NULL), locale::ctype); }
- catch(runtime_error& obj)
- { VERIFY (true); }
- catch(...)
- { VERIFY (false); }
-
- try
- { locale loc13(loc01, locale("wu-tang clan"), locale::ctype); }
- catch(runtime_error& obj)
- { VERIFY (true); }
- catch(...)
- { VERIFY (false); }
-
- locale loc14(loc06, loc01, locale::none);
- VERIFY (loc14.name() == "fr_FR");
- VERIFY (loc14 == loc06);
-
- locale loc15(loc06, loc01, locale::collate);
- VERIFY (loc15.name() != "fr_FR");
- VERIFY (loc15.name() != "C");
- VERIFY (loc15.name() != "*");
- VERIFY (loc15.name() != loc09.name());
- VERIFY (loc15 != loc01);
- VERIFY (loc15 != loc06);
- VERIFY (loc15 != loc09);
- }
-}
-#endif // _GLIBCPP_USE___ENC_TRAITS
-
-// libstdc++/7222
-void test02()
-{
- bool test = true;
- std::locale loc_c1("C");
- std::locale loc_c2 ("C");
-
- std::locale loc_1("");
- std::locale loc_2("");
-
- VERIFY( loc_c1 == loc_c2 );
- VERIFY( loc_1 == loc_2 );
-}
-
-// libstdc++/7811
-void test03()
-{
- bool test = true;
-#ifdef _GLIBCPP_HAVE_SETENV
- const char* LC_ALL_orig = getenv("LC_ALL");
- if (!setenv("LC_ALL", "it_IT", 1))
- {
- std::locale loc("");
- VERIFY( loc.name() == "it_IT" );
- setenv("LC_ALL", LC_ALL_orig ? LC_ALL_orig : "", 1);
- }
-#endif
-}
-
-
-// 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_COLLATE_orig =
- getenv("LC_COLLATE") ? strdup(getenv("LC_COLLATE")) : "";
- const char* LC_TIME_orig =
- getenv("LC_TIME") ? strdup(getenv("LC_TIME")) : "";
- 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_COLLATE", "", 1);
- setenv("LC_TIME", "", 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_COLLATE=de_DE;"
- "LC_TIME=C;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_COLLATE=de_DE;"
- "LC_TIME=C;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_COLLATE=de_DE;LC_TIME=fr_FR;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_COLLATE=de_DE;LC_TIME=fr_FR;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_COLLATE=de_DE;LC_TIME=fr_FR;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_COLLATE", LC_COLLATE_orig ? LC_COLLATE_orig : "", 1);
- setenv("LC_TIME", LC_TIME_orig ? LC_TIME_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()
-{
- test00();
-
-#if _GLIBCPP_USE___ENC_TRAITS
- test01();
-#endif
-
- test02();
- test03();
- test04();
-
- return 0;
-}