tests/testthat/test-randquotes.R

context("Minimal Unit Testing")
test_that("the functions of randquotes", {

  expect_that(randquote(), is_a("data.frame"))
  expect_that(randquote_simple(), is_a("character"))

})

Try the randquotes package in your browser

Any scripts or data that you put into this service are public.

randquotes documentation built on Oct. 30, 2019, 9:44 a.m.