tests/testthat/test-getSummary.R

test_that("Example file is loaded correctly", {
  # Define the example file with known structure
  df <- getSummary(fl[[1]])
  expect_equal(names(df), c("Status", "Category", "Filename"))
  expect_equal(nrow(df), 12)
})

closeAllConnections()
UofABioinformaticsHub/fastqcReports documentation built on July 23, 2024, 3:26 p.m.