context("Test string reversal")
test_that("Single strings can be reversed",{
result <- rope:::string_reverse_single("FOOBAR")
expect_that(result, equals("RABOOF"))
})
test_that("Multiple strings can be reversed",{
strings <- c("blargh", "blargh", "loss")
result <- rope:::string_reverse_vector(strings)
expect_that(result, equals(c("hgralb", "hgralb", "ssol")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.