test_that("use, zero lines", {
check_empty_beautier_folder()
input <- NULL
result <- interspace(input)
expected <- NULL
expect_equal(result, expected)
check_empty_beautier_folder()
})
test_that("use, one line", {
input <- c("<a/>")
result <- interspace(input)
expected <- input
expect_equal(result, expected)
})
test_that("use, two lines", {
input <- c(
"<a/>",
"<b/>"
)
result <- interspace(input)
expected <- c(
"<a/>",
"",
"<b/>"
)
expect_equal(result, expected)
})
test_that("use, simple indentation", {
input <- c(
"<a>",
" indented",
"</a>"
)
result <- interspace(input)
expected <- input
expect_equal(result, expected)
})
test_that("use, complex indentation", {
check_empty_beautier_folder()
input <- c(
"<a>",
" indented",
"</a>",
"<b>",
"<c>"
)
result <- interspace(input)
expected <- c(
"<a>",
" indented",
"</a>",
"",
"<b>",
"",
"<c>"
)
expect_equal(result, expected)
check_empty_beautier_folder()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.