tests/testthat/test-example.R

test_that("NULL path returns names of example files", {
  example_files <- phylotypr_example()
  expect_true("miseq_sop.fasta.gz" %in% example_files)
  expect_true(is.character(example_files))
})

test_that("providing example file name returns full path", {
  expect_true(file.exists(phylotypr_example("miseq_sop.fasta.gz")))
})

Try the phylotypr package in your browser

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

phylotypr documentation built on April 3, 2025, 5:51 p.m.