two more test for Date formatting

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2016-12-03  Dirk Eddelbuettel  <edd@debian.org>
+
+        * inst/unitTests/cpp/dates.cpp (Datetime_format): Additional ostream tests
+        * inst/unitTests/runit.Date.R (test.Date.formating): Ditto
+
 2016-11-29  Dirk Eddelbuettel  <edd@debian.org>
 
         * DESCRIPTION (Version, Date): Roll minor version to 0.12.8.2

inst/unitTests/cpp/dates.cpp

@@ -182,3 +182,17 @@ std::string Date_format(Date d, std::string fmt) {
 std::string Datetime_format(Datetime d, std::string fmt) {
     return d.format(fmt.c_str());
 }
+
+// [[Rcpp::export]]
+std::string Date_ostream(Date d) {
+    std::stringstream os;
+    os << d;
+    return os.str();
+}
+
+// [[Rcpp::export]]
+std::string Datetime_ostream(Datetime d) {
+    std::stringstream os;
+    os << d;
+    return os.str();
+}

inst/unitTests/runit.Date.R

@@ -209,6 +209,9 @@ if (.runThisTest) {
         checkEquals(Date_format(d, "%Y/%m/%d"),
                     format(d, "%Y/%m/%d"),
                     msg="Date.formating.given.format")
+        checkEquals(Date_ostream(d),
+                    format(d),
+                    msg="Date.formating.ostream")
 
         Sys.setenv(TZ=oldTZ)
     }
@@ -227,6 +230,9 @@ if (.runThisTest) {
         checkEquals(Datetime_format(d, "%Y/%m/%d %H:%M:%S"),
                     format(d, "%Y/%m/%d %H:%M:%OS"),
                     msg="Datetime.formating.given.format")
+        checkEquals(Datetime_ostream(d),
+                    format(d, "%Y-%m-%d %H:%M:%OS"),
+                    msg="Datetime.formating.ostream")
 
         Sys.setenv(TZ=oldTZ)
         options("digits.secs"=olddigits)