tests/testthat/test-plot_agg_regions.R

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

test_that("Aggregate plotting works", {
    # setup
    nmr <- load_example_nanomethresult()
    mbr <- NanoMethViz:::load_example_modbamresult()
    gene_anno <- exons_to_genes(NanoMethViz::exons(nmr))

    # test
    for (x in list(nmr, mbr)) {
        expect_no_warning(plot_agg_regions(x, gene_anno))
        expect_no_warning(plot_agg_regions(x, gene_anno, "sample"))
        expect_no_warning(plot_agg_regions(x, gene_anno, "group"))
    }
})

test_that("Aggregate plotting error checking works", {
    # setup
    nmr <- load_example_nanomethresult()
    missing_chr <- NanoMethViz::exons(nmr)[, -2]
    missing_chr_list <- list(
        NanoMethViz::exons(nmr)[, -2],
        NanoMethViz::exons(nmr),
        NanoMethViz::exons(nmr)[, -2]
    )

    # test
    expect_error(plot_agg_regions(nmr, gene_anno, "foo"))
})