restructure test

Author: Bill Evans

inst/tests/tests.Rraw

@@ -21143,11 +21143,8 @@ test(2314.1, any(grepl("<int>", tail(capture.output(print(dt, class = TRUE)), 2)
 test(2314.2, !any(grepl("<int>", tail(capture.output(print(dt, class = TRUE, col.names = "top")), 2))), TRUE)
 
 # issue #6898, test that tzone behavior changes with ignore_tzone=TRUE
-tm1 = .POSIXct(1, "UTC")
-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)
-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))
+tms = list(.POSIXct(1), .POSIXct(1, "UTC"))
+test(2315.1, between(tms[[1]], tms[[1]], tms[[2]]), error = "different tzone attributes")
+test(2315.2, between(tms[[1]], tms[[1]], tms[[2]], ignore_tzone=TRUE))
+test(2315.3, between(tms[[1]], tms[[2]], tms[[2]]), message = "mismatched tzone attributes")
+test(2315.4, between(tms[[1]], tms[[2]], tms[[2]], ignore_tzone=TRUE))