From c5257298630ca619a57610b79097406e13c53141 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs=20Revilla?= Date: Fri, 17 Oct 2025 12:50:39 +0200 Subject: [PATCH 1/4] Add test to get_code with no code on qenv --- tests/testthat/test-qenv_get_code.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/testthat/test-qenv_get_code.R b/tests/testthat/test-qenv_get_code.R index 282c72869..c33b500b6 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 empty character 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)) From ede36a446fa7ca29411eda9837ba8625d5609642 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Llu=C3=ADs=20Revilla?= Date: Fri, 17 Oct 2025 12:51:46 +0200 Subject: [PATCH 2/4] Improve wording --- tests/testthat/test-qenv_get_code.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-qenv_get_code.R b/tests/testthat/test-qenv_get_code.R index c33b500b6..ee9c7c02b 100644 --- a/tests/testthat/test-qenv_get_code.R +++ b/tests/testthat/test-qenv_get_code.R @@ -1,6 +1,6 @@ pasten <<- function(...) paste(..., collapse = "\n") -testthat::test_that("get_code returns empty character if no code", { +testthat::test_that("get_code returns character of length 0 if no code", { expect_identical(get_code(qenv()), "") }) From 0cf43b108207343e51a5522604283200a461a7c5 Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Fri, 17 Oct 2025 10:57:31 +0000 Subject: [PATCH 3/4] [skip style] [skip vbump] Restyle files --- tests/testthat/test-qenv_get_code.R | 1 - 1 file changed, 1 deletion(-) diff --git a/tests/testthat/test-qenv_get_code.R b/tests/testthat/test-qenv_get_code.R index ee9c7c02b..f888f97e3 100644 --- a/tests/testthat/test-qenv_get_code.R +++ b/tests/testthat/test-qenv_get_code.R @@ -736,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", { From 55cd4cca57f14a345ef5acb37ba3ca35d6a98c14 Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Fri, 17 Oct 2025 11:00:06 +0000 Subject: [PATCH 4/4] [skip roxygen] [skip vbump] Roxygen Man Pages Auto Update --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'