tests/testthat/test-alignment_file.R

test_that("alignment_file", {

  tbl <- alignment_file()
  col_names <- colnames(tbl)

  expect_identical(col_names, c('gene', 'file'))

})
maialab/agvgd documentation built on Jan. 10, 2024, 6:08 p.m.