# library(testthat); library(remakeGenerator);
context("strings")
source("utils.R")
test_that("Function strings() is correct.", {
testwd("strings")
expect_equal(character(0), strings())
expect_equal("1", strings(1))
expect_equal("list(\"foo\", f(c(\"bar\", \"baz\")))", strings(list("foo", f(c("bar", "baz")))))
testrm("strings")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.