tests/testthat/test-deps-squash.R

In ErdaradunGaztea/woodendesc: Find Packages and Their Dependencies in Any 'R' Repository

# SETUP ----
mixed_pkgs <- c("httr2", "rlang", "versionsort")
unmixed_deps <- wood_dependencies(mixed_pkgs, repos = "local#all")
mixed_deps <- squash(unmixed_deps)

# TESTS ----
test_squashed(mixed_deps)

test_that("'origin' column contains only packages that were in dep list", {
  expect_subset(mixed_deps[["origin"]], mixed_pkgs)
})

test_that("'package' column is a concatenation of 'package' columns in dep list", {
  expect_equal(
    mixed_deps[["package"]],
    unname(do.call(c, lapply(unmixed_deps, `[[`, "package")))
  )
})

test_that("packages with no deps are omitted", {
  expect_setequal(
    unique(squash(filter_dependencies(unmixed_deps, "strong"))[["origin"]]),
    c("httr2", "rlang")
  )
})

test_that("empty deps returned if only empty and NULL entries provided", {
  expect_equal(
    squash(wood_dependencies(c("aix", "compiler"), repos = "core")),
    as_wood_dep_squashed(
      data.frame(
        origin = character(),
        package = character(),
        version = character(),
        type = character(),
        stringsAsFactors = FALSE
      )
    )
  )
})