Add tests for issue #135

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2025-05-25  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/tinytest/test_gh_issue_135.R: Add tests for #135
+
 2025-05-21  Dirk Eddelbuettel  <edd@debian.org>
 
 	* DESCRIPTION (Version, Date): Roll minor version and date

inst/tinytest/test_gh_issue_135.R

@@ -0,0 +1,22 @@
+
+library(anytime)
+
+expect_silent(dv <- anydate(integer()))
+expect_true(inherits(dv, "Date"))
+expect_equal(length(dv), 0L)
+expect_equal(dv, as.Date(double(), origin="1970-01-01")) # origin for R < 4.3.0
+
+expect_silent(dv <- anydate(numeric()))
+expect_true(inherits(dv, "Date"))
+expect_equal(length(dv), 0L)
+expect_equal(dv, as.Date(double(), origin="1970-01-01")) # origin for R < 4.3.0
+
+expect_silent(dv <- anytime(integer()))
+expect_true(inherits(dv, "POSIXct"))
+expect_equal(length(dv), 0L)
+expect_equal(dv, as.POSIXct(double(), origin="1970-01-01"))  # origin for R < 4.3.0
+
+expect_silent(dv <- anytime(numeric()))
+expect_true(inherits(dv, "POSIXct"))
+expect_equal(length(dv), 0L)
+expect_equal(dv, as.POSIXct(double(), origin="1970-01-01"))  # origin for R < 4.3.0