test for cyclic dependency

Author: m7pr

tests/testthat/test-qenv_get_code.R

@@ -290,6 +290,18 @@ testthat::describe("get_code for specific names", {
       )
     }
   )
+  testthat::it("prevents cyclic dependencies when function (c) is on left side of assignment and right side of the oprations", {
+    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")
+    testthat::expect_identical(result, paste(code[c(1, 4)], collapse = "\n"))
+  })
+
 })