# Generated by roxytest: Do not edit by hand!
context("File R/functions.R: @tests")
test_that("Function foo() @ L11", {
expect_equal(foo(2), sqrt(2))
expect_error(foo("a string"))
})
test_that("Function bar() @ L27", {
expect_equal(bar("A", "B"), paste("A", "B", sep = "/"))
})
test_that("Function foo2() @ L68", {
expect_equal(foo2(2), sqrt(2))
expect_error(foo2("a string"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.