locale_facets.tcc (money_get::do_get(string_type&)): Thousands-sep are always optional...
[gcc.git] / libstdc++-v3 / testsuite / 22_locale / money_get / get / char / 13.cc
1 // 2004-02-05 Paolo Carlini <pcarlini@suse.de>
2
3 // Copyright (C) 2004 Free Software Foundation
4 //
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 2, or (at your option)
9 // any later version.
10
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
15
16 // You should have received a copy of the GNU General Public License along
17 // with this library; see the file COPYING. If not, write to the Free
18 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
19 // USA.
20
21 // 22.2.6.1.1 money_get members
22
23 #include <locale>
24 #include <sstream>
25 #include <testsuite_hooks.h>
26
27 // No thousands-sep allowed after the decimal-point.
28 void test01()
29 {
30 using namespace std;
31 bool test __attribute__((unused)) = true;
32
33 typedef istreambuf_iterator<char> iterator_type;
34
35 // basic construction
36 locale loc_c = locale::classic();
37 locale loc_de = __gnu_test::try_named_locale("de_DE@euro");
38 VERIFY( loc_c != loc_de );
39
40 iterator_type end01, end02;
41 istringstream iss;
42 iss.imbue(loc_de);
43 // cache the money_get facet
44 const money_get<char>& mon_get = use_facet<money_get<char> >(iss.getloc());
45
46 iss.str("500,1.0 ");
47 iterator_type is_it01(iss);
48 long double result1;
49 ios_base::iostate err01 = ios_base::goodbit;
50 end01 = mon_get.get(is_it01, end01, true, iss, err01, result1);
51 VERIFY( err01 == ios_base::failbit );
52 VERIFY( *end01 == '.' );
53
54 iss.str("500,1.0 ");
55 iterator_type is_it02(iss);
56 long double result2;
57 ios_base::iostate err02 = ios_base::goodbit;
58 end02 = mon_get.get(is_it02, end02, false, iss, err02, result2);
59 VERIFY( err02 == ios_base::failbit );
60 VERIFY( *end02 == '.' );
61 }
62
63 int main()
64 {
65 test01();
66 return 0;
67 }