tests/testthat/test-proverb.R

In proverbs: Print a Daily Bible Proverb to Console

test_that("bbe works", {
  testthat::skip_on_cran()
  expect_output(proverb("bbe"))

})

test_that("kjv works", {
  testthat::skip_on_cran()
  expect_output(proverb("kjv"))

})

test_that("web works", {
  testthat::skip_on_cran()
  expect_output(proverb("web"))

})

test_that("webbe works", {
  testthat::skip_on_cran()
  expect_output(proverb("webbe"))

})

test_that("almeida works", {
  testthat::skip_on_cran()
  expect_output(proverb("almeida"))

})

test_that("rccv works", {
  testthat::skip_on_cran()
  expect_output(proverb("rccv"))

})

test_that("esv works", {
  testthat::skip_on_cran()
  expect_output(proverb("esv"))

})

test_that("give bad translation", {
  testthat::skip_on_cran()
  expect_error(proverb("foo"))

})


test_that("give bad main color", {
  testthat::skip_on_cran()
  expect_error(proverb(main_color = "breh"))

})


test_that("give bad accent color", {
  testthat::skip_on_cran()
  expect_error(proverb(accent_color = "bro"))

})