tests/testthat/test-read_fastq.R

In s-andrews/packagetest: What the Package Does (One Line, Title Case)

test_that("FastQ Reading Tests", {
  expect_equal(ncol(read_fastq(system.file("good.fq",package="packagetest"))), 4)
  expect_equal(nrow(read_fastq(system.file("good.fq",package="packagetest"))), 1000)
  expect_error(read_fastq(system.file("broken_format.fq",package="packagetest")))
  expect_error(read_fastq(system.file("duplicate_ids.fq",package="packagetest")))
  expect_error(read_fastq(system.file("mismatched_lengths.fq",package="packagetest")))
  expect_error(read_fastq(system.file("wrong_extension.fa",package="packagetest")))
})