tests/testthat/test-are_identical_alignments.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("are_identical_alignments: use", {
  check_empty_beaustier_folders()

  p <- create_random_alignment(
    n_taxa = 5,
    sequence_length = 10
  )
  q <- create_random_alignment(
    n_taxa = 5,
    sequence_length = 10
  )
  expect_true(are_identical_alignments(p, p))
  expect_true(are_identical_alignments(q, q))
  expect_false(are_identical_alignments(p, q))
})

test_that("are_identical_alignments: abuse", {

  p <- create_random_alignment(
    n_taxa = 5,
    sequence_length = 10
  )
  expect_error(
    are_identical_alignments("Not a phylogeny", p),
    "p must be an alignment"
  )
  expect_error(
    are_identical_alignments(p, "Not a phylogeny"),
    "q must be an alignment"
  )
  check_empty_beaustier_folders()
})