tests/testthat/test-is_beast2_input_file.R

In richelbilderbeek/beastierinstall: Installs BEAST2 For Beastier

test_that("Run with spaces in the launcher.jar path, for Windows", {

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

  beast2_folder <- file.path(tempfile(), "path with spaces", "even more")
  install_beast2(folder_name = beast2_folder) # nolint Produces warnings, but cannot reproduce this
  expect_true(beastier::is_beast2_installed(folder_name = beast2_folder))
  beast2_path <- beastier::get_default_beast2_bin_path(beast2_folder = beast2_folder)
  expect_true(
    beastier::is_beast2_input_file(
      filename = beastier::get_beastier_path("anthus_2_4.xml"),
      beast2_path = beast2_path
    )
  )
})

test_that("show commands in output when verbose is TRUE", {
  if (!beautier::is_on_ci()) return()
  if (!beastier::is_beast2_installed()) return()

  beast2_folder <- tempfile(pattern = "beastier_")
  beastierinstall::install_beast2(folder_name = beast2_folder)

  expect_message(
    beastier::is_beast2_input_file(
      filename = beastier::get_beastier_path("anthus_2_4.xml"),
      beast2_path = beastier::get_default_beast2_bin_path(
        beast2_folder = beast2_folder
      ),
      verbose = TRUE
    ),
    beast2_folder
  )
})