tests/testthat/test-check.R

In mrc-ide/conan: Conan the Librarian

context("check")

test_that("conan_check finds packages", {
  expect_equal(
    conan_check("stats", .libPaths()),
    list(complete = TRUE,
         found = "stats",
         missing = character(0)))
})


test_that("conan_check works with references", {
  expect_equal(
    conan_check(c("cran::stats", "org/unknownpkg"), .libPaths()),
    list(complete = FALSE,
         found = "stats",
         missing = "org/unknownpkg"))
})


test_that("conan_check works with references mixed with packages", {
  path <- tempfile()
  pkgs <- c("pkg1", "pkg2", "org/pkg2@ref")
  expect_equal(
    conan_check(pkgs, path),
    list(complete = FALSE,
         found = character(0),
         missing = pkgs))
})


test_that("conan_check works with paths", {
  path <- tempfile()
  pkgs <- c("pkg1", "pkg2", "pkg3", "org/pkg2@ref", "local::pkg3.tgz")
  expect_equal(
    conan_check(pkgs, path),
    list(complete = FALSE,
         found = character(0),
         missing = pkgs))
})