tests/testthat/test-set_mcbette_state.R

In richelbilderbeek/mcbetteinstall: Install 'babette'

test_that("set present state", {
  before <- mcbette::get_mcbette_state()
  expect_silent(set_mcbette_state(before))
  after <- mcbette::get_mcbette_state()
  expect_identical(before$beast2_installed, after$beast2_installed)
  expect_identical(before$ns_installed, after$ns_installed)
  expect_identical(before, after)
})

test_that("uninstall all", {

  if (!beautier::is_on_ci()) return()

  before <- mcbette::get_mcbette_state()

  state_neither <- list(beast2_installed = FALSE, ns_installed = FALSE)
  expect_silent(set_mcbette_state(state_neither))
  state_neither_again <- mcbette::get_mcbette_state()
  expect_identical(state_neither_again, state_neither)

  expect_silent(set_mcbette_state(before))
  after <- mcbette::get_mcbette_state()
  expect_identical(before, after)
})

test_that("uninstall all", {

  if (!beautier::is_on_ci()) return()

  before <- mcbette::get_mcbette_state()

  state_beast2 <- list(beast2_installed = TRUE, ns_installed = FALSE)
  expect_silent(set_mcbette_state(state_beast2))

  expect_silent(set_mcbette_state(before))
  after <- mcbette::get_mcbette_state()
  expect_identical(before, after)
})


test_that("uninstall all", {

  if (!beautier::is_on_ci()) return()

  before <- mcbette::get_mcbette_state()

  state_beast2_ns <- list(beast2_installed = TRUE, ns_installed = TRUE)
  expect_silent(set_mcbette_state(state_beast2_ns))

  expect_silent(set_mcbette_state(before))
  after <- mcbette::get_mcbette_state()
  expect_identical(before, after)
})