tests/testthat/test-get_paths.R

In richelbilderbeek/mauricer: Work with 'BEAST2' Packages

test_that("use", {

  testthat::expect_equal(
    c(
      get_mrc_path("anthus_aco_sub.fas"),
      get_mrc_path("anthus_nd2_sub.fas")
    ),
    get_mrc_paths(c("anthus_aco_sub.fas", "anthus_nd2_sub.fas"))
  )

  beastier::remove_beaustier_folders()
  expect_silent(beastier::check_empty_beaustier_folders())
})