tests/testit/test-3helpers.R

In Require: Installing and Loading R Packages for Reproducible Workflows

setupInitial <- setupTest()
out <- utils::capture.output(type = "message", Require:::messageDF(cbind(a = 1.1232),
  round = 2,
  verboseLevel = 1
))
testit::assert({
  is.character(out)
})
testit::assert({
  is.numeric(as.numeric(gsub(".*: ", "", out)[2]))
})

# don't use checkPath here because we are testing normPath!
tmpdir <- Require::tempdir2("test_normPath")
tmpdir <- normalizePath(tmpdir, winslash = "/", mustWork = FALSE)

setwd(tmpdir)

paths <- list(
  "./aaa/zzz",
  "./aaa/zzz/",
  ".//aaa//zzz",
  ".//aaa//zzz/",
  ".\\aaa\\zzz",
  ".\\aaa\\zzz\\",
  paste0(tmpdir, "/aaa/zzz"), # nolint
  paste0(tmpdir, "/aaa/zzz/"), # nolint
  file.path(tmpdir, "aaa", "zzz")
)

checked <- Require::normPath(paths)
testit::assert({
  isTRUE(all.equal(length(unique(checked)), 1))
})

# extra checks for missing/NA/NULL
testit::assert({
  isTRUE(all.equal(Require::normPath(), character()))
})
testit::assert({
  all(is.na(Require::normPath(list(NA, NA_character_))))
})
testit::assert({
  isTRUE(all.equal(Require::normPath(NULL), character()))
})

currdir <- getwd()

# don't use checkPath here because we are testing checkPath
tmpdir <- Require::tempdir2("test_checkPath")

setwd(tmpdir)

dir.create("aaa/zzz", recursive = TRUE, showWarnings = FALSE)
paths <- list(
  "./aaa/zzz",
  "./aaa/zzz/",
  ".//aaa//zzz",
  ".//aaa//zzz/",
  ".\\aaa\\zzz",
  ".\\aaa\\zzz\\",
  paste0(tmpdir, "/aaa/zzz"), # nolint
  paste0(tmpdir, "/aaa/zzz/"), # nolint
  file.path(tmpdir, "aaa", "zzz")
)

checked <- lapply(paths, checkPath, create = FALSE)
testit::assert({
  isTRUE(all.equal(length(unique(checked)), 1))
})
unlink(tmpdir, recursive = TRUE)

# extra checks for missing/NA/NULL
testit::assert({
  isTRUE(
    tryCatch(Require::checkPath(),
      "Invalid path: no path specified.",
      error = function(x) TRUE
    )
  )
})

testit::assert({
  isTRUE(
    tryCatch(Require::checkPath(NULL), "Invalid path: cannot be NULL.", error = function(x) TRUE)
  )
})

testit::assert({
  isTRUE(
    tryCatch(Require::checkPath(NA_character_),
      "Invalid path: cannot be NA.",
      error = function(x) TRUE
    )
  )
})

# Case where it is an existing fle
f1 <- tempfile()
testit::assert({
  file.create(f1)
}) ## TRUE
testit::assert({
  file.exists(f1)
}) ## TRUE

opts <- options(Require.verbose = 0)
out <- utils::capture.output(type = "message", {
  a <- Require::checkPath(f1)
})
options(opts)
testit::assert({
  isTRUE(grepl("is an existing file", out))
})

rst <- .rndstr(1, 6)
testit::assert({
  is.character(rst)
})
testit::assert({
  nchar(rst) == 6
})

a <- list(a = list(d = 1, e = 2:3, f = 4:6), b = list(d = 5, e = 55))
b <- Require::invertList(a) # creates 2-deep, now 3 levels outer --> 2 levels inner
testit::assert({
  length(b[[1]]) == length(a)
})
testit::assert({
  length(b) == length(a[[1]])
})

out <- Require::tempfile2("rand")
testit::assert({
  isTRUE(all.equal(
    Require::normPath(dirname(out)),
    Require::normPath(file.path(Require::tempdir2(), "rand"))
  ))
})

f1 <- list(a = 1, e = 3)
f2 <- list(a = 2, b = 3)
f3 <- list(d = 3, b = 5)
f4 <- list(g = NULL)

a <- modifyList2(f1, keep.null = TRUE)
b <- modifyList2(f1, f2, keep.null = TRUE)
d <- modifyList2(f1, f2, f3, keep.null = TRUE)
testit::assert({
  identical(a, f1)
})
testit::assert({
  identical(modifyList(f1, f2), b)
})
testit::assert({
  identical(modifyList(modifyList(f1, f2), f3), d)
})
mm <- modifyList2(f1, f2, f3, f4, keep.null = TRUE)
testit::assert("g" %in% names(mm))
mm2 <- modifyList2(f1, f2, f3, f4, keep.null = FALSE)
testit::assert(!"g" %in% names(mm2))

endTest(setupInitial)