tests/testthat/test_02_find_used_packages.R

context('find_used_packages')

test_that('find_used_packages finds the right file', {

  filename <- 'test_find_used_packages.R'
  test_dir <- 'find_used_packages'
  temp_dir <- tempdir()
  testpath <- file.path(temp_dir, test_dir)
  filepath <- file.path(testpath, filename)
  dir.create(testpath)

  con <- file(filepath)
  test_source <- 'library(dplyr)
  # library(notused)
  dplyr::filter()
  require(dplyr)'
  writeLines(text = test_source, con = con)
  result_dplyr <- find_used_packages(packages = 'dplyr', path = testpath)
  result_notused <- find_used_packages(packages = 'notused', path = testpath)
  close(con)

  expect_identical(result_dplyr[1, 1], filepath)
  expect_equal(length(result_notused), 0)

})
calligross/reinstallr documentation built on Nov. 27, 2021, 1:43 p.m.