diff --git a/tests/testthat/test-implicit_assignment_linter.R b/tests/testthat/test-implicit_assignment_linter.R
index 8830eacfc..377dc8bcc 100644
--- a/tests/testthat/test-implicit_assignment_linter.R
+++ b/tests/testthat/test-implicit_assignment_linter.R
@@ -164,23 +164,67 @@ test_that("implicit_assignment_linter respects except argument", {
   )
 })
 
-test_that("implicit_assignment_linter makes exceptions for functions that capture side-effects", {
-  linter <- implicit_assignment_linter()
+test_that("implicit_assignment_linter skips allowed usages with braces", {
+  linter <- implicit_assignment_linter(except = character(0L))
 
-  # base
-  expect_lint("output <- capture.output(x <- f())", NULL, linter)
-  expect_lint("quote(a <- 1L)", NULL, linter)
-  expect_lint("bquote(a <- 1L)", NULL, linter)
-  expect_lint("expression(a <- 1L)", NULL, linter)
-  expect_lint("local({ a <- 1L })", NULL, linter)
-
-  # rlang
-  expect_lint("expr(a <- 1L)", NULL, linter)
-  expect_lint("quo(a <- 1L)", NULL, linter)
-  expect_lint("quos(a <- 1L)", NULL, linter)
+  expect_lint(
+    trim_some("
+    foo({
+      a <- 1L
+    })
+    "),
+    NULL,
+    linter
+  )
+  expect_lint(
+    trim_some("
+    output <- capture.output({
+      x <- f()
+    })
+    "),
+    NULL,
+    linter
+  )
+  expect_lint(
+    trim_some("
+    quote({
+      a <- 1L
+    })
+    "),
+    NULL,
+    linter
+  )
+  expect_lint(
+    trim_some("
+    bquote({
+      a <- 1L
+    })
+    "),
+    NULL,
+    linter
+  )
+  expect_lint(
+    trim_some("
+    expression({
+      a <- 1L
+    })
+    "),
+    NULL,
+    linter
+  )
+  expect_lint(
+    trim_some("
+    local({
+      a <- 1L
+    })
+    "),
+    NULL,
+    linter
+  )
+})
 
-  # withr
-  expect_lint("with_options(list(digits = 3L), x <- getOption('digits'))", NULL, linter)
+test_that("implicit_assignment_linter makes exceptions for functions that capture side-effects", {
+  linter <- implicit_assignment_linter()
 
   # testthat
   expect_lint("expect_warning(out <- f(-1))", NULL, linter)
@@ -204,6 +248,14 @@ test_that("implicit_assignment_linter makes exceptions for functions that captur
     NULL,
     linter
   )
+
+  # rlang
+  expect_lint("expr(a <- 1L)", NULL, linter)
+  expect_lint("quo(a <- 1L)", NULL, linter)
+  expect_lint("quos(a <- 1L)", NULL, linter)
+
+  # withr
+  expect_lint("with_options(list(digits = 3L), x <- getOption('digits'))", NULL, linter)
 })
 
 test_that("implicit_assignment_linter blocks disallowed usages in simple conditional statements", {