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 Feb. 4, 2025, 6:29 a.m.