superlintr

m7pr · m7pr · commit 2a2867779b9b · 2025-08-07T13:15:16.000+02:00
diff --git a/tests/testthat/test-qenv_get_code.R b/tests/testthat/test-qenv_get_code.R
@@ -290,13 +290,14 @@ testthat::describe("get_code for specific names", {
       )
     }
   )
-  testthat::it("doesn't consider function called on the lhs as a dependent in this call (dependency in further calls)", 
-  {
-    code <- c(
-      "object_list <- list(x = iris, y = iris)",
-      "object_list_2 <- list(x = mtcars, y = mtcars)",
-      "object_list_2[c('x')] <- c('string')",
-      "object_list[c('x')] <- c('string')"
+  testthat::it(
+    "doesn't consider function called on the lhs as a dependent in this call (dependency in further calls)",
+    {
+      code <- c(
+        "object_list <- list(x = iris, y = iris)",
+        "object_list_2 <- list(x = mtcars, y = mtcars)",
+        "object_list_2[c('x')] <- c('string')",
+        "object_list[c('x')] <- c('string')"
     )
     q <- eval_code(qenv(), code = code)
     result <- get_code(q, names = "object_list")

Original file line number	Diff line number	Diff line change
`@@ -290,13 +290,14 @@ testthat::describe("get_code for specific names", {`
`290`	`290`	`)`
`291`	`291`	`}`
`292`	`292`	`)`
`293`		`- testthat::it("doesn't consider function called on the lhs as a dependent in this call (dependency in further calls)",`
`294`		`- {`
`295`		`- code <- c(`
`296`		`- "object_list <- list(x = iris, y = iris)",`
`297`		`- "object_list_2 <- list(x = mtcars, y = mtcars)",`
`298`		`- "object_list_2[c('x')] <- c('string')",`
`299`		`- "object_list[c('x')] <- c('string')"`
	`293`	`+ testthat::it(`
	`294`	`+ "doesn't consider function called on the lhs as a dependent in this call (dependency in further calls)",`
	`295`	`+ {`
	`296`	`+ code <- c(`
	`297`	`+ "object_list <- list(x = iris, y = iris)",`
	`298`	`+ "object_list_2 <- list(x = mtcars, y = mtcars)",`
	`299`	`+ "object_list_2[c('x')] <- c('string')",`
	`300`	`+ "object_list[c('x')] <- c('string')"`
`300`	`301`	`)`
`301`	`302`	`q <- eval_code(qenv(), code = code)`
`302`	`303`	`result <- get_code(q, names = "object_list")`