tests/testthat/test_list_reports.R

In oicr-gsi/acquacotta-shiny-run-report: R Shiny App to Display Run Reports Generated by the OICR Sequencing Pipeline

context("Loading Run Report files")

test_that("Loading of clean data", {
  dt <- listRunReports("./test_list_reports_data/good")

  expect_equal(nrow(dt), 2)
  expect_equal(
    sort(colnames(dt)),
    c("dir_path", "file", "name", "path")
  )
})

test_that("Name duplication is handled gracefully", {
  dt <- listRunReports("./test_list_reports_data/duplicated")
  expect_equal(nrow(dt), 2)
  expect_false(dt$name[1] == dt$name[2])
})