Modify test_simple.R to accommodate more oddness on one platform

Author: eddelbuettel

inst/tinytest/test_simple.R

@@ -1,7 +1,9 @@
 
 isSolaris <- Sys.info()[["sysname"]] == "SunOS"
 isWindows <- Sys.info()[["sysname"]] == "Windows"
+isMacOS <- Sys.info()[["sysname"]] == "Darwin"     # not needed for winbuilder or r-univere but M1mac
 isFedora  <- anytime:::.isFedora()
+isWinOrMac <- isWindows || isMacOS
 
 ## We turn off tests on Solaris with some regret, yet firmly, as the
 ## combined inability of CRAN to provide us a test platform (to
@@ -47,45 +49,45 @@ if (isStupid) exit_file("Skipping Stupid (2 of 2)")
 
 ## Dates: Integer
 expect_equivalent(refD, anydate(20160101L + 0:2))
-if (!isWindows) expect_equal(refT, anytime(20160101L + 0:2, oldHeuristic=TRUE), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refT, anytime(20160101L + 0:2, oldHeuristic=TRUE), check.tzone=FALSE)
 
 ## Dates: Numeric
 expect_equivalent(refD, anydate(20160101 + 0:2))
-if (!isWindows) expect_equal(refT, anytime(20160101 + 0:2, oldHeuristic=TRUE), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refT, anytime(20160101 + 0:2, oldHeuristic=TRUE), check.tzone=FALSE)
 
 ## Dates: Factor
 expect_equivalent(refD, anydate(as.factor(20160101 + 0:2)))
-if (!isWindows) expect_equal(refT, anytime(as.factor(20160101 + 0:2)), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refT, anytime(as.factor(20160101 + 0:2)), check.tzone=FALSE)
 
 ## Dates: Ordered
 expect_equivalent(refD, anydate(as.ordered(20160101 + 0:2)))
-if (!isWindows) expect_equal(refT, anytime(as.ordered(20160101 + 0:2)), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refT, anytime(as.ordered(20160101 + 0:2)), check.tzone=FALSE)
 
 ## Dates: Character
 expect_equivalent(refD, anydate(as.character(20160101 + 0:2)))
-if (!isWindows) expect_equal(refT, anytime(as.character(20160101 + 0:2)), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refT, anytime(as.character(20160101 + 0:2)), check.tzone=FALSE)
 
 ## Dates: alternate formats
 expect_equivalent(refD, anydate(c("20160101", "2016/01/02", "2016-01-03")))
-if (!isWindows) expect_equal(refT, anytime(c("20160101", "2016/01/02", "2016-01-03")), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refT, anytime(c("20160101", "2016/01/02", "2016-01-03")), check.tzone=FALSE)
 
 ## Datetime: ISO with/without fractional seconds
 refPt <- as.POSIXct(as.POSIXlt(c("2016-01-01 10:11:12", "2016-01-01 10:11:12.345678")))
-if (!isWindows) expect_equal(refPt, anytime(c("2016-01-01 10:11:12", "2016-01-01 10:11:12.345678")), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refPt, anytime(c("2016-01-01 10:11:12", "2016-01-01 10:11:12.345678")), check.tzone=FALSE)
 
 ## Datetime: ISO alternate (?) with 'T' separator
 ## Only works with ' '
-if (!isWindows) expect_equal(refPt, anytime(c("20160101 101112", "20160101 101112.345678")), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refPt, anytime(c("20160101 101112", "20160101 101112.345678")), check.tzone=FALSE)
 
 ## Datetime: textual month formats
 ref3 <- rep(as.POSIXct(as.POSIXlt("2016-09-01 10:11:12")), 3)
-if (!isWindows) expect_equal(ref3,
-                             anytime(c("2016-Sep-01 10:11:12", "Sep/01/2016 10:11:12",
-                                       "Sep-01-2016 10:11:12")), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(ref3,
+                              anytime(c("2016-Sep-01 10:11:12", "Sep/01/2016 10:11:12",
+                                        "Sep-01-2016 10:11:12")), check.tzone=FALSE)
 
 ## Datetime: Mixed format (cf http://stackoverflow.com/questions/39259184)
-if (!isWindows) expect_equal(refPt,
-                             anytime(c("Thu Jan 01 10:11:12 2016", "Thu Jan 01 10:11:12.345678 2016")), check.tzone=FALSE)
+if (!isWinOrMac) expect_equal(refPt,
+                              anytime(c("Thu Jan 01 10:11:12 2016", "Thu Jan 01 10:11:12.345678 2016")), check.tzone=FALSE)
 
 ## Datetime: pre/post DST
 anytime(c("2016-01-31 12:13:14", "2016-08-31 12:13:14"))