update cache_info() to reflect cross-platform file.info output

IQSS · Oct 15, 2024 · 4e29bbe · 4e29bbe
1 parent d8ae3ba
commit 4e29bbe
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/tests/testthat/tests-cache.R b/tests/testthat/tests-cache.R
@@ -6,11 +6,10 @@ test_that("cache management works", {
 
   info <- cache_info()
   expect_s3_class(info, "data.frame")
-  expect_setequal(
-    names(info),
-    c("size", "isdir", "mode", "mtime", "ctime", "atime", "uid", 
-      "gid", "uname", "grname")
-  )
+  ## subset of column names common across platforms; see ?file.info
+  ## 'uname' not available in Windows <= R 4.4.1
+  colnames <- c("size", "isdir", "mode", "mtime", "ctime", "atime")
+  expect_true(all(colnames %in% names(info)))
 })
 
 test_that("'api_get' validates use_cache", {