tests/testthat/test-set_alignment.R

In richelbilderbeek/wiritttes: WIRITTE simulation

context("set_alignment")

test_that("set_alignment: abuse", {

  expect_error(
    set_alignment(
      file = read_file(find_path("toy_example_1.RDa")),
      sti = -314, ai = 1,
      alignment = ape::rcoal(10)
    ),
    "sti must be at least 1"
  )

  expect_error(
    set_alignment(
      file = read_file(find_path("toy_example_1.RDa")),
      sti = 314, ai = 1,
      alignment = ape::rcoal(10)
    ),
    "sti must at most be 2"
  )

  expect_error(
    set_alignment(
      file = read_file(find_path("toy_example_1.RDa")),
      sti = 1, ai = -314,
      alignment = ape::rcoal(10)
    ),
    "ai must be at least 1"
  )
  expect_error(
    set_alignment(
      file = read_file(find_path("toy_example_1.RDa")),
      sti = 1, ai = 314,
      alignment = ape::rcoal(10)
    ),
    "ai must at most be napst"
  )
  expect_error(
    set_alignment(
      file = read_file(find_path("toy_example_1.RDa")),
      sti = 1, ai = 1,
      alignment = "not a alignment"
    ),
    "alignment must be an alignment"
  )


})