1// { dg-require-namedlocale "en_HK" } 2 3// 2001-09-12 Benjamin Kosnik <bkoz@redhat.com> 4 5// Copyright (C) 2001-2015 Free Software Foundation, Inc. 6// 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 3, or (at your option) 11// any later version. 12 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. 17 18// You should have received a copy of the GNU General Public License along 19// with this library; see the file COPYING3. If not see 20// <http://www.gnu.org/licenses/>. 21 22// 22.2.6.1.1 money_get members 23 24#include <locale> 25#include <sstream> 26#include <testsuite_hooks.h> 27 28// test string version 29void test02() 30{ 31 using namespace std; 32 typedef istreambuf_iterator<char> iterator_type; 33 34 bool test __attribute__((unused)) = true; 35 36 // basic construction 37 locale loc_c = locale::classic(); 38 locale loc_hk = locale("en_HK"); 39 VERIFY( loc_c != loc_hk ); 40 41 // total EPA budget FY 2002 42 const string digits1("720000000000"); 43 44 // est. cost, national missile "defense", expressed as a loss in USD 2001 45 const string digits2("-10000000000000"); 46 47 // input less than frac_digits 48 const string digits4("-1"); 49 50 iterator_type end; 51 istringstream iss; 52 iss.imbue(loc_hk); 53 // cache the money_get facet 54 const money_get<char>& mon_get = use_facet<money_get<char> >(iss.getloc()); 55 56 // now try with showbase, to get currency symbol in format 57 iss.setf(ios_base::showbase); 58 59 iss.str("HK$7,200,000,000.00"); 60 iterator_type is_it09(iss); 61 string result9; 62 ios_base::iostate err09 = ios_base::goodbit; 63 mon_get.get(is_it09, end, false, iss, err09, result9); 64 VERIFY( result9 == digits1 ); 65 VERIFY( err09 == ios_base::eofbit ); 66 67 iss.str("(HKD 100,000,000,000.00)"); 68 iterator_type is_it10(iss); 69 string result10; 70 ios_base::iostate err10 = ios_base::goodbit; 71 mon_get.get(is_it10, end, true, iss, err10, result10); 72 VERIFY( result10 == digits2 ); 73 VERIFY( err10 == ios_base::eofbit ); 74 75 iss.str("(HKD .01)"); 76 iterator_type is_it11(iss); 77 string result11; 78 ios_base::iostate err11 = ios_base::goodbit; 79 mon_get.get(is_it11, end, true, iss, err11, result11); 80 VERIFY( result11 == digits4 ); 81 VERIFY( err11 == ios_base::eofbit ); 82 83 // for the "en_HK" locale the parsing of the very same input streams must 84 // be successful without showbase too, since the symbol field appears in 85 // the first positions in the format and the symbol, when present, must be 86 // consumed. 87 iss.unsetf(ios_base::showbase); 88 89 iss.str("HK$7,200,000,000.00"); 90 iterator_type is_it12(iss); 91 string result12; 92 ios_base::iostate err12 = ios_base::goodbit; 93 mon_get.get(is_it12, end, false, iss, err12, result12); 94 VERIFY( result12 == digits1 ); 95 VERIFY( err12 == ios_base::eofbit ); 96 97 iss.str("(HKD 100,000,000,000.00)"); 98 iterator_type is_it13(iss); 99 string result13; 100 ios_base::iostate err13 = ios_base::goodbit; 101 mon_get.get(is_it13, end, true, iss, err13, result13); 102 VERIFY( result13 == digits2 ); 103 VERIFY( err13 == ios_base::eofbit ); 104 105 iss.str("(HKD .01)"); 106 iterator_type is_it14(iss); 107 string result14; 108 ios_base::iostate err14 = ios_base::goodbit; 109 mon_get.get(is_it14, end, true, iss, err14, result14); 110 VERIFY( result14 == digits4 ); 111 VERIFY( err14 == ios_base::eofbit ); 112} 113 114int main() 115{ 116 test02(); 117 return 0; 118} 119