tests/testthat/test-get_beautier_paths.R

context("get_beautier_paths")

test_that("use", {

  testthat::expect_equal(
    c(
      beautier::get_beautier_path("anthus_nd2.fas"),
      beautier::get_beautier_path("anthus_nd3.fas")
    ),
    beautier::get_beautier_paths(c("anthus_nd2.fas", "anthus_nd3.fas"))
  )

})
richelbilderbeek/beastscriptr documentation built on Nov. 5, 2023, 8:36 p.m.