tests/testthat/test-collect_files_n_alignments.R

In richelbilderbeek/wiritttea: WIRITTTE analysis

context("collect_files_n_alignments")

test_that("collect_files_n_alignments: basic use", {
  filenames <- c(
    find_path("toy_example_1.RDa"),
    find_path("toy_example_3.RDa")
  )
  df <- collect_files_n_alignments(filenames)
  expect_equal(names(df), c("filename", "n_alignments"))
  expect_equal(nrow(df), length(filenames))
  expect_equal(df$n_alignments, c(2, 4))
})

test_that("collect_files_n_alignments: abuse", {

  expect_error(
    collect_files_n_alignments(filename = c()),
    "there must be at least one filename supplied"
  )
})