| /*************************************************************************** |
| * |
| * 22.locale.money.put.cpp - tests exercising the std::money_put facet |
| * |
| * $Id$ |
| * |
| *************************************************************************** |
| * |
| * Licensed to the Apache Software Foundation (ASF) under one or more |
| * contributor license agreements. See the NOTICE file distributed |
| * with this work for additional information regarding copyright |
| * ownership. The ASF licenses this file to you under the Apache |
| * License, Version 2.0 (the "License"); you may not use this file |
| * except in compliance with the License. You may obtain a copy of |
| * the License at |
| * |
| * http://www.apache.org/licenses/LICENSE-2.0 |
| * |
| * Unless required by applicable law or agreed to in writing, software |
| * distributed under the License is distributed on an "AS IS" BASIS, |
| * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or |
| * implied. See the License for the specific language governing |
| * permissions and limitations under the License. |
| * |
| * Copyright 2001-2006 Rogue Wave Software. |
| * |
| **************************************************************************/ |
| |
| #include <ios> |
| #include <locale> |
| #include <cstdio> // for sprintf() |
| |
| #include <rw_cmdopt.h> // for rw_enabled() |
| #include <rw_driver.h> // for rw_assert(), rw_test(), ... |
| #include <rw_valcmp.h> // for rw_strncmp() |
| |
| /**************************************************************************/ |
| |
| // set to non-zero value when grouping shouldn't be exercised |
| static int no_grouping; |
| |
| // set to non-zero value when the basic_string overloads |
| // of moneY-put::put() shouldn't be exercised |
| static int no_basic_string; |
| |
| /**************************************************************************/ |
| |
| template <class charT, bool Intl> |
| struct Punct: std::moneypunct<charT, Intl> |
| { |
| typedef typename std::moneypunct<charT>::char_type char_type; |
| typedef typename std::moneypunct<charT>::string_type string_type; |
| |
| static char_type decimal_point_; |
| static char_type thousands_sep_; |
| static const char *grouping_; |
| static const char_type *curr_symbol_; |
| static const char_type *positive_sign_; |
| static const char_type *negative_sign_; |
| static std::money_base::pattern pos_format_; |
| static std::money_base::pattern neg_format_; |
| static int frac_digits_; |
| |
| static int n_thousands_sep_; // number of calls to do_thousands_sep() |
| |
| Punct (): std::moneypunct<charT>(1) { } |
| |
| char_type do_decimal_point () const { |
| return decimal_point_; |
| } |
| |
| int do_frac_digits () const { |
| return frac_digits_; |
| } |
| |
| virtual string_type do_curr_symbol () const { |
| return curr_symbol_ ? curr_symbol_ : string_type (); |
| } |
| |
| virtual std::string do_grouping () const { |
| return grouping_; |
| } |
| |
| virtual char_type do_thousands_sep () const { |
| ++n_thousands_sep_; |
| return thousands_sep_; |
| } |
| |
| virtual string_type do_positive_sign () const { |
| return positive_sign_ ? positive_sign_ : string_type (); |
| } |
| |
| virtual string_type do_negative_sign () const { |
| return negative_sign_ ? negative_sign_ : string_type (); |
| } |
| |
| virtual std::money_base::pattern do_pos_format () const { |
| return pos_format_; |
| } |
| |
| virtual std::money_base::pattern do_neg_format () const { |
| return neg_format_; |
| } |
| }; |
| |
| template <class charT, bool Intl> |
| const char* |
| Punct<charT, Intl>::grouping_ = ""; |
| |
| template <class charT, bool Intl> |
| typename Punct<charT, Intl>::char_type |
| Punct<charT, Intl>::decimal_point_ = ':'; |
| |
| template <class charT, bool Intl> |
| typename Punct<charT, Intl>::char_type |
| Punct<charT, Intl>::thousands_sep_ = ';'; |
| |
| template <class charT, bool Intl> |
| const typename Punct<charT, Intl>::char_type* |
| Punct<charT, Intl>::curr_symbol_; |
| |
| template <class charT, bool Intl> |
| const typename Punct<charT, Intl>::char_type* |
| Punct<charT, Intl>::positive_sign_; |
| |
| template <class charT, bool Intl> |
| const typename Punct<charT, Intl>::char_type* |
| Punct<charT, Intl>::negative_sign_; |
| |
| template <class charT, bool Intl> |
| std::money_base::pattern |
| Punct<charT, Intl>::pos_format_ = { { |
| std::money_base::symbol, |
| std::money_base::sign, |
| std::money_base::none, |
| std::money_base::value |
| } }; |
| |
| template <class charT, bool Intl> |
| std::money_base::pattern |
| Punct<charT, Intl>::neg_format_ = { { |
| std::money_base::symbol, |
| std::money_base::sign, |
| std::money_base::none, |
| std::money_base::value |
| } }; |
| |
| template <class charT, bool Intl> |
| int |
| Punct<charT, Intl>::n_thousands_sep_; |
| |
| template <class charT, bool Intl> |
| int |
| Punct<charT, Intl>::frac_digits_; |
| |
| /**************************************************************************/ |
| |
| template <class charT> |
| struct Ios: std::basic_ios<charT> |
| { |
| Ios () { this->init (0); } |
| }; |
| |
| template <class charT> |
| struct MoneyPut: std::money_put<charT, charT*> |
| { |
| // default ctor defined in order to make it possible |
| // to define const objects of the type w/o explictly |
| // initializing them |
| typedef std::money_put<charT, charT*> Base; |
| MoneyPut (): Base () { /* no-op */ } |
| }; |
| |
| /**************************************************************************/ |
| |
| bool test_neg_zero; |
| |
| /**************************************************************************/ |
| |
| std::money_base::pattern |
| set_pattern (const char *format) |
| { |
| std::money_base::pattern pat; |
| |
| for (unsigned i = 0; i != sizeof pat.field / sizeof *pat.field; ++i) { |
| switch (format [i]) { |
| case '\0': case '@': pat.field [i] = std::money_base::none; break; |
| case '\1': case ' ': pat.field [i] = std::money_base::space; break; |
| case '\2': case '$': pat.field [i] = std::money_base::symbol; break; |
| case '\3': case '-': pat.field [i] = std::money_base::sign; break; |
| case '\4': case '1': pat.field [i] = std::money_base::value; break; |
| default: |
| _RWSTD_ASSERT (!!"bad format specifier"); |
| } |
| } |
| |
| return pat; |
| } |
| |
| |
| template <class charT> |
| int type_test (int lineno, |
| charT /* unused */, |
| long double val /* value to format */, |
| const char *str /* expected result */, |
| char fill = ' ', |
| int flags = 0, |
| int frac_digits = 0, |
| int width = 0, |
| const char *format = 0 /* pattern or printf() format */, |
| const char *grouping = 0) |
| { |
| if (!rw_enabled (lineno)) { |
| rw_note (0, __FILE__, __LINE__, "test on line %d disabled", lineno); |
| return 0; |
| } |
| |
| static const char* const cname = 1 < sizeof (charT) ? "wchar_t" : "char"; |
| |
| static int i = 0; // assertion number per specialization of type_test() |
| |
| if (!i) { |
| rw_info (0, 0, 0, "std::money_put<%s>::put(ostreambuf_iterator" |
| "<%s>, bool, ios_base, %s, long double)", |
| cname, cname, cname); |
| |
| rw_info (0, 0, 0, "std::money_put<%s>::put(ostreambuf_iterator" |
| "<%s>, bool, ios_base, %s, " |
| "const basic_string<%s>&))", |
| cname, cname, cname, cname); |
| } |
| |
| ////////////////////////////////////////////////////////////////// |
| // exercise put (..., long double) overload |
| |
| int nfail = 0; // number of failed assertions |
| |
| // unless 0, or unless it starts with '%', the `format' argument |
| // is treated as a money_base::pattern string; otherwise the |
| // default pattern is used |
| |
| // default format as in locale ("C") |
| const char *fmt_pat = !format || *format == '%' ? "\2\3\4\0" : format; |
| |
| if (!grouping) { |
| // default grouping as in locale ("C") |
| grouping = ""; |
| } |
| |
| const Punct<charT, false> pun; |
| |
| // take care to initialize Punct static data before installing |
| // the facet in case locale or the base facet calls the overridden |
| // virtuals early to cache the results |
| pun.grouping_ = grouping; |
| pun.frac_digits_ = frac_digits; |
| |
| if (val < 0.0) { |
| pun.neg_format_ = set_pattern (fmt_pat); |
| pun.pos_format_ = std::money_base::pattern (); |
| } |
| else if (val > 0.0) { |
| pun.neg_format_ = std::money_base::pattern (); |
| pun.pos_format_ = set_pattern (fmt_pat); |
| } |
| else { |
| // 0.0 and -0.0 |
| pun.neg_format_ = set_pattern (fmt_pat); |
| pun.pos_format_ = pun.neg_format_; |
| } |
| |
| // ios-derived object to pass to the facet |
| Ios<charT> ios; |
| |
| // money_put-derived object |
| const MoneyPut<charT> mp; |
| |
| // install the moneypunct facet in a locale and imbue the latter |
| // in the ios-derived object used by money_put |
| std::locale loc (ios.getloc (), (const std::moneypunct<charT>*)&pun); |
| ios.imbue (loc); |
| |
| // set the formatting flags and the width |
| ios.flags (std::ios_base::fmtflags (flags)); |
| ios.width (std::streamsize (width)); |
| |
| bool success; |
| |
| charT buf [256] = { 0 }; |
| |
| if (rw_enabled ("long double")) { |
| |
| // exercise 22.2.6.2.1, long double overload |
| *mp.put (buf, false, ios, charT (fill), val) = charT (); |
| |
| rw_assert (0 == ios.width (), __FILE__, lineno, |
| "money_put<%s>::put (%#p, false, const ios_base&, " |
| "%{#c}, %LfL) reset width from %d", |
| cname, buf, fill, val, width); |
| |
| success = 0 == rw_strncmp (buf, str); |
| |
| if (!success) |
| ++nfail; |
| |
| rw_assert (success, __FILE__, lineno, |
| "money_put<%s>::put (%#p, false, " |
| "const ios_base&, %{#c}, %LfL) == %{#s} got %{#s}; " |
| "flags = %{If}, grouping = %{#s}", |
| cname, buf, |
| fill, val, str, buf, |
| flags, grouping); |
| } |
| else { |
| static int msg_issued; |
| |
| rw_note (msg_issued++, __FILE__, 0, "long double test disabled"); |
| } |
| |
| ////////////////////////////////////////////////////////////////// |
| // exercise put (..., const basic_string&) overload |
| |
| if (frac_digits < 0) { |
| // do not perform string test(s) for negative values of frac_digits |
| // (extension implemented only for the long double overload of put()) |
| ++i; |
| return nfail; |
| } |
| |
| if (no_basic_string) { |
| rw_note (0, __FILE__, __LINE__, |
| "basic_string<%s> test on line %d disabled", lineno, cname); |
| return nfail; |
| } |
| |
| // zero out buffer |
| std::char_traits<charT>::assign (buf, sizeof buf / sizeof *buf, charT ()); |
| |
| // if the format string starts with a '%', |
| // use it to format the floating point value |
| if (!format || *format != '%') |
| format = "%.0" _RWSTD_LDBL_PRINTF_PREFIX "f"; |
| |
| char valbuf [256] = ""; |
| const int valbuflen = std::sprintf (valbuf, format, val); |
| |
| RW_ASSERT (0 < valbuflen && valbuflen < int (sizeof valbuf)); |
| |
| typedef std::char_traits<charT> Traits; |
| typedef std::allocator<charT> Allocator; |
| |
| const std::basic_string<charT, Traits, Allocator> |
| valstr (valbuf, valbuf + valbuflen); |
| |
| // set width (reset by a previous call) |
| ios.width (std::streamsize (width)); |
| |
| // exercise 22.2.6.2.1, basic_string overload |
| *mp.put (buf, false, ios, charT (fill), valstr) = charT (); |
| |
| success = 0 == rw_strncmp (buf, str); |
| |
| if (!success) |
| ++nfail; |
| |
| rw_assert (success, __FILE__, lineno, |
| "money_put<%s>::put (%#p, false, " |
| "const ios_base&, %{#S}) == %{#s} got %{#s}; " |
| "flags = %{If}, grouping = %{#s}", |
| cname, fill, &valstr, buf, str, |
| flags, grouping); |
| |
| ++i; |
| |
| return nfail; |
| } |
| |
| /**************************************************************************/ |
| |
| // for convenience |
| #define Boolalpha std::ios_base::boolalpha |
| #define Dec std::ios_base::dec |
| #define Fixed std::ios_base::fixed |
| #define Hex std::ios_base::hex |
| #define Internal std::ios_base::internal |
| #define Left std::ios_base::left |
| #define Oct std::ios_base::oct |
| #define Right std::ios_base::right |
| #define Scientific std::ios_base::scientific |
| #define Showbase std::ios_base::showbase |
| #define Showpoint std::ios_base::showpoint |
| #define Showpos std::ios_base::showpos |
| #define Skipws std::ios_base::skipws |
| #define Unitbuf std::ios_base::unitbuf |
| #define Uppercase std::ios_base::uppercase |
| #define Bin std::ios_base::bin |
| #define Adjustfield std::ios_base::adjustfield |
| #define Basefield std::ios_base::basefield |
| #define Floatfield std::ios_base::floatfield |
| #define Nolock std::ios_base::nolock |
| #define Nolockbuf std::ios_base::nolockbuf |
| |
| #define Eofbit std::ios_base::eofbit |
| #define Failbit std::ios_base::failbit |
| #define Goodbit std::ios_base::goodbit |
| |
| |
| template <class charT> |
| void ldbl_test (charT) |
| { |
| static const charT curr_symbol1 [8] = { '$', '\0' }; |
| Punct<charT, false>::curr_symbol_ = curr_symbol1; |
| |
| Punct<charT, false>::decimal_point_ = ':'; |
| Punct<charT, false>::thousands_sep_ = ';'; |
| |
| static const charT signs1[][4] = { |
| // negative positive |
| { '~', '\0' }, { '\0', }, |
| }; |
| |
| Punct<charT, false>::negative_sign_ = signs1 [0]; |
| Punct<charT, false>::positive_sign_ = signs1 [1]; |
| |
| int ntried = 0; |
| int nfailed = 0; |
| |
| #define T __LINE__, charT () |
| #define TEST ++ntried, nfailed += type_test |
| |
| // enum part { none, space, symbol, sign, value }; |
| |
| // no symbol, empty sign, default format |
| TEST (T, 0., "0", ' '); |
| TEST (T, 1., "1", ' '); |
| TEST (T, 12., "12", ' '); |
| TEST (T, 123., "123", ' '); |
| TEST (T, 1234., "1234", ' '); |
| TEST (T, 12345., "12345", ' '); |
| TEST (T, 123456., "123456", ' '); |
| TEST (T, 1234567., "1234567", ' '); |
| TEST (T, 12345678., "12345678", ' '); |
| TEST (T, 123456789., "123456789", ' '); |
| |
| TEST (T, 12345678.9, "12345679", ' '); |
| TEST (T, 1234567.89, "1234568", ' '); |
| TEST (T, 123456.789, "123457", ' '); |
| TEST (T, 12345.6789, "12346", ' '); |
| TEST (T, 1234.56789, "1235", ' '); |
| TEST (T, 123.456789, "123", ' '); |
| TEST (T, 12.3456789, "12", ' '); |
| TEST (T, 1.23456789, "1", ' '); |
| TEST (T, .123456789, "0", ' '); |
| |
| // exercise correct handling of frac_digits |
| TEST (T, 9876543210., "987654321:0", ' ', 0, 1); |
| TEST (T, 876543210., "8765432:10", ' ', 0, 2); |
| TEST (T, 76543210., "76543:210", ' ', 0, 3); |
| TEST (T, 6543210., "654:3210", ' ', 0, 4); |
| TEST (T, 543210., "5:43210", ' ', 0, 5); |
| TEST (T, 43210., "0:043210", ' ', 0, 6); |
| TEST (T, 3210., "0:0003210", ' ', 0, 7); |
| TEST (T, 210., "0:00000210", ' ', 0, 8); |
| TEST (T, 10., "0:000000010", ' ', 0, 9); |
| TEST (T, 1., "0:000000001", ' ', 0, 9); |
| TEST (T, 0., "0:000000000", ' ', 0, 9); |
| TEST (T, 200., "0:000000200", ' ', 0, 9); |
| TEST (T, 3000., "0:000003000", ' ', 0, 9); |
| TEST (T, 40000., "0:000040000", ' ', 0, 9); |
| TEST (T, 500000., "0:000500000", ' ', 0, 9); |
| TEST (T, 6000000., "0:006000000", ' ', 0, 9); |
| TEST (T, 70000000., "0:070000000", ' ', 0, 9); |
| TEST (T, 800000000., "0:800000000", ' ', 0, 9); |
| TEST (T, -900000000., "~0:900000000", ' ', 0, 9); |
| TEST (T, -80000000., "~0:080000000", ' ', 0, 9); |
| TEST (T, -7000000., "~0:007000000", ' ', 0, 9); |
| TEST (T, -600000., "~0:000600000", ' ', 0, 9); |
| TEST (T, -50000., "~0:000050000", ' ', 0, 9); |
| TEST (T, -4000., "~0:000004000", ' ', 0, 9); |
| TEST (T, -300., "~0:000000300", ' ', 0, 9); |
| TEST (T, -20., "~0:000000020", ' ', 0, 9); |
| TEST (T, -1., "~0:000000001", ' ', 0, 9); |
| |
| if (test_neg_zero) |
| TEST (T, -0., "~0:000000000", ' ', 0, 9); |
| |
| // extension: fixed and negative frac_digits |
| TEST (T, 1.0, "1:0", ' ', Fixed, -1); |
| TEST (T, 2.0, "2:00", ' ', Fixed, -2); |
| TEST (T, 3.0, "3:000", ' ', Fixed, -3); |
| TEST (T, 4.1, "4:1000", ' ', Fixed, -4); |
| TEST (T, 52.34, "52:34000", ' ', Fixed, -5); |
| TEST (T, 634.56789, "634:5679", ' ', Fixed, -4); |
| |
| |
| // exhaustively exercise valid permutations of format patterns |
| // (`none' allowed in all but the first position by 22.2.6.3, p1) |
| TEST (T, 12, "12", '\0', 0, 0, 0, "\3\0\4\2", ""); |
| TEST (T, 123, "123", '\0', 0, 0, 0, "\3\0\2\4", ""); |
| TEST (T, 1234, "1234", '\0', 0, 0, 0, "\3\2\4\0", ""); |
| TEST (T, 2345, "2345", '\0', 0, 0, 0, "\3\4\2\0", ""); |
| TEST (T, 3456, "3456", '\0', 0, 0, 0, "\3\4\0\2", ""); |
| TEST (T, 4567, "4567", '\0', 0, 0, 0, "\4\0\2\3", ""); |
| TEST (T, 5678, "5678", '\0', 0, 0, 0, "\4\2\0\3", ""); |
| TEST (T, 6789, "6789", '\0', 0, 0, 0, "\4\2\3\0", ""); |
| TEST (T, 7890, "7890", '\0', 0, 0, 0, "\4\0\3\2", ""); |
| TEST (T, 8901, "8901", '\0', 0, 0, 0, "\2\4\0\3", ""); |
| TEST (T, 9012, "9012", '\0', 0, 0, 0, "\2\0\4\3", ""); |
| TEST (T, 123, "123", '\0', 0, 0, 0, "\2\0\3\4", ""); |
| |
| // format using `space' in valid positions (all but |
| // the first and last as specified by 22.2.6.3, p1) |
| // the actual space character (not the fill char) |
| // is required |
| TEST (T, 9, " 9", '*', 0, 0, 0, "\3\1\4\2", ""); |
| TEST (T, 98, " 98", '*', 0, 0, 0, "\3\1\2\4", ""); |
| TEST (T, 987, "987 ", '*', 0, 0, 0, "\3\4\1\2", ""); |
| TEST (T, 876, "876 ", '*', 0, 0, 0, "\4\1\2\3", ""); |
| TEST (T, 765, "765 ", '*', 0, 0, 0, "\4\2\1\3", ""); |
| TEST (T, 654, "654 ", '*', 0, 0, 0, "\4\1\3\2", ""); |
| TEST (T, 543, "543 ", '*', 0, 0, 0, "\2\4\1\3", ""); |
| TEST (T, 432, " 432", '*', 0, 0, 0, "\2\1\4\3", ""); |
| TEST (T, 321, " 321", '*', 0, 0, 0, "\2\1\3\4", ""); |
| |
| TEST (T, 0, "$0", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 1, "$1", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 12, "$12", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 123, "$123", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 1234, "$1234", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 12345, "$12345", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 123456, "$123456", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 1234567, "$1234567", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| TEST (T, 12345678, "$12345678", '\0', Showbase, 0, 0, "\2\3\4\0", ""); |
| |
| TEST (T, 0, "$0", '\0', Showbase, 0, 0, 0, "\2"); |
| TEST (T, 1, "$1", '\0', Showbase, 0, 0, 0, "\2\2"); |
| TEST (T, 12, "$12", '\0', Showbase, 0, 0, 0, "\2"); |
| TEST (T, 123, "$1;23", '\0', Showbase, 0, 0, 0, "\2\2"); |
| TEST (T, 1234, "$12;34", '\0', Showbase, 0, 0, 0, "\2"); |
| TEST (T, 12345, "$1;23;45", '\0', Showbase, 0, 0, 0, "\2\2"); |
| TEST (T, 123456, "$12;34;56", '\0', Showbase, 0, 0, 0, "\2"); |
| TEST (T, 1234567, "$1;23;45;67", '\0', Showbase, 0, 0, 0, "\2\2"); |
| TEST (T, 12345678, "$12;34;56;78", '\0', Showbase, 0, 0, 0, "\2"); |
| TEST (T, 123456789, "$1;23;45;67;89", '\0', Showbase, 0, 0, 0, "\2\2"); |
| |
| if (test_neg_zero) |
| TEST (T, -0.0, "$~0", '\0', Showbase, 0, 0, 0, "\3\3"); |
| |
| TEST (T, -1, "$~1", '\0', Showbase, 0, 0, 0, "\3"); |
| TEST (T, -12, "$~12", '\0', Showbase, 0, 0, 0, "\3\3"); |
| TEST (T, -123, "$~123", '\0', Showbase, 0, 0, 0, "\3"); |
| TEST (T, -1234, "$~1;234", '\0', Showbase, 0, 0, 0, "\3\3"); |
| TEST (T, -12345, "$~12;345", '\0', Showbase, 0, 0, 0, "\3"); |
| TEST (T, -123456, "$~123;456", '\0', Showbase, 0, 0, 0, "\3\3"); |
| TEST (T, -1234567, "$~1;234;567", '\0', Showbase, 0, 0, 0, "\3"); |
| TEST (T, -12345678, "$~12;345;678", '\0', Showbase, 0, 0, 0, "\3\3"); |
| TEST (T, -123456789, "$~123;456;789", '\0', Showbase, 0, 0, 0, "\3"); |
| |
| // for convenience |
| const char *f = "\3\2\4\0"; // { sign, symbol, value, none } |
| |
| TEST (T, -321, "~$32;1", '\0', Showbase, 0, 0, f, "\1\2"); |
| TEST (T, -4322, "~$432;2", '\0', Showbase, 0, 0, f, "\1\3"); |
| TEST (T, -54323, "~$5;4;3;2;3", '\0', Showbase, 0, 0, f, "\1\1"); |
| TEST (T, -654324, "~$6;5;4;3;2;4", '\0', Showbase, 0, 0, f, "\1\1"); |
| TEST (T, -7654325, "~$765;432;5", '\0', Showbase, 0, 0, f, "\1\3"); |
| TEST (T, -87654326, "~$8;7;6;5;4;3;26", '\0', Showbase, 0, 0, f, "\2\1"); |
| TEST (T, -987654327, "~$98;76;54;32;7", '\0', Showbase, 0, 0, f, "\1\2"); |
| |
| static const charT curr_symbol2 [8] = { 'X', 'Y', '\0' }; |
| Punct<charT, false>::curr_symbol_ = curr_symbol2; |
| |
| static const charT signs2[][8] = { |
| // negative positive |
| { '(', ')', '\0' }, { '{', '}', '\0' } |
| }; |
| |
| Punct<charT, false>::negative_sign_ = signs2 [0]; |
| Punct<charT, false>::positive_sign_ = signs2 [1]; |
| Punct<charT, false>::thousands_sep_ = '.'; |
| Punct<charT, false>::decimal_point_ = '.'; |
| |
| f = "\3\4\1\2"; // { sign, value, space, symbol } |
| |
| TEST (T, -1357911, "(1.3.5.7.9.1.1 XY)", '*', Showbase, 0, 0, f, "\1"); |
| TEST (T, -2468012, "(2.46.80.12 XY)", '-', Showbase, 0, 0, f, "\2"); |
| TEST (T, -3692513, "(3.692.513 XY)", ' ', Showbase, 0, 0, f, "\3"); |
| TEST (T, -9999914, "(999.9914 XY)", '@', Showbase, 0, 0, f, "\4"); |
| TEST (T, -1000015, "(10.00015 XY)", '#', Showbase, 0, 0, f, "\5"); |
| TEST (T, -16, "(16 XY)", ')', Showbase, 0, 0, f, "\6"); |
| |
| TEST (T, +1357917, "{1.3.5.7.9.1.7 XY}", ',', Showbase, 0, 0, f, "\1"); |
| TEST (T, +2468018, "{2.46.80.18 XY}", '+', Showbase, 0, 0, f, "\2"); |
| TEST (T, +3692519, "{3.692.519 XY}", '0', Showbase, 0, 0, f, "\3"); |
| TEST (T, +9999920, "{999.9920 XY}", '1', Showbase, 0, 0, f, "\4"); |
| TEST (T, +1000021, "{10.00021 XY}", '\0', Showbase, 0, 0, f, "\5"); |
| TEST (T, +22, "{22 XY}", '{', Showbase, 0, 0, f, "\6"); |
| TEST (T, +123, "{123 }", '_', 0, 0, 0, f, "\6"); |
| TEST (T, -224, "(224 )", '_', 0, 0, 0, f, "\7"); |
| |
| TEST (T, +325, "{ XY325}", ' ', Showbase, 0, 0, "\3\1\2\4", "\xa"); |
| TEST (T, -426, "( XY426)", ' ', Showbase, 0, 0, "\3\1\2\4", "\xb"); |
| TEST (T, +527, "{XY 527}", ' ', Showbase, 0, 0, "\3\2\1\4", "\xc"); |
| TEST (T, -628, "(XY 628)", ' ', Showbase, 0, 0, "\3\2\1\4", "\xd"); |
| TEST (T, +729, "{XY729}", ' ', Showbase, 0, 0, "\3\2\0\4", "\xe"); |
| TEST (T, -830, "(XY830)", ' ', Showbase, 0, 0, "\3\2\0\4", "\xf"); |
| TEST (T, +931, "{XY931}", ' ', Showbase, 0, 0, "\3\0\2\4", "\x10"); |
| TEST (T, -1032, "(XY1032)", ' ', Showbase, 0, 0, "\3\0\2\4"); |
| TEST (T, +1133, "1133{XY}", ' ', Showbase, 0, 0, "\4\3\2\0"); |
| TEST (T, -1234, "1234XY()", ' ', Showbase, 0, 0, "\4\2\3\0"); |
| TEST (T, +1335, "1335XY{}", ' ', Showbase, 0, 0, "\4\2\0\3"); |
| TEST (T, -1436, "1436XY ()", ' ', Showbase, 0, 0, "\4\2\1\3"); |
| TEST (T, +1537, "1537XY{}", ' ', Showbase, 0, 0, "\4\0\2\3"); |
| TEST (T, -1638, "1638 XY()", ' ', Showbase, 0, 0, "\4\1\2\3"); |
| TEST (T, +1739, "XY1739{}", ' ', Showbase, 0, 0, "\2\4\0\3"); |
| TEST (T, -1840, "XY1840 ()", ' ', Showbase, 0, 0, "\2\4\1\3"); |
| TEST (T, +1941, "XY1941{}", ' ', Showbase, 0, 0, "\2\0\4\3"); |
| TEST (T, -2042, "XY 2042()", ' ', Showbase, 0, 0, "\2\1\4\3"); |
| TEST (T, +2143, "XY{2143}", ' ', Showbase, 0, 0, "\2\3\4\0"); |
| TEST (T, -2244, "XY(2244)", ' ', Showbase, 0, 0, "\2\3\0\4"); |
| TEST (T, +2345, "XY{ 2345}", ' ', Showbase, 0, 0, "\2\3\1\4"); |
| |
| // 22.2.6.2, p2: |
| // ...copies of `fill' are inserted as necessary to pad to the |
| // specified width. For the value `af' equal to (str.flags() |
| // & str.adjustfield), if (af == str.internal) is true, the fill |
| // characters are placed where `none' or `space' appears in the |
| // formatting pattern; otherwise if (af == str.left) is true, they |
| // are placed after the other characters; otherwise, they are |
| // placed before the other characters. |
| |
| TEST (T, -2446, "___XY( 2446)", '_', Showbase, 0, 12, "\2\3\1\4"); |
| TEST (T, +2547, "____XY{2547}", '_', Showbase, 0, 12, "\2\3\0\4"); |
| |
| TEST (T, -2648, "___XY( 2648)", '_', Showbase | Right, 0, 12, "\2\3\1\4"); |
| TEST (T, +2749, "____XY{2749}", '_', Showbase | Right, 0, 12, "\2\3\0\4"); |
| |
| TEST (T, -2850, "XY( 2850)___", '_', Showbase | Left, 0, 12, "\2\3\1\4"); |
| TEST (T, +2951, "XY{2951}____", '_', Showbase | Left, 0, 12, "\2\3\0\4"); |
| |
| TEST (T, -3052, "___XY( 3052)", '_', |
| Showbase | Left | Right, 0, 12, "\2\3\1\4"); |
| |
| TEST (T, +3153, "____XY{3153}", '_', |
| Showbase | Left | Right, 0, 12, "\2\3\0\4"); |
| |
| TEST (T, -3254, "___XY( 3254)", '_', |
| Showbase | Left | Right | Internal, 0, 12, "\2\3\1\4"); |
| |
| TEST (T, +3355, "____XY{3355}", '_', |
| Showbase | Left | Right | Internal, 0, 12, "\2\3\0\4"); |
| |
| TEST (T, -3456, "XY( ___3456)", '_', |
| Showbase | Internal, 0, 12, "\2\3\1\4"); |
| |
| TEST (T, +3557, "XY{____3557}", '_', |
| Showbase | Internal, 0, 12, "\2\3\0\4"); |
| |
| TEST (T, -3658, "XY____(3658)", '_', |
| Showbase | Internal, 0, 12, "\2\0\3\4"); |
| |
| TEST (T, +3759, "XY{3759____}", '_', |
| Showbase | Internal, 0, 12, "\2\3\4\0"); |
| |
| TEST (T, 3759, "XY{37.59}", '_', |
| Showbase | Internal, 0, 8, "\2\3\4\0", "\2"); |
| |
| TEST (T, 3760, "XY{ 37.60}", '_', |
| Showbase | Internal, 0, 8, "\2\3\1\4", "\2"); |
| |
| TEST (T, 12345678900000000000.0, "XY{ ........1.23.45678.9000.00.000.0.00}", |
| '.', Showbase | Internal, 0, 40, "\2\3\1\4", "\2\1\3\2\4\5\2"); |
| |
| TEST (T, 1234567890000000000.0, "{ ...........1234.56789.0000.000.00.0XY}", |
| '.', Showbase | Internal, 0, 40, "\3\1\4\2", "\1\2\3\4\5\6"); |
| |
| // exercise justification with non-zero frac_digits |
| TEST (T, 1, "_____{0.1}", '_', 0, 1, 10, "-@1$"); |
| TEST (T, 12, "_____{1.2}", '_', 0, 1, 10, "-@1$"); |
| TEST (T, 123, "____{1.23}", '_', 0, 2, 10, "-@1$"); |
| TEST (T, 1234, "_{12.34XY}", '_', Showbase, 2, 10, "-@1$"); |
| TEST (T, 1235, "_{ 12.35XY}", '_', Showbase, 2, 11, "- 1$"); |
| |
| TEST (T, 2, "******{0.2}", '*', Right, 1, 11, "-@1$"); |
| TEST (T, 23, "******{2.3}", '*', Right, 1, 11, "-@1$"); |
| TEST (T, 234, "*****{2.34}", '*', Right, 2, 11, "-@1$"); |
| TEST (T, 2345, "**{23.45XY}", '*', Right | Showbase, 2, 11, "-@1$"); |
| TEST (T, 2346, "**{ 23.46XY}", '*', Right | Showbase, 2, 12, "- 1$"); |
| |
| TEST (T, 3, "{0.3}#######", '#', Left, 1, 12, "-@1$"); |
| TEST (T, 34, "{3.4}#######", '#', Left, 1, 12, "-@1$"); |
| TEST (T, 345, "{3.45}######", '#', Left, 2, 12, "-@1$"); |
| TEST (T, 3456, "{34.56XY}###", '#', Left | Showbase, 2, 12, "-@1$"); |
| TEST (T, 3457, "{ 34.57XY}###", '#', Left | Showbase, 2, 13, "- 1$"); |
| |
| TEST (T, 4, "{=====0.4}", '=', Internal, 1, 10, "-@1$"); |
| TEST (T, 45, "{=====4.5}", '=', Internal, 1, 10, "-@1$"); |
| TEST (T, 456, "{====4.56}", '=', Internal, 2, 10, "-@1$"); |
| TEST (T, 4567, "{=45.67XY}", '=', Internal | Showbase, 2, 10, "-@1$"); |
| TEST (T, 4568, "{ =45.68XY}", '=', Internal | Showbase, 2, 11, "- 1$"); |
| |
| Punct<charT, false>::thousands_sep_ = ','; |
| Punct<charT, false>::decimal_point_ = '.'; |
| |
| // justification with grouping |
| TEST (T, 105, "====={1,0.5}", '=', 0, 1, 12, "-@1$", "\1"); |
| TEST (T, 1056, "===={1,05.6}", '=', 0, 1, 12, "-@1$", "\2"); |
| TEST (T, 10567, "==={1,05.67}", '=', 0, 2, 12, "-@1$", "\2"); |
| TEST (T, 105678, "=={10,56.78XY}", '=', Showbase, 2, 14, "-@1$", "\2"); |
| TEST (T, 105679, "={ 10,56.79XY}", '=', Showbase, 2, 14, "- 1$", "\2"); |
| TEST (T, 105680, "={ 1,056,80XY}", '=', Showbase, 0, 14, "- 1$", "\2\3"); |
| |
| int flags = Right | Showbase; |
| TEST (T, 106, ">>>>>{1,0.6}", '>', Right, 1, 12, "-@1$", "\1"); |
| TEST (T, 1057, ">>>>{1,05.7}", '>', Right, 1, 12, "-@1$", "\2"); |
| TEST (T, 10568, ">>>{1,05.68}", '>', Right, 2, 12, "-@1$", "\2"); |
| TEST (T, 105679, ">>{10,56.79XY}", '>', flags, 2, 14, "-@1$", "\2"); |
| TEST (T, 105680, ">{ 10,56.80XY}", '>', flags, 2, 14, "- 1$", "\2"); |
| TEST (T, 105681, ">{ 1,056,81XY}", '>', flags, 0, 14, "- 1$", "\2\3"); |
| |
| flags = Left | Showbase; |
| TEST (T, 107, "{1,0.7}<<<<<", '<', Left, 1, 12, "-@1$", "\1"); |
| TEST (T, 1058, "{1,05.8}<<<<", '<', Left, 1, 12, "-@1$", "\2"); |
| TEST (T, 10569, "{1,05.69}<<<", '<', Left, 2, 12, "-@1$", "\2"); |
| TEST (T, 105680, "{10,56.80XY}<<", '<', flags, 2, 14, "-@1$", "\2"); |
| TEST (T, 105681, "{ 10,56.81XY}<", '<', flags, 2, 14, "- 1$", "\2"); |
| TEST (T, 105682, "{ 1,056,82XY}<", '<', flags, 0, 14, "- 1$", "\2\3"); |
| |
| flags = Internal | Showbase; |
| TEST (T, 108, "{^^^^^1,0.8}", '^', Internal, 1, 12, "-@1$", "\1"); |
| TEST (T, 1059, "{^^^^1,05.9}", '^', Internal, 1, 12, "-@1$", "\2"); |
| TEST (T, 10570, "{^^^1,05.70}", '^', Internal, 2, 12, "-@1$", "\2"); |
| TEST (T, 105681, "{^^10,56.81XY}", '^', flags, 2, 14, "-@1$", "\2"); |
| TEST (T, 105682, "{ ^10,56.82XY}", '^', flags, 2, 14, "- 1$", "\2"); |
| TEST (T, 105683, "{ ^1,056,83XY}", '^', flags, 0, 14, "- 1$", "\2\3"); |
| |
| flags = Left | Right | Showbase; |
| TEST (T, 109, "#####{1,0.9}", '#', Left | Right, 1, 12, "-@1$", "\1"); |
| TEST (T, 1060, "####{1,06.0}", '#', Left | Right, 1, 12, "-@1$", "\2"); |
| TEST (T, 10571, "###{1,05.71}", '#', Left | Right, 2, 12, "-@1$", "\2"); |
| TEST (T, 105682, "##{10,56.82XY}", '#', flags, 2, 14, "-@1$", "\2"); |
| TEST (T, 105683, "#{ 10,56.83XY}", '#', flags, 2, 14, "- 1$", "\2"); |
| TEST (T, 105684, "#{ 10,56,84XY}", '#', flags, 0, 14, "- 1$", "\2"); |
| |
| |
| // verify that mon_put (..., const basic_string&) ignores the part |
| // of the string starting with the first non-numeric character |
| #undef FMT |
| #define FMT(fmt) "%.0" _RWSTD_LDBL_PRINTF_PREFIX "f" fmt |
| |
| // using default format "\2\3\4\0": {symbol, sign, value, none} |
| TEST (T, 10, "{1.0}", ' ', 0, 1, -1, FMT (" ")); |
| TEST (T, 10, "{1.0}", ' ', 0, 1, -1, FMT (".")); |
| |
| TEST (T, -11, "(1.1)", ' ', 0, 1, -1, FMT (" ")); |
| TEST (T, -11, "(1.1)", ' ', 0, 1, -1, FMT (".")); |
| |
| TEST (T, 101, "{1.01}", ' ', 0, 2, -1, FMT (" ")); |
| TEST (T, 101, "{1.01}", ' ', 0, 2, -1, FMT (".")); |
| |
| Punct<charT, false>::negative_sign_ = signs1 [0]; |
| Punct<charT, false>::positive_sign_ = signs1 [1]; |
| |
| TEST (T, 1012, "1,0.12", ' ', 0, 2, -1, FMT (" 0"), "\1"); |
| TEST (T, 1013, "1,0.13", ' ', 0, 2, -1, FMT (".1"), "\1"); |
| |
| TEST (T, -1014, "~1,01.4", ' ', 0, 1, -1, FMT ("~2"), "\2"); |
| TEST (T, -1015, "~1,01.5", ' ', 0, 1, -1, FMT (",3"), "\2"); |
| } |
| |
| /**************************************************************************/ |
| |
| void grouping_test () |
| { |
| if (!rw_enabled ("char")) { |
| rw_note (0, __FILE__, __LINE__, "char test disabled"); |
| return; |
| } |
| |
| rw_info (0, 0, 0, "std::money_put<%s>::put(ostreambuf_iterator" |
| "<%s>, bool, ios_base, %s, long double); correct use of " |
| "moneypunct<%s, false>::grouping() and thousands_sep()", |
| "char", "char", "char", "char"); |
| |
| typedef Punct<char, false> PunctT; |
| |
| // construct a "replacement" moneypunct-derived facet |
| const PunctT pun; |
| |
| // group after every digit |
| PunctT::grouping_ = "\1"; |
| |
| // reset the do_thousands_sep()-call counter |
| PunctT::thousands_sep_ = ';'; |
| PunctT::decimal_point_ = ':'; |
| PunctT::n_thousands_sep_ = 0; |
| |
| // construct and initialize a basic_ios-derived object |
| struct Ios: std::basic_ios<char> { Ios () { this->init (0); } } ios; |
| |
| // construct a money_put-derived facet to exercise |
| struct MoneyPut: std::money_put<char, char*> { } mp; |
| |
| // imbue a stream object with a custom locale |
| // containing the replacement punctuation facet |
| std::locale l; |
| std::locale loc (l, (const std::moneypunct<char>*)&pun); |
| ios.imbue (loc); |
| |
| // decimal output, no special formatting |
| ios.setf (std::ios::fmtflags ()); |
| |
| char buf [40] = ""; |
| |
| *mp.put (buf, false, ios, '\0', 123456789.0L) = '\0'; |
| |
| // verify that the number was formatted correctly |
| rw_assert (0 == rw_strncmp (buf, "1;2;3;4;5;6;7;8;9"), __FILE__, __LINE__, |
| "money_put<char, char*>::do_put(..., 123456789.0L) " |
| "== %#s, got %#s", "1;2;3;4;5;6;7;8;9", buf); |
| |
| // verify that do_thousands_sep() was called at least once |
| // (but not necessarily for each thousands separator inserted |
| // into the output, since the value is allowed to be cached) |
| rw_assert (0 != PunctT::n_thousands_sep_, __FILE__, __LINE__, |
| "money_put<char, char*>::do_put(..., 123456789.0L) " |
| "called moneypunct<char>::do_thousands_sep()"); |
| } |
| |
| /**************************************************************************/ |
| |
| static int |
| run_test (int, char*[]) |
| { |
| // check to see if we can test -0.0 |
| static volatile double d = -0.0; |
| test_neg_zero = 1.0 / d < d; |
| |
| if (no_grouping) |
| rw_note (0, __FILE__, __LINE__, "grouping test disabled"); |
| else |
| grouping_test (); |
| |
| if (rw_enabled ("char")) |
| ldbl_test (char ()); |
| else |
| rw_note (0, __FILE__, __LINE__, "char test disabled"); |
| |
| #ifndef _RWSTD_NO_WCHAR_T |
| |
| if (rw_enabled ("wchar_t")) |
| ldbl_test (wchar_t ()); |
| else |
| rw_note (0, __FILE__, __LINE__, "wchar_t test disabled"); |
| |
| #endif // _RWSTD_NO_WCHAR_T |
| |
| return 0; |
| } |
| |
| /**************************************************************************/ |
| |
| int main (int argc, char *argv[]) |
| { |
| return rw_test (argc, argv, __FILE__, |
| "lib.locale.money.put", |
| 0 /* no comment */, run_test, |
| "|-no-grouping# |-no-basic_string#", |
| &no_grouping, &no_basic_string); |
| } |
