Remove '<<-' from valid operators for this test

r-lib · Feb 3, 2025 · a2af76b · a2af76b
1 parent 662542a
commit a2af76b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-assignment_linter.R b/tests/testthat/test-assignment_linter.R
@@ -32,7 +32,7 @@ test_that("arguments handle <<- and ->/->> correctly", {
   lint_msg_right <- rex::rex("Replace ->> by assigning to a specific environment")
 
   expect_lint("1 -> blah", rex::rex("Use one of <-, <<- for assignment, not ->."), linter)
-  expect_lint("1 ->> blah", lint_msg_right, linter)
+  expect_lint("1 ->> blah", lint_msg_right, assignment_linter(operator = "<-"))
 
   # <<- is only blocked optionally
   expect_lint("1 <<- blah", NULL, linter)