1 // { dg-require-namedlocale "" }
3 // 2001-08-27 Benjamin Kosnik <bkoz@redhat.com>
5 // Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation
7 // This file is part of the GNU ISO C++ Library. This library is free
8 // software; you can redistribute it and/or modify it under the
9 // terms of the GNU General Public License as published by the
10 // Free Software Foundation; either version 2, or (at your option)
13 // This library is distributed in the hope that it will be useful,
14 // but WITHOUT ANY WARRANTY; without even the implied warranty of
15 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 // GNU General Public License for more details.
18 // You should have received a copy of the GNU General Public License along
19 // with this library; see the file COPYING. If not, write to the Free
20 // Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
23 // 22.2.6.2.1 money_put members
27 #include <testsuite_hooks.h>
29 // test wstring version
33 typedef ostreambuf_iterator
<wchar_t> iterator_type
;
35 bool test
__attribute__((unused
)) = true;
38 locale loc_c
= locale::classic();
39 locale loc_de
= locale("de_DE@euro");
40 VERIFY( loc_c
!= loc_de
);
42 // sanity check the data is correct.
45 // total EPA budget FY 2002
46 const wstring
digits1(L
"720000000000");
48 // input less than frac_digits
49 const wstring
digits2(L
"-1");
51 // cache the money_put facet
54 const money_put
<wchar_t>& mon_put
=
55 use_facet
<money_put
<wchar_t> >(oss
.getloc());
57 iterator_type os_it01
= mon_put
.put(oss
.rdbuf(), true, oss
, L
' ', digits1
);
58 wstring result1
= oss
.str();
59 VERIFY( result1
== L
"7.200.000.000,00 " );
62 iterator_type os_it02
= mon_put
.put(oss
.rdbuf(), false, oss
, L
' ', digits1
);
63 wstring result2
= oss
.str();
64 VERIFY( result2
== L
"7.200.000.000,00 " );
66 // intl and non-intl versions should be the same.
67 VERIFY( result1
== result2
);
69 // now try with showbase, to get currency symbol in format
70 oss
.setf(ios_base::showbase
);
73 iterator_type os_it03
= mon_put
.put(oss
.rdbuf(), true, oss
, L
' ', digits1
);
74 wstring result3
= oss
.str();
75 VERIFY( result3
== L
"7.200.000.000,00 EUR " );
78 iterator_type os_it04
= mon_put
.put(oss
.rdbuf(), false, oss
, L
' ', digits1
);
79 wstring result4
= oss
.str();
80 VERIFY( result4
== L
"7.200.000.000,00 \x20ac" );
82 // intl and non-intl versions should be different.
83 VERIFY( result3
!= result4
);
84 VERIFY( result3
!= result1
);
85 VERIFY( result4
!= result2
);
87 oss
.unsetf(ios_base::showbase
);
89 // test io.width() > length
90 // test various fill strategies
93 iterator_type os_it10
= mon_put
.put(oss
.rdbuf(), true, oss
, L
'*', digits2
);
94 wstring result10
= oss
.str();
95 VERIFY( result10
== L
"***************-,01*" );
99 oss
.setf(ios_base::internal
);
100 iterator_type os_it11
= mon_put
.put(oss
.rdbuf(), true, oss
, L
'*', digits2
);
101 wstring result11
= oss
.str();
102 VERIFY( result11
== L
"-,01****************" );