tests/testthat/test-check-fit.R

test_that('function works', {
    
    test_check_fit = check_fit(test_facets_output, maf = test_maf)
    
    expect_is(test_check_fit, 'list')
    
    test_names = c('diplogr_flag', 'n_alternative_diplogr', 'n_homdel_muts', 'median_vaf_homdel_muts')
    expect_true(all(test_names %in% names(test_check_fit)))
})
mskcc/facets-suite documentation built on Sept. 13, 2022, 4:14 a.m.