tests/testthat/test_ReadVCFError.R

test_that("No file", {
  retval <- expect_error(ReadAndSplitVCFs("this.file.does.not.exist"))
})

test_that("Not a VCF file", {
  retval <- expect_error(ReadAndSplitVCFs("test_ReadVCFError.R", 
                                           names.of.VCFs = "test_ReadVCFError.R"))
})

Try the ICAMS package in your browser

Any scripts or data that you put into this service are public.

ICAMS documentation built on April 3, 2021, 5:07 p.m.