tests/testthat/test_exonProfile.R

In Codezy99/cliProfiler: A package for the CLIP data visualization

context("exonProfile")
library(cliProfiler)

test_that("exonProfile works as expected",{
    testpath <- system.file("extdata", package = "cliProfiler")
    test <- readRDS(file.path(testpath, "test.rds"))
    test_gff3 <- file.path(testpath, "annotation_test.gff3")

    output <- exonProfile(
        object = test, annotation = test_gff3
    )

    expect_output(str(output), "List of 2")
    expect_is(output$Peaks, "GRanges")
    expect_is(output$Plot, "ggplot")
    }
)