tests/testthat/test_phred.R

In ddiez/ngstools: Miscellaneous Tools for the Analysis of NGS Data

context("Phred score")

f <- system.file("files/example_1.fastq.gz", package = "ngstools")
d <- get_phred(f)

test_that("result is correct", {
  expect_is(d, "data.frame")
  expect_true(nrow(d) == 1L)
  expect_identical(d[, "phred"], "phred33")
})

d <- get_bowtie2_phred(f)

test_that("result is correct", {
  expect_is(d, "data.frame")
  expect_true(nrow(d) == 1L)
  expect_identical(d[, "phred"], "--phred33")
})