123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453 |
- /* Copyright (c) 2005 CrystalClear Software, Inc.
- * Use, modification and distribution is subject to the
- * Boost Software License, Version 1.0. (See accompanying
- * file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt)
- * Author: Jeff Garland, Bart Garst
- * $Date$
- */
- #include "boost/date_time/gregorian/gregorian.hpp"
- #include "boost/date_time/posix_time/posix_time.hpp"
- #include "../testfrmwk.hpp"
- #include <iostream>
- #include <sstream>
- #include <string>
- #include <vector>
- // for tests that are expected to fail and throw exceptions
- template<class temporal_type, class exception_type>
- bool failure_test(temporal_type component,
- const std::string& input,
- exception_type const& /*except*/,
- boost::posix_time::time_input_facet* facet)
- {
- using namespace boost::posix_time;
- bool result = false;
- std::istringstream iss(input);
- iss.exceptions(std::ios_base::failbit); // turn on exceptions
- iss.imbue(std::locale(std::locale::classic(), facet));
- try {
- iss >> component;
- }
- catch(exception_type& e) {
- std::cout << "Expected exception caught: \""
- << e.what() << "\"" << std::endl;
- result = iss.fail(); // failbit must be set to pass test
- }
- catch(...) {
- result = false;
- }
- return result;
- }
- // for tests that are expected to fail quietly
- template<class temporal_type>
- bool failure_test(temporal_type& component,
- const std::string& input,
- boost::posix_time::time_input_facet* facet)
- {
- using namespace boost::posix_time;
- std::istringstream iss(input);
- /* leave exceptions turned off
- * iss.exceptions(std::ios_base::failbit); */
- iss.imbue(std::locale(std::locale::classic(), facet));
- try {
- iss >> component;
- }
- catch(...) {
- std::cout << "Caught unexpected exception" << std::endl;
- return false;
- }
- return iss.fail(); // failbit must be set to pass test
- }
- using namespace boost::gregorian;
- using namespace boost::posix_time;
-
- void
- do_all_tests()
- {
- #if defined(USE_DATE_TIME_PRE_1_33_FACET_IO) // skip this file
- check("No tests run for this compiler. Incompatible IO", true);
- #else
- // set up initial objects
- time_duration td = hours(0);
- ptime pt(not_a_date_time);
- time_period tp(pt, td);
- // exceptions for failure_tests
- std::ios_base::failure e_failure("default");
- /* test ptime, time_duration, time_period.
- * test all formats.
- * test for bad input.
- * test special values.
- * do not test custom names (done in gregorian).
- *
- * format flags to test H,M,S,s,F,f,j
- */
- // default format tests: time_duration, ptime
- std::istringstream iss("09:59:01.321987654321 2005-Jan-15 10:15:03.123456789123");
- iss >> td;
- iss >> pt;
- #if defined(BOOST_DATE_TIME_POSIX_TIME_STD_CONFIG)
- check_equal("Default format time_duration", td, time_duration(9,59,1,321987654));
- check_equal("Default format ptime", pt, ptime(date(2005,01,15),time_duration(10,15,3,123456789)));
- #else
- check_equal("Default format time_duration", td, time_duration(9,59,1,321987));
- check_equal("Default format ptime", pt, ptime(date(2005,01,15),time_duration(10,15,3,123456)));
- #endif
- // test all flags that appear in time_input_facet
- iss.str("12:34:56 2005-Jan-15 12:34:56");
- iss >> td;
- iss >> pt;
- check_equal("Default format time_duration no frac_sec", td, time_duration(12,34,56));
- // the following test insures %F parsing stops at the appropriate point
- check_equal("Default format ptime", pt, ptime(date(2005,01,15),time_duration(12,34,56)));
- iss.str("14:13:12 extra stuff"); // using default %H:%M:%S%F format
- iss >> td;
- check_equal("Default frac_sec format time_duration", td, time_duration(14,13,12));
- time_input_facet* facet = new time_input_facet();
- std::locale loc(std::locale::classic(), facet);
- facet->time_duration_format("%H:%M:%S""%f");
- iss.imbue(loc);
- iss.str("14:13:12.0 extra stuff");
- iss >> td;
- check_equal("Required-frac_sec format time_duration", td, time_duration(14,13,12));
- iss.str("12");
- facet->time_duration_format("%H");
- iss >> td;
- check_equal("Hours format", td, hours(12));
- iss.str("05");
- facet->time_duration_format("%M");
- iss >> td;
- check_equal("Minutes format", td, minutes(5));
- iss.str("45");
- facet->time_duration_format("%S");
- iss >> td;
- check_equal("Seconds w/o frac_sec format", td, seconds(45));
- iss.str("10.01");
- facet->time_duration_format("%s");
- iss >> td;
- #if defined(BOOST_DATE_TIME_POSIX_TIME_STD_CONFIG)
- check_equal("Seconds w/ frac_sec format", td, time_duration(0,0,10,10000000));
- #else
- check_equal("Seconds w/ frac_sec format", td, time_duration(0,0,10,10000));
- #endif
- iss.str("2005-105T23:59");
- facet->format("%Y-%jT%H:%M"); // extended ordinal format
- iss >> pt;
- check_equal("Extended Ordinal format", pt, ptime(date(2005,4,15),time_duration(23,59,0)));
- /* this is not implemented yet. The flags: %I & %p are not parsed
- iss.str("2005-Jun-14 03:15:00 PM");
- facet->format("%Y-%b-%d %I:%M:%S %p");
- iss >> pt;
- check_equal("12 hour time format (AM/PM)", pt, ptime(date(2005,6,14),time_duration(15,15,0)));
- */
- iss.str("2005-Jun-14 15:15:00 %d");
- facet->format("%Y-%b-%d %H:%M:%S %%d");
- iss >> pt;
- check_equal("Literal '%' in format", pt, ptime(date(2005,6,14),time_duration(15,15,0)));
- iss.str("15:15:00 %d");
- facet->time_duration_format("%H:%M:%S %%d");
- iss >> td;
- check_equal("Literal '%' in time_duration format", td, time_duration(15,15,0));
- iss.str("2005-Jun-14 15:15:00 %14");
- facet->format("%Y-%b-%d %H:%M:%S %%%d"); // %% => % & %d => day_of_month
- iss >> pt;
- check_equal("Multiple literal '%'s in format", pt, ptime(date(2005,6,14),time_duration(15,15,0)));
- iss.str("15:15:00 %15");
- facet->time_duration_format("%H:%M:%S %%%M");
- iss >> td;
- check_equal("Multiple literal '%'s in time_duration format", td, time_duration(15,15,0));
- { /****** iso format tests (and custom 'scrunched-together formats) ******/
- time_input_facet *facet2 = new time_input_facet();
- facet2->set_iso_format();
- facet2->time_duration_format("%H""%M""%S""%F"); // iso format
- std::stringstream ss;
- ss.imbue(std::locale(std::locale::classic(), facet2));
- ptime pt2(not_a_date_time);
- time_duration tdx(not_a_date_time);
- date dx(2002,Oct,17);
- #if defined(BOOST_DATE_TIME_POSIX_TIME_STD_CONFIG)
- time_duration td2(23,12,17,123450000);
- #else
- time_duration td2(23,12,17,123450);
- #endif
- ptime result(dx, td2);
- ss.str("20021017T231217.12345");
- ss >> pt2;
- check_equal("iso_format ptime", pt2, result);
- ss.str("");
- facet2->set_iso_extended_format();
- ss.str("2002-10-17 23:12:17.12345");
- ss >> pt2;
- check_equal("iso_extended_format ptime", pt2, result);
- ss.str("");
- ss.str("231217.12345");
- ss >> tdx;
- check_equal("iso_format time_duration", tdx, td2);
- ss.str("");
- ss.str("-infinity");
- ss >> tdx;
- check_equal("iso_format time_duration (special_value)",
- tdx, time_duration(neg_infin));
- ss.str("");
- // the above tests prove correct parsing of time values in these formats.
- // these tests show they also handle special_values & exceptions properly
- time_duration nadt(not_a_date_time);
- ss.exceptions(std::ios_base::failbit); // we need exceptions turned on here
- int count = 0;
- try {
- facet2->time_duration_format("%H""%M""%S""%F");
- ss.str("not-a-date-time");
- ++count;
- ss >> tdx;
- check_equal("special value w/ hours flag", tdx, nadt);
- ss.str("");
- facet2->time_duration_format("%M""%S""%F");
- ss.str("not-a-date-time");
- ++count;
- ss >> tdx;
- check_equal("special value w/ minutes flag", tdx, nadt);
- ss.str("");
- facet2->time_duration_format("%S""%F");
- ss.str("not-a-date-time");
- ++count;
- ss >> tdx;
- check_equal("special value w/ seconds flag", tdx, nadt);
- ss.str("");
- facet2->time_duration_format("%s");
- ss.str("not-a-date-time");
- ++count;
- ss >> tdx;
- check_equal("special value w/ sec w/frac_sec (always) flag", tdx, nadt);
- ss.str("");
- facet2->time_duration_format("%f");
- ss.str("not-a-date-time");
- ++count;
- ss >> tdx;
- check_equal("special value w/ frac_sec (always) flag", tdx, nadt);
- ss.str("");
- }
- catch(...) {
- // any exception is a failure
- std::stringstream msg;
- msg << "special_values with scrunched formats failed at test" << count;
- check(msg.str(), false);
- }
- // exception tests
- std::ios_base::failure exc("failure");
- check("failure test w/ hours flag",
- failure_test(td, "bad_input", exc, new time_input_facet("%H""%M""%S""%F")));
- check("silent failure test w/ hours flag",
- failure_test(td, "bad_input", new time_input_facet("%H""%M""%S""%F")));
- check("failure test w/ minute flag",
- failure_test(td, "bad_input", exc, new time_input_facet("%M""%S""%F")));
- check("silent failure test w/ minute flag",
- failure_test(td, "bad_input", new time_input_facet("%M""%S""%F")));
- check("failure test w/ second flag",
- failure_test(td, "bad_input", exc, new time_input_facet("%S""%F")));
- check("silent failure test w/ second flag",
- failure_test(td, "bad_input", new time_input_facet("%S""%F")));
- check("failure test w/ sec w/frac (always) flag",
- failure_test(td, "bad_input", exc, new time_input_facet("%s")));
- check("silent failure test w/ sec w/frac (always) flag",
- failure_test(td, "bad_input", new time_input_facet("%s")));
- check("failure test w/ frac_sec flag",
- failure_test(td, "bad_input", exc, new time_input_facet("%f")));
- check("silent failure test w/ frac_sec flag",
- failure_test(td, "bad_input", new time_input_facet("%f")));
- }
- // special_values tests. prove the individual flags catch special_values
- // NOTE: these flags all by themselves will not parse a complete ptime,
- // these are *specific* special_values tests
- iss.str("+infinity -infinity");
- facet->format("%H");
- facet->time_duration_format("%H");
- iss >> pt;
- iss >> td;
- check_equal("Special value: ptime %H flag", pt, ptime(pos_infin));
- check_equal("Special value: time_duration %H flag", td, time_duration(neg_infin));
- iss.str("not-a-date-time +infinity");
- facet->format("%M");
- facet->time_duration_format("%M");
- iss >> pt;
- iss >> td;
- check_equal("Special value: ptime %M flag", pt, ptime(not_a_date_time));
- check_equal("Special value: time_duration %M flag", td, time_duration(pos_infin));
- iss.str("-infinity not-a-date-time ");
- facet->format("%S");
- facet->time_duration_format("%S");
- iss >> pt;
- iss >> td;
- check_equal("Special value: ptime %S flag", pt, ptime(neg_infin));
- check_equal("Special value: time_duration %S flag", td, time_duration(not_a_date_time));
- iss.str("+infinity -infinity");
- facet->format("%s");
- facet->time_duration_format("%s");
- iss >> pt;
- iss >> td;
- check_equal("Special value: ptime %s flag", pt, ptime(pos_infin));
- check_equal("Special value: time_duration %s flag", td, time_duration(neg_infin));
- iss.str("not-a-date-time +infinity");
- facet->format("%j");
- facet->time_duration_format("%f");
- iss >> pt;
- iss >> td;
- check_equal("Special value: ptime %j flag", pt, ptime(not_a_date_time));
- check_equal("Special value: time_duration %f flag", td, time_duration(pos_infin));
- // time_period tests - the time_period_parser is thoroughly tested in gregorian tests
- // default period format is closed range so last ptime is included in peiod
- iss.str("[2005-Jan-01 00:00:00/2005-Dec-31 23:59:59]");
- facet->format(time_input_facet::default_time_input_format); // reset format
- iss >> tp;
- check("Time period, default formats",
- (tp.begin() == ptime(date(2005,1,1),hours(0))) &&
- (tp.last() == ptime(date(2005,12,31),time_duration(23,59,59))) &&
- (tp.end() == ptime(date(2005,12,31),time_duration(23,59,59,1))) );
- {
- std::stringstream ss;
- ptime ptx(not_a_date_time);
- ptime pt2 = second_clock::local_time();
- ptime pt3(neg_infin);
- ptime pt4(pos_infin);
- time_period tpx(pt2, ptx); // ptime/nadt
- time_period tp2(ptx, ptx); // nadt/nadt
- time_period tp3(pt3, pt4);
- ss << tpx;
- ss >> tp2;
- check_equal("Special values period (reversibility test)", tpx, tp2);
- ss.str("[-infinity/+infinity]");
- ss >> tp2;
- check_equal("Special values period (infinities)", tp3, tp2);
- }
- // Failure tests
- // faliure tests for date elements tested in gregorian tests
- time_input_facet* facet2 = new time_input_facet();
- facet2->time_duration_format("%H:%M:%S""%f");
- check("Failure test: Missing frac_sec with %f flag (w/exceptions)",
- failure_test(td, "14:13:12 extra stuff", e_failure, facet2));
- time_input_facet* facet3 = new time_input_facet();
- facet3->time_duration_format("%H:%M:%S""%f");
- check("Failure test: Missing frac_sec with %f flag (no exceptions)",
- failure_test(td, "14:13:12 extra stuff", facet3));
- // Reversable format tests
- time_duration td_io(10,11,12,1234567);
- ptime pt_io(date(2004,03,15), td_io);
- time_facet* otp_facet = new time_facet();
- time_input_facet* inp_facet = new time_input_facet();
- std::stringstream ss;
- std::locale loc2(std::locale::classic(), otp_facet);
- ss.imbue(std::locale(loc2, inp_facet)); // imbue locale containing both facets
- ss.str("");
- ss << pt_io; // stream out pt_io
- ss >> pt;
- check_equal("Stream out one ptime then into another: default format", pt_io, pt);
- ss.str("");
- ss << td_io; // stream out td_io
- ss >> td;
- check_equal("Stream out one time_duration then into another: default format", td_io, td);
- td_io = time_duration(1,29,59); // no frac_sec, default format has %F
- pt_io = ptime(date(2004,2,29), td_io); // leap year
- ss.str("");
- ss << pt_io; // stream out pt_io
- ss >> pt;
- check_equal("Stream out one ptime then into another: default format", pt_io, pt);
- ss.str("");
- ss << td_io; // stream out td_io
- ss >> td;
- check_equal("Stream out one time_duration then into another: default format", td_io, td);
- td_io = time_duration(13,05,0); // no seconds as the next formats won't use them
- pt_io = ptime(date(2004,2,29), td_io); // leap year
- otp_facet->format("%Y-%jT%H:%M"); // extended ordinal
- inp_facet->format("%Y-%jT%H:%M");
- ss.str("");
- ss << pt_io; // stream out pt_io
- ss >> pt;
- check_equal("Stream out one ptime then into another: extended ordinal format", pt_io, pt);
- otp_facet->format("Time: %H:%M, Date: %B %d, %Y"); // custom format with extra words
- inp_facet->format("Time: %H:%M, Date: %B %d, %Y");
- ss.str("");
- ss << pt_io; // stream out pt_io
- ss >> pt;
- check_equal("Stream out one ptime then into another: custom format (" + ss.str() + ")", pt_io, pt);
- {
- // fully parameterized constructor - compile only test, all other features tested in gregorian
- boost::date_time::format_date_parser<date, char> fdp("%Y-%b-%d", std::locale::classic());
- special_values_parser svp; // default constructor
- period_parser pp; // default constructor
- boost::date_time::date_generator_parser<date, char> dgp; // default constructor
- time_input_facet tif("%Y-%m-%d %H:%M:%s", fdp, svp, pp, dgp);
- }
- // trac 13194 (https://svn.boost.org/trac10/ticket/13194)
- {
- const std::string value = "December 07:27:10.435945 5 2017";
- boost::posix_time::time_input_facet* facet4 = new boost::posix_time::time_input_facet("%B %H:%M:%s %e %Y");
- boost::posix_time::ptime ptx;
- check("trac 13194 %e on \"5\" failbit set", !failure_test(ptx, value, facet4)); // proves failbit was not set
- check_equal("trac 13194 %e on \" 5\" valid value", "2017-12-05T07:27:10.435945000", to_iso_extended_string(ptx));
- }
- // trac 12910
- {
- const std::string value = "263-08:09:10";
- boost::posix_time::time_input_facet* facet = new boost::posix_time::time_input_facet("%j-%H:%M:%S");
- boost::posix_time::ptime pt;
- check("trac 12910 %j without %Y no failbit", !failure_test(pt, value, facet)); // proves failbit was not set
- check_equal("trac 12910 %j without %Y value", "1400-09-20T08:09:10", to_iso_extended_string(pt));
- }
- #endif // USE_DATE_TIME_PRE_1_33_FACET_IO
- }
- int main(){
- try { //wrap all the tests -- we don't expect an exception
- do_all_tests();
- }
- catch(std::exception& e) {
- std::string failure("std::exception caught: ");
- failure += e.what();
- check(failure, false);
- }
- catch(...) {
- check("Unknown exception caught -- failing", false);
- }
- return printTestStats();
- }
|