tests/testthat/test_BSFDataSet.R

test_that("BSFDataSet() can be build correctly", {
    # load data
    files <- system.file("extdata", package="BindingSiteFinder")
    load(list.files(files, pattern = ".rda$", full.names = TRUE))

    rng = getRanges(bds)
    sgn = getSignal(bds)
    mta = getMeta(bds)
    # correct input
    bdsNew = expect_silent(BSFDataSet(ranges = rng, signal = sgn, meta = mta, silent = TRUE))
    bdsNew = expect_silent(BSFDataSet(ranges = rng, signal = sgn, meta = mta, silent = FALSE))
    bdsNew = expect_silent(BSFDataSet(ranges = rng, signal = sgn, meta = mta))

    # meta data table corrupt
    mtaWrong = mta
    mtaWrong$clPlus = rep(mta$clPlus[1],4)
    mtaWrong$clMinus = rep(mta$clMinus[1],4)
    expect_message(BSFDataSet(ranges = rng, signal = sgn, meta = mtaWrong))
    expect_silent(BSFDataSet(ranges = rng, signal = sgn, meta = mtaWrong, silent = TRUE))

    # check correct range sorting
    rng1 = .sortRanges(rng)
    expect_true(identical(rng, rng1))

    rngNew = getRanges(bdsNew)
    expect_silent(BSFDataSet(ranges = rngNew, signal = sgn, meta = mta))

    expect_identical(getRanges(bdsNew), .sortRanges(rngNew))

    # test force equal seqnames
    rng = getRanges(bds)
    sgn = getSignal(bds)

    r = as.data.frame(granges(rng))
    d = data.frame(seqnames = "chr6", start = 1, end = 1, width = 1, strand = "+")
    rng2 = rbind(d, r) %>%
        makeGRangesFromDataFrame(., keep.extra.columns = TRUE)

    expect_message(setRanges(bds, rng2))
    expect_message(setRanges(bds, rng2, dropSeqlevels = TRUE))
    expect_message(expect_warning(setRanges(bds, rng2, dropSeqlevels = FALSE)))

})
ZarnackGroup/BindingSiteFinder documentation built on May 31, 2024, 3:29 a.m.