diff --git a/DESCRIPTION b/DESCRIPTION index 74200b457..4b068d46f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -53,7 +53,7 @@ Config/Needs/website: insightsengineering/nesttemplate Encoding: UTF-8 Language: en-US Roxygen: list(markdown = TRUE) -RoxygenNote: 7.3.2 +RoxygenNote: 7.3.3 Collate: 'qenv-c.R' 'qenv-class.R' diff --git a/tests/testthat/test-qenv_get_code.R b/tests/testthat/test-qenv_get_code.R index 282c72869..f888f97e3 100644 --- a/tests/testthat/test-qenv_get_code.R +++ b/tests/testthat/test-qenv_get_code.R @@ -1,5 +1,9 @@ pasten <<- function(...) paste(..., collapse = "\n") +testthat::test_that("get_code returns character of length 0 if no code", { + expect_identical(get_code(qenv()), "") +}) + testthat::test_that("get_code returns code (character(1) by default) of qenv object", { q <- qenv() q <- eval_code(q, quote(x <- 1)) @@ -732,7 +736,6 @@ testthat::test_that("understands @ usage and do not treat rhs of @ as objects (o }) - # libraries ------------------------------------------------------------------------------------------------------- testthat::test_that("library() and require() are always returned", {