test_that("base_indention is respected in caching", {
text <- c("1 + 1")
local_test_setup(cache = TRUE)
without_indention <- style_text(text)
local_test_setup(cache = TRUE)
style_text(text, base_indention = 5)
expect_equal(
style_text(text),
without_indention
)
})
test_that("include_roxygen_exmples is respected in caching", {
text <- c("#' Roxygen", "#'", "#' @examplesIf", "#' 1+1", "1 + 1")
local_test_setup(cache = TRUE)
with_examples <- style_text(text)
local_test_setup(cache = TRUE)
style_text(text, include_roxygen_examples = FALSE)
expect_equal(
style_text(text, include_roxygen_examples = TRUE),
with_examples
)
})
test_that("expression caching when first expression does not comply", {
local_test_setup(cache = TRUE)
more <- 'x<- 1
"multi
line string"
c(a = 3)
another(
"x", y = 4
)
'
expect_out <- c(
" x <- 1",
' "multi',
'line string"',
" c(a = 3)",
" another(",
' "x",',
" y = 4",
" )"
)
out <- style_text(more, base_indention = 3) %>%
as.character()
expect_equal(
out,
expect_out
)
out <- style_text(more, base_indention = 3) %>%
as.character()
expect_equal(
out,
expect_out
)
out <- style_text(more, base_indention = 4) %>%
as.character()
expect_equal(
out,
c(
" x <- 1",
' "multi',
'line string"',
" c(a = 3)",
" another(",
' "x",',
" y = 4",
" )"
)
)
sg <- tidyverse_style()
# TODO caching with base indention 3
expect_true(
is_cached("x <- 1", sg, more_specs = cache_more_specs(TRUE, 4))
)
sg <- tidyverse_style()
expect_true(
is_cached("x <- 1", sg, more_specs = cache_more_specs(TRUE, 3))
)
})
test_that("expression caching when last expression does not comply", {
local_test_setup(cache = TRUE)
more <- ' x <- 1
"multi
line string"
c(a = 3)
another(
"x", y = 4)
'
expect_out <- c(
" x <- 1",
' "multi',
'line string"',
" c(a = 3)",
" another(",
' "x",',
" y = 4",
" )"
)
out <- style_text(more, base_indention = 3) %>%
as.character()
expect_equal(
out,
expect_out
)
out <- style_text(more, base_indention = 3) %>%
as.character()
expect_equal(
out,
expect_out
)
})
test_that("expression caching when middle expression does not comply", {
local_test_setup(cache = TRUE)
more <- ' x <- 1
"multi
line string"
c(a= 3)
another(
"x", y = 4
)
'
expect_out <- c(
" x <- 1",
' "multi',
'line string"',
" c(a = 3)",
" another(",
' "x",',
" y = 4",
" )"
)
out <- style_text(more, base_indention = 3) %>%
as.character()
expect_equal(
out,
expect_out
)
out <- style_text(more, base_indention = 3) %>%
as.character()
expect_equal(
out,
expect_out
)
})
test_that("cache is deactivated at end of caching related testthat file", {
expect_false(cache_is_activated())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.