| // { dg-require-namedlocale "" } |
| |
| // 2001-09-12 Benjamin Kosnik <bkoz@redhat.com> |
| |
| // Copyright (C) 2001, 2002, 2003, 2004, 2005 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, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, |
| // USA. |
| |
| // 22.2.6.1.1 money_get members |
| |
| #include <locale> |
| #include <sstream> |
| #include <testsuite_hooks.h> |
| |
| // test wstring version |
| void test02() |
| { |
| using namespace std; |
| typedef istreambuf_iterator<wchar_t> iterator_type; |
| |
| bool test __attribute__((unused)) = true; |
| |
| // basic construction |
| locale loc_c = locale::classic(); |
| locale loc_hk = locale("en_HK"); |
| VERIFY( loc_c != loc_hk ); |
| |
| // total EPA budget FY 2002 |
| const wstring digits1(L"720000000000"); |
| |
| // est. cost, national missile "defense", expressed as a loss in USD 2001 |
| const wstring digits2(L"-10000000000000"); |
| |
| // input less than frac_digits |
| const wstring digits4(L"-1"); |
| |
| iterator_type end; |
| wistringstream iss; |
| iss.imbue(loc_hk); |
| // cache the money_get facet |
| const money_get<wchar_t>& mon_get = use_facet<money_get<wchar_t> >(iss.getloc()); |
| |
| // now try with showbase, to get currency symbol in format |
| iss.setf(ios_base::showbase); |
| |
| iss.str(L"HK$7,200,000,000.00"); |
| iterator_type is_it09(iss); |
| wstring result9; |
| ios_base::iostate err09 = ios_base::goodbit; |
| mon_get.get(is_it09, end, false, iss, err09, result9); |
| VERIFY( result9 == digits1 ); |
| VERIFY( err09 == ios_base::eofbit ); |
| |
| iss.str(L"(HKD 100,000,000,000.00)"); |
| iterator_type is_it10(iss); |
| wstring result10; |
| ios_base::iostate err10 = ios_base::goodbit; |
| mon_get.get(is_it10, end, true, iss, err10, result10); |
| VERIFY( result10 == digits2 ); |
| VERIFY( err10 == ios_base::eofbit ); |
| |
| iss.str(L"(HKD .01)"); |
| iterator_type is_it11(iss); |
| wstring result11; |
| ios_base::iostate err11 = ios_base::goodbit; |
| mon_get.get(is_it11, end, true, iss, err11, result11); |
| VERIFY( result11 == digits4 ); |
| VERIFY( err11 == ios_base::eofbit ); |
| |
| // for the "en_HK" locale the parsing of the very same input streams must |
| // be successful without showbase too, since the symbol field appears in |
| // the first positions in the format and the symbol, when present, must be |
| // consumed. |
| iss.unsetf(ios_base::showbase); |
| |
| iss.str(L"HK$7,200,000,000.00"); |
| iterator_type is_it12(iss); |
| wstring result12; |
| ios_base::iostate err12 = ios_base::goodbit; |
| mon_get.get(is_it12, end, false, iss, err12, result12); |
| VERIFY( result12 == digits1 ); |
| VERIFY( err12 == ios_base::eofbit ); |
| |
| iss.str(L"(HKD 100,000,000,000.00)"); |
| iterator_type is_it13(iss); |
| wstring result13; |
| ios_base::iostate err13 = ios_base::goodbit; |
| mon_get.get(is_it13, end, true, iss, err13, result13); |
| VERIFY( result13 == digits2 ); |
| VERIFY( err13 == ios_base::eofbit ); |
| |
| iss.str(L"(HKD .01)"); |
| iterator_type is_it14(iss); |
| wstring result14; |
| ios_base::iostate err14 = ios_base::goodbit; |
| mon_get.get(is_it14, end, true, iss, err14, result14); |
| VERIFY( result14 == digits4 ); |
| VERIFY( err14 == ios_base::eofbit ); |
| } |
| |
| int main() |
| { |
| test02(); |
| return 0; |
| } |