tests/testthat/test-print.R

In shinipsum: Lorem-Ipsum-Like Helpers for Fast Shiny Prototyping

context("test-print.R")

test_that("print works", {
  lapply(
    1:100, function(x){
      expect_is(random_print(), "character")
      expect_is(random_print("numeric"), "numeric")
      expect_is(random_print("integer"), "integer")
      expect_is(random_print("table"), "data.frame")
    }
  )
})