unit tests for Date(time) formatters

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,9 @@
+2016-11-28  Dirk Eddelbuettel  <edd@debian.org>
+
+        * inst/unitTests/cpp/dates.cpp (Date_format, Datetime_format): New tests
+        * inst/unitTests/runit.Date.R (test.Date.formating): Ditto
+        (test.Datetime.formating): Ditto
+
 2016-11-27  Dirk Eddelbuettel  <edd@debian.org>
 
         * inst/include/Rcpp/date_datetime/Date.h (format, operator<<): Added

inst/unitTests/cpp/dates.cpp

@@ -171,4 +171,14 @@ DatetimeVector DatetimeVector_assignment(DatetimeVector v1,
 DateVector DateVector_assignment(DateVector v1, DateVector v2) {
     v1 = v2;
     return v1;
-}
+}
+
+// [[Rcpp::export]]
+std::string Date_format(Date d, std::string fmt) {
+    return d.format(fmt.c_str());
+}
+
+// [[Rcpp::export]]
+std::string Datetime_format(Datetime d, std::string fmt) {
+    return d.format(fmt.c_str());
+}

inst/unitTests/runit.Date.R

@@ -181,19 +181,56 @@ if (.runThisTest) {
             checkEquals(fun(vec), c(now, rep(posixtNA, 3), now+2.345), msg = "Datetime.ctor.NA.NaN.Inf.set")
         }
     }
-    
+
     test.DatetimeVector.assignment <- function() {
         now <- Sys.time()
         v1 <- c(now, now + 1, now + 2)
         v2 <- c(now + 3, now + 4, now + 5)
         checkEquals(v2, DatetimeVector_assignment(v1, v2))
     }
-    
+
     test.DateVector.assignment <- function() {
         now <- Sys.Date()
         v1 <- c(now, now + 1, now + 2)
         v2 <- c(now + 3, now + 4, now + 5)
         checkEquals(v2, DateVector_assignment(v1, v2))
     }
 
+
+    ## formatting
+    test.Date.formating <- function() {
+        oldTZ <- Sys.getenv("TZ")
+        Sys.setenv(TZ="America/Chicago")
+        d <- as.Date("2011-12-13")
+
+        checkEquals(Date_format(d, "%Y-%m-%d"),
+                    format(d),
+                    msg="Date.formating.default")
+        checkEquals(Date_format(d, "%Y/%m/%d"),
+                    format(d, "%Y/%m/%d"),
+                    msg="Date.formating.given.format")
+
+        Sys.setenv(TZ=oldTZ)
+    }
+
+    test.Datetime.formating <- function() {
+        oldTZ <- Sys.getenv("TZ")
+        Sys.setenv(TZ="America/Chicago")
+
+        olddigits <- getOption("digits.secs")
+        options("digits.secs"=6)
+
+        d <- as.POSIXct("2016-12-13 14:15:16.123456")
+        checkEquals(Datetime_format(d,"%Y-%m-%d %H:%M:%S"),
+                    format(d, "%Y-%m-%d %H:%M:%OS"),
+                    msg="Datetime.formating.default")
+        checkEquals(Datetime_format(d, "%Y/%m/%d %H:%M:%S"),
+                    format(d, "%Y/%m/%d %H:%M:%OS"),
+                    msg="Datetime.formating.given.format")
+
+        Sys.setenv(TZ=oldTZ)
+        options("digits.secs"=olddigits)
+    }
+
+
 }