diff --git a/tests/testthat/tests-cache.R b/tests/testthat/tests-cache.R index fd4e357..485922e 100644 --- a/tests/testthat/tests-cache.R +++ b/tests/testthat/tests-cache.R @@ -6,11 +6,9 @@ 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 + colnames <- c("size", "isdir", "mode", "mtime", "ctime", "atime", "uname") + expect_true(all(colnames %in% names(info))) }) test_that("'api_get' validates use_cache", {