further condense test code

r-lib · Oct 24, 2024 · b3e8657 · b3e8657
1 parent d7d83e6
commit b3e8657
Showing 1 changed file with 6 additions and 14 deletions.
diff --git a/tests/testthat/test-commented_code_linter.R b/tests/testthat/test-commented_code_linter.R
@@ -104,20 +104,12 @@ test_that("commented_code_linter can detect operators in comments and lint corre
   )
 })
 
-test_that("commented_code_linter can detect commented code ending with a base pipe", {
-  skip_if_not_r_version("4.1.0")
+test_that("commented_code_linter can detect commented code ending with pipes", {
+  linter <- commented_code_linter()
+  lint_msg <- rex::rex("Remove commented code.")
 
-  expect_lint(
-    "# f() |>",
-    rex::rex("Remove commented code."),
-    commented_code_linter()
-  )
-})
+  expect_lint("# f() %>%", lint_msg, linter)
 
-test_that("commented_code_linter can detect commented code ending with a {magrittr} pipe", {
-  expect_lint(
-    "# f() %>%",
-    rex::rex("Remove commented code."),
-    commented_code_linter()
-  )
+  skip_if_not_r_version("4.1.0")
+  expect_lint("# f() |>", lint_msg, linter)
 })