tests/testthat/test_getter_methods.R

In daanhazelaar/katdetectr: Detection, Characterization and Visualization of Kataegis in Sequencing Data

testthat::test_that("Check accessor methods:", {
    syntheticData <- generateSyntheticData(nBackgroundVariants = 20, nKataegisFoci = 1)
    kd <- detectKataegis(syntheticData)

    testthat::expect_equal(base::length(getGenomicVariants(kd)), 40)
    testthat::expect_equal(base::length(getKataegisFoci(kd)), 1)
    testthat::expect_equal(getSegments(kd)$firstVariantID[1],1)
    testthat::expect_equal(getInfo(kd)$sampleName, "syntheticData")
})