context("Error")
test_that("Error works", {
skip_on_cran()
x <- Error$new()
y <- Error$new(message_template = "{{status}} - foobar - {{reason}}")
z <- Error$new(message_template_verbose = "{{status}} - {{message}}")
expect_is(x, "Error")
expect_is(y, "Error")
expect_is(z, "Error")
expect_is(x$behavior, "character")
expect_is(y$behavior, "character")
expect_is(z$behavior, "character")
# the default
## simple message
expect_is(x$message_template, "character")
expect_match(x$message_template, "HTTP")
expect_true(grepl("HTTP", x$message_template))
expect_true(grepl("status", x$message_template))
expect_true(grepl("reason", x$message_template))
expect_false(grepl("message", x$message_template))
## verbose message
expect_is(x$message_template_verbose, "character")
expect_true(grepl("HTTP", x$message_template_verbose))
expect_true(grepl("status", x$message_template_verbose))
expect_true(grepl("reason", x$message_template_verbose))
expect_true(grepl("message", x$message_template_verbose))
# custom message_template
expect_is(y$message_template, "character")
expect_match(y$message_template, "status")
expect_match(y$message_template, "reason")
expect_match(y$message_template, "- foobar -")
expect_false(grepl("HTTP", y$message_template))
# custom message_template_verbose
expect_is(z$message_template_verbose, "character")
expect_match(z$message_template_verbose, "status")
expect_match(z$message_template_verbose, "message")
expect_false(grepl("HTTP", z$message_template_verbose))
expect_false(grepl("reason", z$message_template_verbose))
})
test_that("Error - can set behavior", {
skip_on_cran()
x <- Error$new()
expect_is(x, "Error")
expect_equal(x$behavior, "stop")
expect_equal(x$.__enclos_env__$private$behavior_type, "error")
# reset behavior
x$set_behavior("message")
expect_is(x, "Error")
expect_equal(x$behavior, "message")
expect_equal(x$.__enclos_env__$private$behavior_type, "message")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.