refined test.Datetime.formatting for Windoze

Author: eddelbuettel

ChangeLog

@@ -3,8 +3,8 @@
         * src/Date.cpp (Rcpp): Protect assignment to tm_gmtoff to not being
         under MinGW; could potentially bite other too-limited systems
 
-        * inst/unitTests/runit.Date.R (test.Datetime.formating): Condition one
-        test out if on Windows
+        * inst/unitTests/runit.Date.R (test.Datetime.formating): Do not set TZ
+        when running test, only set digits option
 
 2017-01-01  Dirk Eddelbuettel  <[email protected]>
 

inst/unitTests/runit.Date.R

@@ -217,27 +217,21 @@ if (.runThisTest) {
     }
 
     test.Datetime.formating <- function() {
-        if (Sys.info()[["sysname"]] != "Windows") {
-            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")
-            checkEquals(Datetime_ostream(d),
-                        format(d, "%Y-%m-%d %H:%M:%OS"),
-                        msg="Datetime.formating.ostream")
-
-            Sys.setenv(TZ=oldTZ)
-            options("digits.secs"=olddigits)
-        }
+        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")
+        checkEquals(Datetime_ostream(d),
+                    format(d, "%Y-%m-%d %H:%M:%OS"),
+                    msg="Datetime.formating.ostream")
+
+        options("digits.secs"=olddigits)
     }