rlang error with `... %>% expect_warning()

[krlmlr]

• Can't run in reprex, have to create a file with the contents and source it
• expect_warning(expect_error(...)) doesn't seem to exhibit this behavior

Perhaps related: #1646

library(testthat)
test_that("boo", {
  expect_error(stop("oops")) %>%
    expect_warning()
})

> library(testthat)

> test_that("boo", {
+   expect_error(stop("oops")) %>%
+     expect_warning()
+ })
-- Error: boo ------------------------------------------------------------------
Error in `trace_back(top = getOption("testthat_topenv"), bottom = trace_env)`: Can't find `bottom` on the call tree.
Backtrace:
    x
 1. +-expect_error(stop("oops")) %>% expect_warning() at ~/.active-rstudio-document:3:3
 2. \-testthat::expect_warning(.)
 3.   \-testthat:::expect_condition_matching(...)
 4.     \-testthat::expect(...)
 5.       \-rlang::trace_back(top = getOption("testthat_topenv"), bottom = trace_env)
 6.         \-rlang:::trace_find_bottom(bottom, frames)
 7.           \-rlang::abort(msg, call = call)

Error:
! Test failed
Backtrace:
 1. base::source("~/.active-rstudio-document", echo = TRUE)
 7. reporter$stop_if_needed()