tests/testthat/test-get_tree_filename.R

In richelbilderbeek/razzo: The Error if Nature is MBD

test_that("use", {
  expect_equal(
    get_tree_filename(folder_name = "", tree_type = "true"),
    "/mbd.tree"
  )
  expect_equal(
    get_tree_filename(folder_name = "", tree_type = "twin"),
    "/mbd_twin.tree"
  )
})