tests/testthat/test-assert_package.R

In larmarange/broom.helpers: Helpers for Model Coefficients Tibbles

test_that(".assert_package() works", {
  # broom will always be installed with broom.helpers
  expect_error(
    .assert_package("broom"),
    NA
  )
  expect_true(.assert_package("broom", boolean = TRUE))

  expect_false(.assert_package("br000000m", boolean = TRUE))

  mv <- c(Suggests = "1.1.28")
  attr(mv, "compare") <- ">="
  expect_equal(
    .get_min_version_required("lme4"),
    mv
  )
  expect_null(
    .get_min_version_required("brms", pkg_search = NULL)
  )
  expect_null(
    .get_min_version_required("broom", pkg_search = NULL)
  )

  expect_error(
    df_deps <- .get_package_dependencies(),
    NA
  )

  expect_true(
    df_deps |> inherits("data.frame")
  )

  expect_equal(
    names(df_deps),
    c("pkg_search", "pkg_search_version", "dependency_type", "pkg", "version", "compare")
  )

  expect_error(
    deps <- .get_all_packages_dependencies(),
    NA
  )
  expect_true(nrow(deps) > 100)

  skip_if(interactive())
  # expect an error msg for pkg that doesn't exist
  # note: if interactive(), user will be invited to install the missing pkg
  expect_error(
    .assert_package("br000000m")
  )
  expect_error(
    .assert_package("br000000m", fn = "test_fun()")
  )
})