tests/testthat/test-read-faa.R

test_that("read_faa returns a two column data frame", {

  bat_df <- read_faa(system.file("extdata/bat_protein.fasta", package = "ampir"))

  expect_s3_class(bat_df,"data.frame")

  expect_length(bat_df, 2)
})

Try the ampir package in your browser

Any scripts or data that you put into this service are public.

ampir documentation built on June 29, 2021, 9:09 a.m.