tests/testthat/test-set_alignment_by_index.R

In richelbilderbeek/wiritttes: WIRITTE simulation

context("set_alignment_by_index")

test_that("set_alignment_by_index: use", {
  file <- read_file(find_path("toy_example_1.RDa"))
  alignment <- get_alignment_by_index(file = file, i = 1)
  expect_true(ribir::is_alignment(alignment))
  alignment_new <- beastier:::create_random_alignment(
    n_taxa = 5,
    sequence_length = 10
  )

  expect_false(ribir::are_identical_alignments(alignment, alignment_new))
  file <- set_alignment_by_index(
    file = file,
    i = 1,
    alignment = alignment_new
  )
  alignment_new_again <- get_alignment_by_index(file = file, i = 1)
  expect_true(
    ribir::are_identical_alignments(alignment_new, alignment_new_again)
  )
})


test_that("set_alignment_by_index: abuse", {

  expect_error(
    set_alignment_by_index(
      file = read_file(find_path("toy_example_1.RDa")),
      i = 0,
      alignment = ape::rcoal(10)
    ),
    "index must be at least 1"
  )

  expect_error(
    set_alignment_by_index(
      file = read_file(find_path("toy_example_1.RDa")),
      i = 3,
      alignment = ape::rcoal(10)
    ),
    "index must be less than number of alignments"
  )

})