added atime test

Author: venom1204

.ci/atime/tests.R

@@ -286,5 +286,18 @@ test.list <- atime::atime_test_list(
     Slow = "548410d23dd74b625e8ea9aeb1a5d2e9dddd2927",   # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/548410d23dd74b625e8ea9aeb1a5d2e9dddd2927)
     Fast = "c0b32a60466bed0e63420ec105bc75c34590865e"),  # Commit in the PR (https://github.com/Rdatatable/data.table/pull/7144/commits) that uses a much faster implementation
 
+  "tables() !recursive refactor in #2606" = atime::atime_test(
+    N = as.integer(10^seq(1, 4, by=0.5)),
+    setup = {
+      rm(list=ls()[grepl("^(dt|vec)_perf_test", ls())])
+      for (i in 1:N) {
+        assign(paste0("dt_perf_test", i), data.table(a=1))
+        assign(paste0("vec_perf_test", i), 1)
+      }
+    },
+    expr = data.table::tables(silent=TRUE),
+    "before" = "def1e47eea8822993a829e3fe8d36acc117d806b",
+    "after" = "8978cf201d8d228506e1e96d3eda7e542471720a"),
+
     tests=extra.test.list)
 # nolint end: undesirable_operator_linter.

R/tables.R

@@ -62,7 +62,7 @@ tables = function(mb=type_size, order.col="NAME", width=80L,
   } else {
     w = which(vapply_1b(objs, is.data.table))
     if (length(w)) {
-      found_items = lapply(w, function(i) list(name=names[i], obj=obj[[i]]))
+      found_items = lapply(w, function(i) list(name=names[i], obj=objs[[i]]))
     }
   }
   if (!length(found_items)) {

inst/tests/tests.Rraw

@@ -21549,7 +21549,7 @@ local({
     "lst_named$inner", "lst_unnamed[[1]]", "nested$l1$l2",
     "mixed[[1]]", "mixed$y",
     "mixed_nested$A[[1]]", "mixed_nested$A$q")
-  test(2335.1, out, expected)
+  test(2335.1, out, sort(expected))
 })
 local({
   dt <- data.table(val=42)
@@ -21568,5 +21568,5 @@ local({
   out <- tables(recursive=TRUE)$NAME
   test(2335.3, length(out), 2L)
   test(2335.4, "test_obj$unique" %in% out)
-  test(2335.5, sum(endsWith(out, "$dt_inner")), 1L)
+  test(2335.5, sum(grepl("\\$dt_inner$", out)), 1L)
 })