reduce tests to simply between()

Author: Bill Evans

inst/tests/tests.Rraw

@@ -21142,12 +21142,12 @@ test(2314.1, any(grepl("<int>", tail(capture.output(print(dt, class = TRUE)), 2)
 # Test that class=TRUE with col.names="top" doesn't show classes at bottom
 test(2314.2, !any(grepl("<int>", tail(capture.output(print(dt, class = TRUE, col.names = "top")), 2))), TRUE)
 
-# Test that tzone behavior stops warning with ignore_tzone=TRUE
+# issue #6898, test that tzone behavior changes with ignore_tzone=TRUE
 tm1 = .POSIXct(1, "UTC")
-dt1 = data.table(a = .POSIXct(0), b = .POSIXct(2, "UTC"))
-test(2315.1, dt1[, between(tm1, a, b)], error = "different tzone attributes")
-test(2315.2, dt1[, between(tm1, a, b, ignore_tzone=TRUE)])
+tms1 = list(.POSIXct(0), .POSIXct(2, "UTC"))
+test(2315.1, between(tm1, tms1[[1]], tms1[[2]]), error = "different tzone attributes")
+test(2315.2, between(tm1, tms1[[1]], tms1[[2]], ignore_tzone=TRUE))
 tm2 <- .POSIXct(1)
-dt2 = data.table(a = .POSIXct(0, "UTC"), b = .POSIXct(2, "UTC"))
-test(2315.3, dt2[, between(tm2, a, b)], message = "mismatched tzone attributes")
-test(2315.4, dt2[, between(tm2, a, b)])
+tms2 = list(.POSIXct(0, "UTC"), .POSIXct(2, "UTC"))
+test(2315.3, between(tm2, tms2[[1]], tms2[[2]]), message = "mismatched tzone attributes")
+test(2315.4, between(tm2, tms2[[1]], tms2[[2]], ignore_tzone=TRUE))