tests/testthat/test-convert_alignment_to_fasta.R

In richelbilderbeek/wiritttes: WIRITTE simulation

context("convert_alignment_to_fasta")

test_that("convert_alignment_to_fasta: use", {
  expect_equal(2 * 2, 4)
})

test_that("convert_alignment_to_fasta: abuse", {
  expect_error(
    convert_alignment_to_fasta(
      alignment = "invalid",
      filename = "test-convert_alignment_to_fasta.fasta"
    ),
    "alignment must be an alignment"
  )
})