1// { dg-require-namedlocale "" }
2
3// 2001-09-12 Benjamin Kosnik  <bkoz@redhat.com>
4
5// Copyright (C) 2001, 2002, 2003, 2004, 2005 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 2, 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 COPYING.  If not, write to the Free
20// Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
21// USA.
22
23// 22.2.6.1.1 money_get members
24
25#include <locale>
26#include <sstream>
27#include <testsuite_hooks.h>
28
29// test double version
30void test03()
31{
32  using namespace std;
33  typedef istreambuf_iterator<wchar_t> iterator_type;
34
35  bool test __attribute__((unused)) = true;
36
37  // basic construction
38  locale loc_c = locale::classic();
39  locale loc_de = locale("de_DE@euro");
40  VERIFY( loc_c != loc_de );
41
42  // total EPA budget FY 2002
43  const long double  digits1 = 720000000000.0;
44
45  iterator_type end;
46  wistringstream iss;
47  iss.imbue(loc_de);
48  // cache the money_get facet
49  const money_get<wchar_t>& mon_get = use_facet<money_get<wchar_t> >(iss.getloc());
50
51  iss.str(L"7.200.000.000,00 ");
52  iterator_type is_it01(iss);
53  long double result1;
54  ios_base::iostate err01 = ios_base::goodbit;
55  mon_get.get(is_it01, end, true, iss, err01, result1);
56  VERIFY( result1 == digits1 );
57  VERIFY( err01 == ios_base::eofbit );
58
59  iss.str(L"7.200.000.000,00 ");
60  iterator_type is_it02(iss);
61  long double result2;
62  ios_base::iostate err02 = ios_base::goodbit;
63  mon_get.get(is_it02, end, false, iss, err02, result2);
64  VERIFY( result2 == digits1 );
65  VERIFY( err02 == ios_base::eofbit );
66}
67
68int main()
69{
70  test03();
71  return 0;
72}
73