tests/testthat/test-03helpers_testthat.R

In Require: Installing and Loading R Packages for Reproducible Workflows

test_that("test 3", {

  setupInitial <- setupTest()
    # on.exit(endTest(setupInitial))

  isDev <- getOption("Require.isDev")

  out <- utils::capture.output(type = "message", Require:::messageDF(cbind(a = 1.1232),
                                                                     round = 2,
                                                                     verboseLevel = 1
  ))
  testthat::expect_true({
    is.character(out)
  })
  testthat::expect_true({
    is.numeric(as.numeric(tail(gsub(".*: ", "", out), 1)))
  })

  # 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)
  testthat::expect_true({
    isTRUE(all.equal(length(unique(checked)), 1))
  })

  # extra checks for missing/NA/NULL
  testthat::expect_true({
    isTRUE(all.equal(Require::normPath(), character()))
  })
  testthat::expect_true({
    all(is.na(Require::normPath(list(NA, NA_character_))))
  })
  testthat::expect_true({
    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)
  testthat::expect_true({
    isTRUE(all.equal(length(unique(checked)), 1))
  })
  unlink(tmpdir, recursive = TRUE)

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

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

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

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

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

  rst <- .rndstr(1, 6)
  testthat::expect_true({
    is.character(rst)
  })
  testthat::expect_true({
    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
  testthat::expect_true({
    length(b[[1]]) == length(a)
  })
  testthat::expect_true({
    length(b) == length(a[[1]])
  })

  out <- Require::tempfile2("rand")
  testthat::expect_true({
    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)
  testthat::expect_true({
    identical(a, f1)
  })
  testthat::expect_true({
    identical(modifyList(f1, f2), b)
  })
  testthat::expect_true({
    identical(modifyList(modifyList(f1, f2), f3), d)
  })
  mm <- modifyList2(f1, f2, f3, f4, keep.null = TRUE)
  testthat::expect_true("g" %in% names(mm))
  mm2 <- modifyList2(f1, f2, f3, f4, keep.null = FALSE)
  testthat::expect_true(!"g" %in% names(mm2))

})