tests/testthat/test-get_cgi.R

In Shians/NanoMethViz: Visualise methylation data from Oxford Nanopore sequencing

test_that("CGI getters work", {
    cgi_getters <- list(
        get_cgi_hg19,
        get_cgi_hg38,
        get_cgi_mm10,
        get_cgi_GRCm39
    )

    for (cgi_fn in cgi_getters) {
        cgi_anno <- expect_no_warning(cgi_fn())
        expect_s3_class(cgi_anno, "data.frame")
        expect_gt(nrow(cgi_anno), 0)
        expect_gt(ncol(cgi_anno), 0)
        expect_contains(colnames(cgi_anno), c("gene_id", "chr", "strand", "start", "end", "transcript_id", "symbol"))
    }
})