tests/testthat/test-create_pureseqtm_files.R

In richelbilderbeek/pureseqtmr: Predict Transmembrane Protein Topology

test_that("use", {
  if (!is_pureseqtm_installed()) return()

  fasta_filename <- get_example_filename("1bhaA.fasta")
  readLines(fasta_filename)
  filenames <- create_pureseqtm_files(fasta_filename)
  expect_equal(5, length(filenames))
  expect_true(all(file.exists((filenames))))
})