libstdc++-v3/testsuite/22_locale/money_put_members_char.cc - gcc - Git at Google

 // 2001-08-27 Benjamin Kosnik  <bkoz@redhat.com>

 // Copyright (C) 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.2.6.2.1 money_put members

 #include <locale>
 #include <sstream>
 #include <testsuite_hooks.h>

 // XXX This test is not working for non-glibc locale models.
 // { dg-do run { xfail *-*-* } }

 // test string version
 void test01()
 {
   using namespace std;
   typedef money_base::part part;
   typedef money_base::pattern pattern;
   typedef ostreambuf_iterator<char> iterator_type;

   bool test = true;

   // basic construction
   locale loc_c = locale::classic();
   locale loc_hk("en_HK");
   locale loc_fr("fr_FR@euro");
   locale loc_de("de_DE@euro");
   VERIFY( loc_c != loc_de );
   VERIFY( loc_hk != loc_fr );
   VERIFY( loc_hk != loc_de );
   VERIFY( loc_de != loc_fr );

   // cache the moneypunct facets
   typedef moneypunct<char, true> __money_true;
   typedef moneypunct<char, false> __money_false;
   const __money_true& monpunct_c_t = use_facet<__money_true>(loc_c);
   const __money_true& monpunct_de_t = use_facet<__money_true>(loc_de);
   const __money_false& monpunct_c_f = use_facet<__money_false>(loc_c);
   const __money_false& monpunct_de_f = use_facet<__money_false>(loc_de);
   const __money_true& monpunct_hk_t = use_facet<__money_true>(loc_hk);
   const __money_false& monpunct_hk_f = use_facet<__money_false>(loc_hk);

   // sanity check the data is correct.
   const string empty;

   // total EPA budget FY 2002
   const string digits1("720000000000");

   // est. cost, national missile "defense", expressed as a loss in USD 2001
   const string digits2("-10000000000000");

   // not valid input
   const string digits3("-A");

   // input less than frac_digits
   const string digits4("-1");


   ostringstream oss;
   oss.imbue(loc_de);
   // cache the money_put facet
   const money_put<char>& mon_put = use_facet<money_put<char> >(oss.getloc());


   iterator_type os_it01 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
   string result1 = oss.str();
   VERIFY( result1 == "7.200.000.000,00 ");

   oss.str(empty);
   iterator_type os_it02 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
   string result2 = oss.str();
   VERIFY( result2 == "7.200.000.000,00 ");

   // intl and non-intl versions should be the same.
   VERIFY( result1 == result2 );

   // now try with showbase, to get currency symbol in format
   oss.setf(ios_base::showbase);

   oss.str(empty);
   iterator_type os_it03 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
   string result3 = oss.str();
   VERIFY( result3 == "7.200.000.000,00 EUR ");

   oss.str(empty);
   iterator_type os_it04 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
   string result4 = oss.str();
   VERIFY( result4 == "7.200.000.000,00 \244");

   // intl and non-intl versions should be different.
   VERIFY( result3 != result4 );
   VERIFY( result3 != result1 );
   VERIFY( result4 != result2 );

   // test sign of more than one digit, say hong kong.
   oss.imbue(loc_hk);
   oss.str(empty);
   iterator_type os_it05 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
   string result5 = oss.str();
   VERIFY( result5 == "HK$7,200,000,000.00");

   oss.str(empty);
   iterator_type os_it06 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits2);
   string result6 = oss.str();
   VERIFY( result6 == "(HKD 100,000,000,000.00)");

   // test one-digit formats without zero padding
   oss.imbue(loc_c);
   oss.str(empty);
   iterator_type os_it07 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits4);
   string result7 = oss.str();
   VERIFY( result7 == "1");

   // test one-digit formats with zero padding, zero frac widths
   oss.imbue(loc_hk);
   oss.str(empty);
   iterator_type os_it08 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits4);
   string result8 = oss.str();
   VERIFY( result8 == "(HKD .01)");

   oss.unsetf(ios_base::showbase);

   // test bunk input
   oss.str(empty);
   iterator_type os_it09 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits3);
   string result9 = oss.str();
   VERIFY( result9 == "");

   // test io.width() > length
   // test various fill strategies
   oss.imbue(loc_de);

   oss.str(empty);
   oss.width(20);
   iterator_type os_it10 = mon_put.put(oss.rdbuf(), true, oss, '*', digits4);
   string result10 = oss.str();
   VERIFY( result10 == "***************-,01*");

   oss.str(empty);
   oss.width(20);
   oss.setf(ios_base::internal);
   iterator_type os_it11 = mon_put.put(oss.rdbuf(), true, oss, '*', digits4);
   string result11 = oss.str();
   VERIFY( result11 == "-,01****************");
 }

 // test double version
 void test02()
 {
   using namespace std;
   typedef money_base::part part;
   typedef money_base::pattern pattern;
   typedef ostreambuf_iterator<char> iterator_type;

   bool test = true;

   // basic construction
   locale loc_c = locale::classic();
   locale loc_hk("en_HK");
   locale loc_fr("fr_FR@euro");
   locale loc_de("de_DE@euro");
   VERIFY( loc_c != loc_de );
   VERIFY( loc_hk != loc_fr );
   VERIFY( loc_hk != loc_de );
   VERIFY( loc_de != loc_fr );

   // cache the moneypunct facets
   typedef moneypunct<char, true> __money_true;
   typedef moneypunct<char, false> __money_false;
   const __money_true& monpunct_c_t = use_facet<__money_true>(loc_c);
   const __money_true& monpunct_de_t = use_facet<__money_true>(loc_de);
   const __money_false& monpunct_c_f = use_facet<__money_false>(loc_c);
   const __money_false& monpunct_de_f = use_facet<__money_false>(loc_de);
   const __money_true& monpunct_hk_t = use_facet<__money_true>(loc_hk);
   const __money_false& monpunct_hk_f = use_facet<__money_false>(loc_hk);

   // sanity check the data is correct.
   const string empty;

   // total EPA budget FY 2002
   const long double  digits1 = 720000000000.0;

   // est. cost, national missile "defense", expressed as a loss in USD 2001
   const long double digits2 = -10000000000000.0;

   // input less than frac_digits
   const long double digits4 = -1.0;


   ostringstream oss;
   oss.imbue(loc_de);
   // cache the money_put facet
   const money_put<char>& mon_put = use_facet<money_put<char> >(oss.getloc());


   iterator_type os_it01 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
   string result1 = oss.str();
   VERIFY( result1 == "7.200.000.000,00 ");

   oss.str(empty);
   iterator_type os_it02 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
   string result2 = oss.str();
   VERIFY( result2 == "7.200.000.000,00 ");

   // intl and non-intl versions should be the same.
   VERIFY( result1 == result2 );

   // now try with showbase, to get currency symbol in format
   oss.setf(ios_base::showbase);

   oss.str(empty);
   iterator_type os_it03 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
   string result3 = oss.str();
   VERIFY( result3 == "7.200.000.000,00 EUR ");

   oss.str(empty);
   iterator_type os_it04 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
   string result4 = oss.str();
   VERIFY( result4 == "7.200.000.000,00 \244");

   // intl and non-intl versions should be different.
   VERIFY( result3 != result4 );
   VERIFY( result3 != result1 );
   VERIFY( result4 != result2 );
 }

 void test03()
 {
   using namespace std;
   bool test = true;

   // Check money_put works with other iterators besides streambuf
   // output iterators. (As long as output_iterator requirements are met.)
   typedef string::iterator iter_type;
   typedef money_put<char, iter_type> mon_put_type;
   const ios_base::iostate goodbit = ios_base::goodbit;
   const ios_base::iostate eofbit = ios_base::eofbit;
   ios_base::iostate err = goodbit;
   const locale loc_c = locale::classic();
   // woman, art, thief (stole the blues)
   const string str("1943 Janis Joplin");
   const long double ld = 1943.0;
   const string x(str.size(), 'x'); // have to have allocated string!
   string res;

   ostringstream oss;
   oss.imbue(locale(loc_c, new mon_put_type));

   // Iterator advanced, state, output.
   const mon_put_type& mp = use_facet<mon_put_type>(oss.getloc());

   // 01 string
   res = x;
   iter_type ret1 = mp.put(res.begin(), false, oss, ' ', str);
   string sanity1(res.begin(), ret1);
   VERIFY( err == goodbit );
   VERIFY( res == "1943xxxxxxxxxxxxx" );
   VERIFY( sanity1 == "1943" );

   // 02 long double
   res = x;
   iter_type ret2 = mp.put(res.begin(), false, oss, ' ', ld);
   string sanity2(res.begin(), ret2);
   VERIFY( err == goodbit );
   VERIFY( res == "1943xxxxxxxxxxxxx" );
   VERIFY( sanity2 == "1943" );
 }

 // libstdc++/5280
 void test04()
 {
 #ifdef _GLIBCPP_HAVE_SETENV
   // Set the global locale to non-"C".
   std::locale loc_de("de_DE@euro");
   std::locale::global(loc_de);

   // Set LANG environment variable to de_DE@euro.
   const char* oldLANG = getenv("LANG");
   if (!setenv("LANG", "de_DE@euro", 1))
     {
       test01();
       test02();
       test03();
       setenv("LANG", oldLANG ? oldLANG : "", 1);
     }
 #endif
 }

 struct My_money_io : public std::moneypunct<char,false>
 {
   char_type do_decimal_point() const { return '.'; }
   char_type do_thousands_sep() const { return ','; }
   std::string do_grouping() const { return "\003"; }

   std::string do_negative_sign() const { return "()"; }

   int do_frac_digits() const { return 2; }

   pattern do_neg_format() const
   {
     pattern pat = { { symbol, space, sign, value } };
     return pat;
   }
 };

 // libstdc++/5708
 void test05()
 {
   using namespace std;
   typedef ostreambuf_iterator<char> OutIt;

   locale loc(locale::classic(), new My_money_io);

   bool intl = false;

   string val("-123456");
   const money_put<char,OutIt>& mp  =
     use_facet<money_put<char, OutIt> >(loc);

   ostringstream fmt;
   fmt.imbue(loc);
   OutIt out(fmt);
   mp.put(out,intl,fmt,'*',val);
   VERIFY( fmt.str() == "*(1,234.56)" );
 }

 struct My_money_io_2 : public std::moneypunct<char,false>
 {
   char_type do_thousands_sep() const { return ','; }
   std::string do_grouping() const { return "\001"; }
 };

 // Make sure we can output a very big amount of money (with grouping too).
 void test06()
 {
   using namespace std;
   typedef ostreambuf_iterator<char> OutIt;

   locale loc(locale::classic(), new My_money_io_2);

   bool intl = false;

   long double val = 1.0e50L;
   const money_put<char,OutIt>& mp  =
     use_facet<money_put<char, OutIt> >(loc);

   ostringstream fmt;
   fmt.imbue(loc);
   OutIt out(fmt);
   mp.put(out,intl,fmt,'*',val);
   VERIFY( fmt );
 }

 // http://gcc.gnu.org/ml/libstdc++/2002-05/msg00038.html
 void test07()
 {
   bool test = true;

   const char* tentLANG = std::setlocale(LC_ALL, "ja_JP.eucjp");
   if (tentLANG != NULL)
     {
       std::string preLANG = tentLANG;
       test01();
       test02();
       test03();
       test05();
       test06();
       std::string postLANG = std::setlocale(LC_ALL, NULL);
       VERIFY( preLANG == postLANG );
     }
 }

 int main()
 {
   test01();
   test02();
   test03();
   test04();
   test05();
   test06();
   test07();
   return 0;
 }
	// 2001-08-27 Benjamin Kosnik <bkoz@redhat.com>

	// Copyright (C) 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.2.6.2.1 money_put members

	#include <locale>
	#include <sstream>
	#include <testsuite_hooks.h>

	// XXX This test is not working for non-glibc locale models.
	// { dg-do run { xfail --* } }

	// test string version
	void test01()
	{
	using namespace std;
	typedef money_base::part part;
	typedef money_base::pattern pattern;
	typedef ostreambuf_iterator<char> iterator_type;

	bool test = true;

	// basic construction
	locale loc_c = locale::classic();
	locale loc_hk("en_HK");
	locale loc_fr("fr_FR@euro");
	locale loc_de("de_DE@euro");
	VERIFY( loc_c != loc_de );
	VERIFY( loc_hk != loc_fr );
	VERIFY( loc_hk != loc_de );
	VERIFY( loc_de != loc_fr );

	// cache the moneypunct facets
	typedef moneypunct<char, true> __money_true;
	typedef moneypunct<char, false> __money_false;
	const __money_true& monpunct_c_t = use_facet<__money_true>(loc_c);
	const __money_true& monpunct_de_t = use_facet<__money_true>(loc_de);
	const __money_false& monpunct_c_f = use_facet<__money_false>(loc_c);
	const __money_false& monpunct_de_f = use_facet<__money_false>(loc_de);
	const __money_true& monpunct_hk_t = use_facet<__money_true>(loc_hk);
	const __money_false& monpunct_hk_f = use_facet<__money_false>(loc_hk);

	// sanity check the data is correct.
	const string empty;

	// total EPA budget FY 2002
	const string digits1("720000000000");

	// est. cost, national missile "defense", expressed as a loss in USD 2001
	const string digits2("-10000000000000");

	// not valid input
	const string digits3("-A");

	// input less than frac_digits
	const string digits4("-1");


	ostringstream oss;
	oss.imbue(loc_de);
	// cache the money_put facet
	const money_put<char>& mon_put = use_facet<money_put<char> >(oss.getloc());


	iterator_type os_it01 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
	string result1 = oss.str();
	VERIFY( result1 == "7.200.000.000,00 ");

	oss.str(empty);
	iterator_type os_it02 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
	string result2 = oss.str();
	VERIFY( result2 == "7.200.000.000,00 ");

	// intl and non-intl versions should be the same.
	VERIFY( result1 == result2 );

	// now try with showbase, to get currency symbol in format
	oss.setf(ios_base::showbase);

	oss.str(empty);
	iterator_type os_it03 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
	string result3 = oss.str();
	VERIFY( result3 == "7.200.000.000,00 EUR ");

	oss.str(empty);
	iterator_type os_it04 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
	string result4 = oss.str();
	VERIFY( result4 == "7.200.000.000,00 \244");

	// intl and non-intl versions should be different.
	VERIFY( result3 != result4 );
	VERIFY( result3 != result1 );
	VERIFY( result4 != result2 );

	// test sign of more than one digit, say hong kong.
	oss.imbue(loc_hk);
	oss.str(empty);
	iterator_type os_it05 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
	string result5 = oss.str();
	VERIFY( result5 == "HK$7,200,000,000.00");

	oss.str(empty);
	iterator_type os_it06 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits2);
	string result6 = oss.str();
	VERIFY( result6 == "(HKD 100,000,000,000.00)");

	// test one-digit formats without zero padding
	oss.imbue(loc_c);
	oss.str(empty);
	iterator_type os_it07 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits4);
	string result7 = oss.str();
	VERIFY( result7 == "1");

	// test one-digit formats with zero padding, zero frac widths
	oss.imbue(loc_hk);
	oss.str(empty);
	iterator_type os_it08 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits4);
	string result8 = oss.str();
	VERIFY( result8 == "(HKD .01)");

	oss.unsetf(ios_base::showbase);

	// test bunk input
	oss.str(empty);
	iterator_type os_it09 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits3);
	string result9 = oss.str();
	VERIFY( result9 == "");

	// test io.width() > length
	// test various fill strategies
	oss.imbue(loc_de);

	oss.str(empty);
	oss.width(20);
	iterator_type os_it10 = mon_put.put(oss.rdbuf(), true, oss, '*', digits4);
	string result10 = oss.str();
	VERIFY( result10 == "**************-,01");

	oss.str(empty);
	oss.width(20);
	oss.setf(ios_base::internal);
	iterator_type os_it11 = mon_put.put(oss.rdbuf(), true, oss, '*', digits4);
	string result11 = oss.str();
	VERIFY( result11 == "-,01****************");
	}

	// test double version
	void test02()
	{
	using namespace std;
	typedef money_base::part part;
	typedef money_base::pattern pattern;
	typedef ostreambuf_iterator<char> iterator_type;

	bool test = true;

	// basic construction
	locale loc_c = locale::classic();
	locale loc_hk("en_HK");
	locale loc_fr("fr_FR@euro");
	locale loc_de("de_DE@euro");
	VERIFY( loc_c != loc_de );
	VERIFY( loc_hk != loc_fr );
	VERIFY( loc_hk != loc_de );
	VERIFY( loc_de != loc_fr );

	// cache the moneypunct facets
	typedef moneypunct<char, true> __money_true;
	typedef moneypunct<char, false> __money_false;
	const __money_true& monpunct_c_t = use_facet<__money_true>(loc_c);
	const __money_true& monpunct_de_t = use_facet<__money_true>(loc_de);
	const __money_false& monpunct_c_f = use_facet<__money_false>(loc_c);
	const __money_false& monpunct_de_f = use_facet<__money_false>(loc_de);
	const __money_true& monpunct_hk_t = use_facet<__money_true>(loc_hk);
	const __money_false& monpunct_hk_f = use_facet<__money_false>(loc_hk);

	// sanity check the data is correct.
	const string empty;

	// total EPA budget FY 2002
	const long double digits1 = 720000000000.0;

	// est. cost, national missile "defense", expressed as a loss in USD 2001
	const long double digits2 = -10000000000000.0;

	// input less than frac_digits
	const long double digits4 = -1.0;


	ostringstream oss;
	oss.imbue(loc_de);
	// cache the money_put facet
	const money_put<char>& mon_put = use_facet<money_put<char> >(oss.getloc());


	iterator_type os_it01 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
	string result1 = oss.str();
	VERIFY( result1 == "7.200.000.000,00 ");

	oss.str(empty);
	iterator_type os_it02 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
	string result2 = oss.str();
	VERIFY( result2 == "7.200.000.000,00 ");

	// intl and non-intl versions should be the same.
	VERIFY( result1 == result2 );

	// now try with showbase, to get currency symbol in format
	oss.setf(ios_base::showbase);

	oss.str(empty);
	iterator_type os_it03 = mon_put.put(oss.rdbuf(), true, oss, ' ', digits1);
	string result3 = oss.str();
	VERIFY( result3 == "7.200.000.000,00 EUR ");

	oss.str(empty);
	iterator_type os_it04 = mon_put.put(oss.rdbuf(), false, oss, ' ', digits1);
	string result4 = oss.str();
	VERIFY( result4 == "7.200.000.000,00 \244");

	// intl and non-intl versions should be different.
	VERIFY( result3 != result4 );
	VERIFY( result3 != result1 );
	VERIFY( result4 != result2 );
	}

	void test03()
	{
	using namespace std;
	bool test = true;

	// Check money_put works with other iterators besides streambuf
	// output iterators. (As long as output_iterator requirements are met.)
	typedef string::iterator iter_type;
	typedef money_put<char, iter_type> mon_put_type;
	const ios_base::iostate goodbit = ios_base::goodbit;
	const ios_base::iostate eofbit = ios_base::eofbit;
	ios_base::iostate err = goodbit;
	const locale loc_c = locale::classic();
	// woman, art, thief (stole the blues)
	const string str("1943 Janis Joplin");
	const long double ld = 1943.0;
	const string x(str.size(), 'x'); // have to have allocated string!
	string res;

	ostringstream oss;
	oss.imbue(locale(loc_c, new mon_put_type));

	// Iterator advanced, state, output.
	const mon_put_type& mp = use_facet<mon_put_type>(oss.getloc());

	// 01 string
	res = x;
	iter_type ret1 = mp.put(res.begin(), false, oss, ' ', str);
	string sanity1(res.begin(), ret1);
	VERIFY( err == goodbit );
	VERIFY( res == "1943xxxxxxxxxxxxx" );
	VERIFY( sanity1 == "1943" );

	// 02 long double
	res = x;
	iter_type ret2 = mp.put(res.begin(), false, oss, ' ', ld);
	string sanity2(res.begin(), ret2);
	VERIFY( err == goodbit );
	VERIFY( res == "1943xxxxxxxxxxxxx" );
	VERIFY( sanity2 == "1943" );
	}

	// libstdc++/5280
	void test04()
	{
	#ifdef _GLIBCPP_HAVE_SETENV
	// Set the global locale to non-"C".
	std::locale loc_de("de_DE@euro");
	std::locale::global(loc_de);

	// Set LANG environment variable to de_DE@euro.
	const char* oldLANG = getenv("LANG");
	if (!setenv("LANG", "de_DE@euro", 1))
	{
	test01();
	test02();
	test03();
	setenv("LANG", oldLANG ? oldLANG : "", 1);
	}
	#endif
	}

	struct My_money_io : public std::moneypunct<char,false>
	{
	char_type do_decimal_point() const { return '.'; }
	char_type do_thousands_sep() const { return ','; }
	std::string do_grouping() const { return "\003"; }

	std::string do_negative_sign() const { return "()"; }

	int do_frac_digits() const { return 2; }

	pattern do_neg_format() const
	{
	pattern pat = { { symbol, space, sign, value } };
	return pat;
	}
	};

	// libstdc++/5708
	void test05()
	{
	using namespace std;
	typedef ostreambuf_iterator<char> OutIt;

	locale loc(locale::classic(), new My_money_io);

	bool intl = false;

	string val("-123456");
	const money_put<char,OutIt>& mp =
	use_facet<money_put<char, OutIt> >(loc);

	ostringstream fmt;
	fmt.imbue(loc);
	OutIt out(fmt);
	mp.put(out,intl,fmt,'*',val);
	VERIFY( fmt.str() == "*(1,234.56)" );
	}

	struct My_money_io_2 : public std::moneypunct<char,false>
	{
	char_type do_thousands_sep() const { return ','; }
	std::string do_grouping() const { return "\001"; }
	};

	// Make sure we can output a very big amount of money (with grouping too).
	void test06()
	{
	using namespace std;
	typedef ostreambuf_iterator<char> OutIt;

	locale loc(locale::classic(), new My_money_io_2);

	bool intl = false;

	long double val = 1.0e50L;
	const money_put<char,OutIt>& mp =
	use_facet<money_put<char, OutIt> >(loc);

	ostringstream fmt;
	fmt.imbue(loc);
	OutIt out(fmt);
	mp.put(out,intl,fmt,'*',val);
	VERIFY( fmt );
	}

	// http://gcc.gnu.org/ml/libstdc++/2002-05/msg00038.html
	void test07()
	{
	bool test = true;

	const char* tentLANG = std::setlocale(LC_ALL, "ja_JP.eucjp");
	if (tentLANG != NULL)
	{
	std::string preLANG = tentLANG;
	test01();
	test02();
	test03();
	test05();
	test06();
	std::string postLANG = std::setlocale(LC_ALL, NULL);
	VERIFY( preLANG == postLANG );
	}
	}

	int main()
	{
	test01();
	test02();
	test03();
	test04();
	test05();
	test06();
	test07();
	return 0;
	}