tests/testthat/test_biocPkgList.R

In Liubuntu/BiocPkgTools: Collection of simple tools for learning about Bioc Packages

context("biocPkgList")
library(BiocPkgTools)

bpkgl = biocPkgList()


test_that("pkg list has correct classes", {
    expect_is(bpkgl, 'tbl_df')
    expect_is(bpkgl, 'tbl')
    expect_is(bpkgl, 'data.frame')
})

test_that("ncol is approximately correct", {
  expect_gt(ncol(bpkgl), 35)
})

test_that("nrow is approximately correct", {
  expect_gt(nrow(bpkgl), 1000)
})