Add test for multiple lints

Author: Bisaloo

tests/testthat/test-sort_linter.R

@@ -51,6 +51,17 @@ test_that("sort_linter produces customized warning message", {
     rex::rex("sort(x, decreasing = FALSE, na.last = TRUE) is better than x[order(x, decreasing = FALSE)]."),
     linter
   )
+})
 
+test_that("sort_linter works with expression with lint > 1", {
+  linter <- sort_linter()
 
+  expect_lint(
+    "c(
+      x[order(x, decreasing = TRUE)],
+      y[order(y, decreasing = TRUE, na.last = FALSE)]
+    )",
+    lint_message <- rex::rex("sort(", anything, ") is better than"),
+    linter
+  )
 })