tests/testthat/test-getMarts.R

context("Test: getMarts()")

test_that("The getMarts() interface works properly..",{

        skip_on_cran()
        skip_on_travis()

        marts <- getMarts()
        expect_false(nrow(marts) == 0)
        expect_false(length(marts$mart) != length(unique(marts$mart)))
})
HajkD/biomartr documentation built on Dec. 9, 2023, 7:25 p.m.