tests/testthat/test-check_cols.R

In joshstolz/brainstorm: Validating Sample Identiy Through RNA-seq and DNA Genotyping Correlation

test_that("Cols present", {
    expect_null(.check_cols(table = test_snps, check_colnames = c("A")))
    expect_null(.check_cols(table = test_snps, check_colnames = c("A", "B")))
})

test_that("Cols Missing", {
    expect_error(.check_cols(table = test_snps, check_colnames = c("X", )))
    expect_error(.check_cols(table = test_snps, check_colnames = c("X", "Y")))
})