..

Author: venom1204

.ci/atime/tests.R

@@ -289,17 +289,19 @@ test.list <- atime::atime_test_list(
   "tables() !recursive refactor in #2606" = atime::atime_test(
     setup = {
       test_env <- new.env()
-      for (i in 1:N) {
-        assign(paste0("dt_perf_test", i), data.table(a=1), envir = test_env)
-        assign(paste0("vec_perf_test", i), 1, envir = test_env)
-      }
+      local({
+        for (i in 1:N) {
+          assign(paste0("dt_perf_test", i), data.table(a=1), envir = test_env)
+          assign(paste0("vec_perf_test", i), 1, envir = test_env)
+        }
+      })
     },
     expr = {
       data.table::tables(env = test_env, silent = TRUE, index = TRUE);
       NULL
     },
     before = "2b191aec3df51675a7ab5e6701384a8b89470af6",  # The merge-base parent commit for PR #2606
     after =  "66024e6ea5304ae059b18c71de9973715ddb77ce"), # The final commit of PR #2606
-
+  
     tests=extra.test.list)
 # nolint end: undesirable_operator_linter.