Update tests/testthat/test-qenv_extract.R

m7pr · gogonzo · web-flow · commit a84f2bce5ccb · 2024-11-06T09:15:59.000+01:00
Co-authored-by: Dawid Kałędkowski &lt;dawid.kaledkowski@gmail.com&gt;
Signed-off-by: Marcin &lt;133694481+m7pr@users.noreply.github.com&gt;
diff --git a/tests/testthat/test-qenv_extract.R b/tests/testthat/test-qenv_extract.R
@@ -21,7 +21,7 @@ testthat::test_that("`[.` returns limited qenv for some names not in qenv", {
   )
 })
 
-testthat::test_that("`[.` extracts proper objects", {
+testthat::test_that("`[.` subsets environment and code to specified object names", {
   q <- qenv()
   code <- c("x<-1", "a<-1;b<-2")
   q <- eval_code(q, code)

Original file line number	Diff line number	Diff line change
@@ -21,7 +21,7 @@ testthat::test_that("`[.` returns limited qenv for some names not in qenv", {
`21`	`21`	`)`
`22`	`22`	`})`
`23`	`23`
`24`		-testthat::test_that("`[.` extracts proper objects", {
	`24`	+testthat::test_that("`[.` subsets environment and code to specified object names", {
`25`	`25`	`q <- qenv()`
`26`	`26`	`code <- c("x<-1", "a<-1;b<-2")`
`27`	`27`	`q <- eval_code(q, code)`