context("messages")
test_that("trim works as expected", {
x <- "hello. this? is! a. test?! ok? fine."
res <- capitalize(x)
expected <- "Hello. This? Is! A. Test?! Ok? Fine."
expect_equal(res, expected)
})
test_that("language is deprecated", {
expect_message(set_language("en"), "Different languages are no longer supported in testwhat")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.