From 7325f2abf184f281b5ee88431c5b25468583c5df Mon Sep 17 00:00:00 2001
From: DavisVaughan <davis@rstudio.com>
Date: Mon, 20 Sep 2021 17:03:28 -0400
Subject: [PATCH] Assign result inside `expect_warning()`

---
 NEWS.md                          | 2 ++
 tests/testthat/test-zoned-time.R | 9 ++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index f8414492..dd9f78d5 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,7 @@
 # clock (development version)
 
+* Updated a test related to upcoming changes in testthat.
+
 # clock 0.4.0
 
 * New `date_start()` and `date_end()` for computing the date at the start or
diff --git a/tests/testthat/test-zoned-time.R b/tests/testthat/test-zoned-time.R
index 216b22cb..5da465e0 100644
--- a/tests/testthat/test-zoned-time.R
+++ b/tests/testthat/test-zoned-time.R
@@ -396,12 +396,11 @@ test_that("%z must parse correctly if included", {
   expect <- as_zoned_time(sys_days(NA), "America/New_York")
   x <- "1970-01-01 00:00:00-0a:00 EST"
 
-  expect_identical(
-    expect_warning(
-      zoned_time_parse_abbrev(x, "America/New_York", format = "%Y-%m-%d %H:%M:%S%Ez %Z")
-    ),
-    expect
+  expect_warning(
+    result <- zoned_time_parse_abbrev(x, "America/New_York", format = "%Y-%m-%d %H:%M:%S%Ez %Z")
   )
+
+  expect_identical(result, expect)
 })
 
 test_that("multiple formats can be attempted", {