tests/testthat/test-check_can_create_dir_for_state_output_file.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("minimal use", {
  expect_silent(
    check_can_create_dir_for_state_output_file(
      beast2_options = create_beast2_options()
    )
  )
})

test_that("use impossible folder", {
  expect_equal(1 + 1, 2) # nolint to prevent 'Reason: empty test'
  # Not an impossible folder on Windows
  skip_on_os(os = "windows")

  expect_error(
    check_can_create_dir_for_state_output_file(
      beast2_options = create_beast2_options(
        output_state_filename = "/new_folder_in_root/cannot_work.xml.state"
      )
    ),
    "Cannot create folder"
  )
})