tests/testthat/test-praise.R

In learnr: Interactive Tutorials for R

test_that("random_phrases()", {
  expect_error(random_phrases("foo"), "should be one of")
  expect_warning(
    expect_equal(random_phrases("praise", "foo"), random_phrases("praise", "en"))
  )

  knitr::opts_knit$set("tutorial.language" = "en")
  expect_equal(random_phrases("praise"), random_phrases("praise", "en"))
  expect_equal(random_phrases("encouragement"), random_phrases("encouragement", "en"))
  knitr::opts_knit$set("tutorial.language" = NULL)

  expect_equal(random_phrases("praise", "testing"), "RANDOM PRAISE.")
  expect_equal(random_phrases("encouragement", "testing"), "RANDOM ENCOURAGEMENT.")
})

test_that("random_phrases_add()", {
  random_phrases_add(
    language = "bogus",
    praise = "Praise here!",
    encouragement = c("Go 1", "Go 2")
  )

  expect_equal(random_phrases("praise", "bogus"), "Praise here!")
  expect_equal(random_phrases("encouragement", "bogus"), c("Go 1", "Go 2"))

  random_phrases_add("bogus", encouragement = "Go 3")
  expect_equal(random_phrases("encouragement", "bogus"), c("Go 1", "Go 2", "Go 3"))

  expect_error(random_phrases_add("bogus", list("bad")))
  expect_error(random_phrases_add("bogus", 1:4))
})