review @m7pr

gogonzo · gogonzo · commit a58c187a68db · 2024-11-14T12:22:39.000+01:00
diff --git a/tests/testthat/test-qenv_eval_code.R b/tests/testthat/test-qenv_eval_code.R
@@ -127,7 +127,7 @@ testthat::test_that("comments alone are pasted to the next/following call elemen
   code <- c("x <- 5", "# comment", "y <- 6")
   q <- eval_code(qenv(), code)
   testthat::expect_identical(
-    as.character(q@code)[[2]],
+    as.character(q@code)[2],
     paste(code[2:3], collapse = "\n")
   )
   testthat::expect_identical(

Original file line number	Diff line number	Diff line change
`@@ -127,7 +127,7 @@ testthat::test_that("comments alone are pasted to the next/following call elemen`
`127`	`127`	`code <- c("x <- 5", "# comment", "y <- 6")`
`128`	`128`	`q <- eval_code(qenv(), code)`
`129`	`129`	`testthat::expect_identical(`
`130`		`- as.character(q@code)[[2]],`
	`130`	`+ as.character(q@code)[2],`
`131`	`131`	`paste(code[2:3], collapse = "\n")`
`132`	`132`	`)`
`133`	`133`	`testthat::expect_identical(`