tests/testthat/test-get_package_deps.R

In robertdj/pkg.deps: Find package dependencies

test_that("Empty result for package with no non-base dependencies", {
    deps <- get_package_deps("remotes")

    expect_type(deps, "character")
    expect_length(deps, 0L)
})


test_that("Result for package with dependencies", {
    deps <- get_package_deps("purrr")

    expect_type(deps, "character")
    expect_gt(length(deps), 0L)
})


test_that("Verbose argument prints messages", {
    expect_message(get_package_deps("remotes", verbose = TRUE), "Reading package database from cache")
    expect_message(get_package_deps("remotes", verbose = TRUE), "Finding package dependencies")
})