2 // Petter Urkedal <petter@matfys.lth.se>
4 // Copyright (C) 2000-2019 Free Software Foundation, Inc.
6 // This file is part of the GNU ISO C++ Library. This library is free
7 // software; you can redistribute it and/or modify it under the
8 // terms of the GNU General Public License as published by the
9 // Free Software Foundation; either version 3, or (at your option)
12 // This library is distributed in the hope that it will be useful,
13 // but WITHOUT ANY WARRANTY; without even the implied warranty of
14 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 // GNU General Public License for more details.
17 // You should have received a copy of the GNU General Public License along
18 // with this library; see the file COPYING3. If not see
19 // <http://www.gnu.org/licenses/>.
26 #include <testsuite_hooks.h>
30 inline bool flteq(R x
, R y
)
32 if (x
== R(0)) return y
== R(0);
33 else return std::fabs(x
-y
) < 1e-6*std::fabs(x
);
38 test_good(std::string str
, R x
, R y
)
42 std::istringstream
iss(str
);
45 VERIFY( flteq(z
.real(), x
) );
46 VERIFY( flteq(z
.imag(), y
) );
53 test_fail(std::string str
)
56 std::istringstream
iss(str
);
58 VERIFY( iss
.fail() && !iss
.bad() );
66 test_good
<R
>("(-1.1,3.7)#", -1.1, 3.7);
67 test_good
<R
>("( .7e6 , \n-3.1)#", .7e6
, -3.1);
68 test_good
<R
>("(\t0,-1)#", 0.0, -1.0);
69 test_good
<R
>("(-3.14)#", -3.14, 0.0);
70 test_good
<R
>("-.1#", -.1, 0.0);
71 test_good
<R
>(" ( -2.7e3 )#", -2.7e3
, 0.0);
72 test_good
<R
>(" -.1#", -.1, 0.0);
73 test_fail
<R
>("(a,1)");
75 test_fail
<R
>("(1,a)");
76 test_fail
<R
>("(1, )");
77 test_fail
<R
>("|1,1)");
78 test_fail
<R
>("(1|1)");
79 test_fail
<R
>("(1,1|");
88 complex<float> cf01(-1.1, -333.2);
91 string str
= ss
.str();
92 VERIFY( str
== "(-1.1,-333.2)" );
96 struct gnu_char_traits
: public std::char_traits
<char>
99 typedef std::basic_ostringstream
<char, gnu_char_traits
> gnu_sstream
;
100 template class std::basic_string
<char, gnu_char_traits
, std::allocator
<char> >;
104 // Construct locale with specialized facets.
105 typedef gnu_sstream::__num_put_type numput_type
;
106 typedef gnu_sstream::__num_get_type numget_type
;
107 std::locale loc_c
= std::locale::classic();
108 std::locale
loc_1(loc_c
, new numput_type
);
109 std::locale
loc_2(loc_1
, new numget_type
);
110 VERIFY( std::has_facet
<numput_type
>(loc_2
) );
111 VERIFY( std::has_facet
<numget_type
>(loc_2
) );
117 std::complex<double> x(3, 4);
119 VERIFY( sstr
.str() == "(3,4)" );
127 testall
<long double>();