test_that("doubt works", {
correct_result <- "Why would you doubt yourself? You've overcome more in the past."
my_result <- doubt(1)
expect_equal(my_result,correct_result)
})
test_that("doubt works", {
correct_result <- "Why would you doubt yourself? You have the ability to do what you think you can't."
my_result <- doubt(2)
expect_equal(my_result,correct_result)
})
test_that("doubt works", {
correct_result <- "Why would you doubt yourself? Shakespeare once said, 'Our doubts are traitors, and make us lose the good we oft might win, by fearing to attempt.'"
my_result <- doubt(3)
expect_equal(my_result,correct_result)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.