tests/testthat/test_problemPage.R

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

context("problemPage")
library(BiocPkgTools)

ppage = problemPage(includeOK = TRUE)
ppage2 = problemPage(includeOK = FALSE)

test_that("problempage is a datatable", {
    expect_is(ppage, 'datatables')
    expect_is(ppage, 'htmlwidget')
})

test_that("data is at least close to correct", {
  expect_gt(nrow(ppage$x$data), 0)
  expect_gte(nrow(ppage$x$data), nrow(ppage2$x$data))
})