test_that("example FASTA can be read and validated", {
  fasta <- asptf_example_fasta()
  expect_true(file.exists(fasta))
  dat <- asptf_read_fasta(fasta)
  expect_true(nrow(dat) > 0)
  val <- asptf_validate_sequences(dat)
  expect_equal(nrow(val), nrow(dat))
  expect_true(all(val$valid))
})