trim_some

r-lib · Aug 1, 2023 · 9b528d0 · 9b528d0
1 parent bf390de
commit 9b528d0
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/tests/testthat/test-keyword_quote_linter.R b/tests/testthat/test-keyword_quote_linter.R
@@ -213,14 +213,14 @@ test_that("keyword_quote_linter blocks quoted $, @ extractions", {
 
 test_that("multiple lints are generated correctly", {
   expect_lint(
-    c(
-      "{",
-      "  foo('a' = 1)",
-      "  'b' <- 2",
-      "  x$'c'",
-      "  y@'d'",
-      "}"
-    ),
+    trim_some('
+      {
+        foo("a" = 1)
+        "b" <- 2
+        x$"c"
+        y@"d"
+      }
+    '),
     list(
       list(message = "Only quote named arguments"),
       list(message = "Only quote targets of assignment"),