tests/testthat/test_function_pathlist.R

In hsonne/pathlist: Package Supporting the Work with File Paths

test_that("Initialising a pathlist object works", {

  paths <- c("r/abc", "r/abc/d", "r/abc/e")
  pl <- pathlist::pathlist(paths = paths)

  testthat::expect_identical(pl@root, "r")
  testthat::expect_identical(pl@folders[, 1], c("abc", "abc", "abc"))
  testthat::expect_identical(pl@folders[, 2], c("", "d", "e"))
  testthat::expect_identical(pl@depths, c(1L, 2L, 2L))

  testthat::expect_identical(as.character(pl[pl@depths > 10]), character())

  paths <- c("a1/b1", "a1/b2", "a2/b1", "a2/b1/c1")
  pl <- pathlist::pathlist(paths)
  testthat::expect_identical(paths, as.character(pl))
})