OLD | NEW |
| (Empty) |
1 // { dg-require-namedlocale "" } | |
2 | |
3 // 2001-09-12 Benjamin Kosnik <bkoz@redhat.com> | |
4 | |
5 // Copyright (C) 2001, 2002, 2003, 2004, 2005, 2009 Free Software Foundation | |
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 double version | |
29 void test04() | |
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 // input less than frac_digits | |
42 const long double digits4 = -1.0; | |
43 | |
44 iterator_type end; | |
45 istringstream iss; | |
46 iss.imbue(loc_hk); | |
47 // cache the money_get facet | |
48 const money_get<char>& mon_get = use_facet<money_get<char> >(iss.getloc()); | |
49 | |
50 // now try with showbase, to get currency symbol in format | |
51 iss.setf(ios_base::showbase); | |
52 | |
53 iss.str("(HKD .01)"); | |
54 iterator_type is_it03(iss); | |
55 long double result3; | |
56 ios_base::iostate err03 = ios_base::goodbit; | |
57 mon_get.get(is_it03, end, true, iss, err03, result3); | |
58 VERIFY( result3 == digits4 ); | |
59 VERIFY( err03 == ios_base::eofbit ); | |
60 } | |
61 | |
62 int main() | |
63 { | |
64 test04(); | |
65 return 0; | |
66 } | |
OLD | NEW |