reinstate more legit nofuzz

r-lib · Mar 7, 2025 · fe88c59 · fe88c59
1 parent 98086d4
commit fe88c59
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 6 deletions.
diff --git a/tests/testthat/test-one_call_pipe_linter.R b/tests/testthat/test-one_call_pipe_linter.R
@@ -12,6 +12,7 @@ test_that("one_call_pipe_linter skips allowed usages", {
   expect_no_lint("x %<>% as.character()", linter)
 })
 
+# nofuzz start
 test_that("one_call_pipe_linter blocks simple disallowed usages", {
   linter <- one_call_pipe_linter()
   lint_msg <- rex::rex("Avoid pipe %>% for expressions with only a single call.")
@@ -24,6 +25,7 @@ test_that("one_call_pipe_linter blocks simple disallowed usages", {
   # nested case
   expect_lint("x %>% inner_join(y %>% filter(is_treatment))", lint_msg, linter)
 })
+# nofuzz end
 
 test_that("one_call_pipe_linter skips data.table chains", {
   linter <- one_call_pipe_linter()
@@ -50,7 +52,7 @@ test_that("one_call_pipe_linter treats all pipes equally", {
   expect_no_lint('data %>% filter(type == "console") %$% obscured_id %>% unique()', linter)
 })
 
-test_that("multiple lints are generated correctly", {
+test_that("multiple lints are generated correctly", { # nofuzz
   expect_lint(
     trim_some("{
       a %>% b()
@@ -72,7 +74,7 @@ test_that("Native pipes are handled as well", {
 
   linter <- one_call_pipe_linter()
 
-  expect_lint(
+  expect_lint( # nofuzz
     "x |> foo()",
     rex::rex("Avoid pipe |> for expressions with only a single call."),
     linter
@@ -82,7 +84,7 @@ test_that("Native pipes are handled as well", {
   expect_no_lint("x |> foo() %>% bar()", linter)
   expect_no_lint("x %>% foo() |> bar()", linter)
 
-  expect_lint(
+  expect_lint( # nofuzz
     trim_some("{
       a %>% b()
       c |> d()

diff --git a/tests/testthat/test-pipe_consistency_linter.R b/tests/testthat/test-pipe_consistency_linter.R
@@ -1,3 +1,4 @@
+# nofuzz start
 test_that("pipe_consistency skips allowed usage", {
   skip_if_not_r_version("4.1.0")
   linter <- pipe_consistency_linter()
@@ -160,3 +161,4 @@ test_that("pipe_consistency_linter works with other magrittr pipes", {
     linter
   )
 })
+# nofuzz end
diff --git a/tests/testthat/test-unnecessary_placeholder_linter.R b/tests/testthat/test-unnecessary_placeholder_linter.R
@@ -19,7 +19,7 @@ patrick::with_parameters_test_that(
   pipe = pipes
 )
 
-patrick::with_parameters_test_that(
+patrick::with_parameters_test_that( # nofuzz
   "unnecessary_placeholder_linter blocks simple disallowed usages",
   {
     expect_lint(
@@ -38,7 +38,7 @@ patrick::with_parameters_test_that(
   pipe = pipes
 )
 
-test_that("lints vectorize", {
+test_that("lints vectorize", { # nofuzz
   lint_msg <- rex::rex("Don't use the placeholder (`.`) when it's not needed")
 
   expect_lint(

diff --git a/tests/testthat/test-unused_import_linter.R b/tests/testthat/test-unused_import_linter.R
@@ -7,7 +7,7 @@ test_that("unused_import_linter lints as expected", {
   # SYMBOL usage is detected
   expect_no_lint("library(dplyr)\ndo.call(tibble, args = list(a = 1))", linter)
   # SPECIAL usage is detected
-  expect_no_lint(
+  expect_no_lint( # nofuzz
     trim_some("
       library(magrittr)
       1:3 %>% mean()