escape Date-IDate tests for old R (#7330)

Author: jangorecki

inst/tests/tests.Rraw

@@ -21589,14 +21589,16 @@ test(2335.5, isoyear("2019-12-30"), 2020L)
 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))
+if (getRversion() >= "4.3.0") { ## follow up of #7213, see #7321
+  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))
+}
 
 # fwrite: allow dec=',' with single column, #7227
 test(2337.1, fwrite(data.table(1), dec=","), NULL)