tests/testthat/test-is_beast2_pkg_installed.R

In richelbilderbeek/mauricer: Work with 'BEAST2' Packages

test_that("use", {

  if (!beastier::is_beast2_installed()) return()
  if (!curl::has_internet()) return()

  df <- get_beast2_pkg_names()
  name <- df[df$installed_version == "NA", ]$name[1]
  expect_false(is_beast2_pkg_installed(name))

  beastier::remove_beaustier_folders()
  expect_silent(beastier::check_empty_beaustier_folders())
})

test_that("can install NS in two equivalent ways", {

  if (!beastier::is_beast2_installed()) return()
  if (!curl::has_internet()) return()

  expect_equal(
    is_beast2_pkg_installed("NS"),
    is_beast2_ns_pkg_installed()
  )

  beastier::remove_beaustier_folders()
  expect_silent(beastier::check_empty_beaustier_folders())
})

test_that("return NULL without internet", {

  # No internet, so it should return NULL
  expect_null(
    is_beast2_pkg_installed(
      "irrelevant",
      has_internet = FALSE
    )
  )

  beastier::remove_beaustier_folders()
  expect_silent(beastier::check_empty_beaustier_folders())
})