Use base pipe in a test case (#2232)

Author: gaborcsardi

tests/testthat/test-expect-condition.R

@@ -93,7 +93,7 @@ test_that("capture correct trace_env (#1994)", {
   expect_equal(status$n_failure, 1) # from expect_warning()
 
   status <- capture_success_failure({
-    stop("oops") %>% expect_error() %>% expect_warning()
+    stop("oops") |> expect_error() |> expect_warning()
   })
   expect_equal(status$n_success, 1) # from expect_error()
   expect_equal(status$n_failure, 1) # from expect_warning()