1// { dg-require-namedlocale "" }
2
3// 2004-03-01  Paolo Carlini  <pcarlini@suse.de>
4
5// Copyright (C) 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// The grammar doesn't allow thousands separator at the beginning of a
30// string, neither two consecutive thousands separators.
31void test01()
32{
33  using namespace std;
34  bool test __attribute__((unused)) = true;
35
36  typedef istreambuf_iterator<wchar_t> iterator_type;
37
38  // basic construction
39  locale loc_c = locale::classic();
40  locale loc_de = locale("de_DE@euro");
41  VERIFY( loc_c != loc_de );
42
43  iterator_type end01, end02;
44  wistringstream iss;
45  iss.imbue(loc_de);
46  // cache the money_get facet
47  const money_get<wchar_t>& mon_get =
48    use_facet<money_get<wchar_t> >(iss.getloc());
49
50  iss.str(L".100");
51  iterator_type is_it01(iss);
52  long double result1;
53  ios_base::iostate err01 = ios_base::goodbit;
54  end01 = mon_get.get(is_it01, end01, true, iss, err01, result1);
55  VERIFY( err01 == ios_base::failbit );
56  VERIFY( *end01 == L'.' );
57
58  iss.str(L"30..0");
59  iterator_type is_it02(iss);
60  long double result2;
61  ios_base::iostate err02 = ios_base::goodbit;
62  end02 = mon_get.get(is_it02, end02, false, iss, err02, result2);
63  VERIFY( err02 == ios_base::failbit );
64  VERIFY( *end02 == L'.' );
65}
66
67int main()
68{
69  test01();
70  return 0;
71}
72