tests/testthat/test-get_clock_models_ids.R

context("get_clock_models_ids")

test_that("use", {

  a <- create_strict_clock_model(id = "a")
  b <- create_rln_clock_model(id = "b")

  testthat::expect_equal(
    get_clock_models_ids(list(a, b)),
    c("a", "b")
  )

})
richelbilderbeek/beastscriptr documentation built on April 9, 2024, 2:28 p.m.