tweak tests

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -10342,7 +10342,7 @@ test(1673.1, TT + 4L, as.IDate("2016-04-29"))
 test(1673.2, TT + 4, as.IDate("2016-04-29"))
 test(1673.3, TT - 3, as.IDate("2016-04-22"))
 test(1673.4, TT - 3L, as.IDate("2016-04-22"))
-test(1673.5, all.equal(as.IDate("2016-04-28") - as.IDate("2016-04-20"), as.difftime(8, units='days')))
+test(1673.5, options=c(datatable.old.diff.idate=FALSE), all.equal(as.IDate("2016-04-28") - as.IDate("2016-04-20"), as.difftime(8, units='days')))
 
 
 # test for radix integer order when MAXINT is present AND decreasing=TRUE AND na.last=FALSE
@@ -21587,12 +21587,16 @@ test(2335.6, isoyear(as.Date("2019-12-30")), 2020L)
 # t1-t2 for Date/IDate should be consistent, modulo storage mode #4979
 t1 = as.IDate("2025-07-01")
 t2 = as.IDate("2025-06-01")
-test(2336.1, all.equal(as.Date(t1) - as.Date(t2), t1 - t2))
-test(2336.2, all.equal(as.Date(t2) - as.Date(t1), t2 - t1))
-test(2336.3, all.equal(as.Date(t1) - t2, t1 - t2))
-test(2336.4, all.equal(as.Date(t2) - t1, t2 - t1))
-test(2336.5, all.equal(t1 - as.Date(t2), t1 - t2))
-test(2336.6, all.equal(t2 - as.Date(t1), t2 - t1))
+test(2336.01, options=c(datatable.old.diff.idate=FALSE), all.equal(as.Date(t1) - as.Date(t2), t1 - t2))
+test(2336.02, options=c(datatable.old.diff.idate=FALSE), all.equal(as.Date(t2) - as.Date(t1), t2 - t1))
+test(2336.03, options=c(datatable.old.diff.idate=FALSE), all.equal(as.Date(t1) - t2, t1 - t2))
+test(2336.04, options=c(datatable.old.diff.idate=FALSE), all.equal(as.Date(t2) - t1, t2 - t1))
+test(2336.05, all.equal(t1 - as.Date(t2), t1 - t2))
+test(2336.06, all.equal(t2 - as.Date(t1), t2 - t1))
+test(2336.07, all.equal(as.numeric(as.Date(t1) - as.Date(t2)), as.numeric(t1 - t2)))
+test(2336.08, all.equal(as.numeric(as.Date(t2) - as.Date(t1)), as.numeric(t2 - t1)))
+test(2336.09, all.equal(as.numeric(as.Date(t1) - t2), as.numeric(t1 - t2)))
+test(2336.10, all.equal(as.numeric(as.Date(t2) - t1), as.numeric(t2 - t1)))
 
 # fwrite: allow dec=',' with single column, #7227
 test(2337.1, fwrite(data.table(1), dec=","), NULL)