tests/testthat/test-install_tmhmm.R

In richelbilderbeek/tmhmm: Interface to TMHMM

test_that("use", {
  if (!is_on_ci()) return()
  if (!curl::has_internet()) return()
  if (!is_url_valid()) return()

  if (is_tmhmm_installed()) {
    uninstall_tmhmm()
    install_tmhmm()
    expect_true(is_tmhmm_installed())
  } else {
    install_tmhmm()
    expect_true(is_tmhmm_installed())
    uninstall_tmhmm()
  }
})