tests/testthat/test-is_jar_path.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("use", {
  check_empty_beaustier_folders()

  expect_true(is_jar_path(get_default_beast2_jar_path()))
  expect_true(is_jar_path("launcher.jar"))
  expect_true(is_jar_path("path with spaces/launcher.jar"))
  expect_true(is_jar_path("/path with spaces/more spaces/launcher.jar"))
  expect_false(is_jar_path(get_default_beast2_bin_path()))
  expect_false(is_jar_path("nonsense"))
  expect_false(is_jar_path(""))
  expect_false(is_jar_path(NA))
  expect_false(is_jar_path(NULL))
  expect_false(is_jar_path(Inf))

  check_empty_beaustier_folders()
})