adjust test so it does not load libraries

m7pr · m7pr · commit ef00c584b843 · 2024-11-07T15:38:15.000+01:00
diff --git a/tests/testthat/test-qenv_eval_code.R b/tests/testthat/test-qenv_eval_code.R
@@ -160,11 +160,11 @@ testthat::test_that("eval_code returns a qenv object with dependency attribute t
 testthat::test_that(
   "eval_code returns a qenv object with dependency attribute that extracts functions after '<-' part",
   {
-    q3 <- eval_code(qenv(), c("library(survival)", "head(iris)"))
+    q3 <- eval_code(qenv(), c("nrow(iris)", "head(iris)"))
     testthat::expect_identical(
       lapply(q3@code, attr, "dependency"),
       list(
-        c("<-", "library", "survival"),
+        c("<-", "nrow", "iris"),
         c("<-", "head", "iris")
       )
     )

Original file line number	Diff line number	Diff line change
`@@ -160,11 +160,11 @@ testthat::test_that("eval_code returns a qenv object with dependency attribute t`
`160`	`160`	`testthat::test_that(`
`161`	`161`	`"eval_code returns a qenv object with dependency attribute that extracts functions after '<-' part",`
`162`	`162`	`{`
`163`		`- q3 <- eval_code(qenv(), c("library(survival)", "head(iris)"))`
	`163`	`+ q3 <- eval_code(qenv(), c("nrow(iris)", "head(iris)"))`
`164`	`164`	`testthat::expect_identical(`
`165`	`165`	`lapply(q3@code, attr, "dependency"),`
`166`	`166`	`list(`
`167`		`- c("<-", "library", "survival"),`
	`167`	`+ c("<-", "nrow", "iris"),`
`168`	`168`	`c("<-", "head", "iris")`
`169`	`169`	`)`
`170`	`170`	`)`