added atime performance test

Author: Mukulyadav2004

.ci/atime/tests.R

@@ -286,5 +286,17 @@ 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
 
+    # Test case adapted from https://github.com/Rdatatable/data.table/issues/4177 which is where the issue was reported.
+    # Fixed in  https://github.com/Rdatatable/data.table/pull/7236
+    "fwrite select parameter improved in #4177" = atime::atime_test(
+    setup = {
+      set.seed(1)
+      DT = data.table(a = rnorm(N), b = rnorm(N), c = rnorm(N), d = rnorm(N), e = rnorm(N))
+      temp_file = tempfile()
+    },
+    expr = data.table::fwrite(DT, temp_file, select = c("a", "b", "c")),
+    Slow = "66cb6d2393cef30083b444346a7600a079207806",    # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)
+    Fast = "1887699fe965b5aa1fb8cb16b5507b7a5cbf5c85"),   # Commit in the PR (https://github.com/Rdatatable/data.table/pull/4177/commits) that adds select parameter
+
     tests=extra.test.list)
 # nolint end: undesirable_operator_linter.