tests/testthat/test-get_paths.R

context("get_tracerer_paths")

test_that("use", {

  testthat::expect_equal(
    c(
      tracerer:::get_tracerer_path("beast2_example_output.log"),
      tracerer:::get_tracerer_path("beast2_example_output.trees")
    ),
    tracerer:::get_tracerer_paths(
      c("beast2_example_output.log", "beast2_example_output.trees")
    )
  )

})
ropensci/tracerer documentation built on March 12, 2019, 8:30 p.m.