test: fix test case broken by the new version of patrick (#337)

eitsupi · web-flow · commit 19374b7225f5 · 2025-01-28T22:35:23.000+09:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -24,7 +24,7 @@ Suggests:
     nycflights13,
     dplyr,
     testthat (>= 3.2.0),
-    patrick,
+    patrick (>= 0.3.0),
     withr,
     cli
 License: MIT + file LICENSE
diff --git a/tests/testthat/test-compile.R b/tests/testthat/test-compile.R
@@ -76,7 +76,8 @@ patrick::with_parameters_test_that("Syntax error",
       error = TRUE
     )
   },
-  query = c("Mississippi has four S’s and four I’s.", "from a | select [b]", "from a | select {{{b")
+  query = c("Mississippi has four S’s and four I’s.", "from a | select [b]", "from a | select {{{b"),
+  .interpret_glue = FALSE
 )
 
 patrick::with_parameters_test_that("Targets",

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,8 @@ patrick::with_parameters_test_that("Syntax error",`
`76`	`76`	`error = TRUE`
`77`	`77`	`)`
`78`	`78`	`},`
`79`		`- query = c("Mississippi has four S’s and four I’s.", "from a \| select [b]", "from a \| select {{{b")`
	`79`	`+ query = c("Mississippi has four S’s and four I’s.", "from a \| select [b]", "from a \| select {{{b"),`
	`80`	`+ .interpret_glue = FALSE`
`80`	`81`	`)`
`81`	`82`
`82`	`83`	`patrick::with_parameters_test_that("Targets",`