tests/testthat/test-get_default_beast2_bin_path.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("default locations", {

  if (rappdirs::app_dir()$os == "unix") {
    expect_true(
      grepl(
        "/home/[A-Za-z0-9_]*/.local/share/beast/bin/beast", # nolint use an absolute path here
        get_default_beast2_bin_path()
      )
    )
  }
  if (rappdirs::app_dir()$os == "win") {
    expect_true(
      grepl(
        "C:\\\\Users\\\\", # nolint use an absolute path here
        get_default_beast2_bin_path()
      )
    )
  }

})

test_that("must exist", {
  expect_equal(1 + 1, 2) # nolint to prevent 'Reason: empty test'
  if (!is_beast2_installed()) return()
  expect_true(
    file.exists(get_default_beast2_bin_path())
  )
  # beastierinstall::clear_beautier_cache(); beastierinstall::clear_beastier_cache() # nolint
})

test_that("custom location", {

  if (rappdirs::app_dir()$os == "unix") {
    expect_equal(
      "something/beast/bin/beast", # nolint use an absolute path here
      get_default_beast2_bin_path(beast2_folder = "something")
    )
  }
})