tests/testthat/test_summary.R

context("Testing summary method")

test_that("summary", {
  r <- evaluate_promise(summary(Info))
  expect_true(is(r, "list"))
  # expect_output(GSEAdv::summary(Info))
})
llrs/GSEAdv documentation built on May 29, 2019, 6 p.m.