tests/testthat/test-create_strict_clock_model.R

In richelbilderbeek/beautier: 'BEAUti' from R

test_that("use", {

  expect_true(
    is_strict_clock_model(
      create_strict_clock_model()
    )
  )

  expect_true(
    is_strict_clock_model(
      create_strict_clock_model(
        clock_rate_param = create_clock_rate_param(value = 3.14)
      )
    )
  )

  # Issue #139, Issue 139
  expect_true(
    is_strict_clock_model(
      create_strict_clock_model(
        rate_scaler_factor = 0.75
      )
    )
  )
})

test_that("simplified interface converts", {

  expect_true(
    is_strict_clock_model(
      create_strict_clock_model(
        clock_rate_param = 3.14
      )
    )
  )

  expect_true(
    is_strict_clock_model(
      create_strict_clock_model(
        clock_rate_param = "3.14"
      )
    )
  )
})

test_that("abuse", {

  expect_error(
    create_strict_clock_model(clock_rate_param = NA),
    "'clock_rate_param' must be a clock rate parameter"
  )

  expect_error(
    create_strict_clock_model(clock_rate_distr = NA),
    "'clock_rate_distr' must be a distribution"
  )

})