Weaken testing of Date, POSIXct objects

MichaelChirico · web-flow · commit aa1ca467a5b1 · 2025-04-17T13:32:40.000-07:00
diff --git a/R/test.data.table.R b/R/test.data.table.R
@@ -515,6 +515,8 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no
   }
   if (!fail && !length(error) && (!length(output) || !missing(y))) {   # TODO test y when output=, too
     capture.output(y <- try(y, silent=TRUE)) # y might produce verbose output, just toss it
+    if (inherits(x, c("Date", "POSIXct"))) storage.mode(x) <- "numeric"
+    if (inherits(y, c("Date", "POSIXct"))) storage.mode(y) <- "numeric"
     if (identical(x,y)) return(invisible(TRUE))
     all.equal.result = TRUE
     if (is.data.frame(x) && is.data.frame(y)) {

Original file line number	Diff line number	Diff line change
`@@ -515,6 +515,8 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no`
`515`	`515`	`}`
`516`	`516`	`if (!fail && !length(error) && (!length(output) \|\| !missing(y))) { # TODO test y when output=, too`
`517`	`517`	`capture.output(y <- try(y, silent=TRUE)) # y might produce verbose output, just toss it`
	`518`	`+ if (inherits(x, c("Date", "POSIXct"))) storage.mode(x) <- "numeric"`
	`519`	`+ if (inherits(y, c("Date", "POSIXct"))) storage.mode(y) <- "numeric"`
`518`	`520`	`if (identical(x,y)) return(invisible(TRUE))`
`519`	`521`	`all.equal.result = TRUE`
`520`	`522`	`if (is.data.frame(x) && is.data.frame(y)) {`