Test for and suppress expected warning during test

joshuaulrich · Apr 11, 2023 · 52ec2f6 · 52ec2f6
1 parent a5b6041
commit 52ec2f6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/inst/tinytest/test-tclass.R b/inst/tinytest/test-tclass.R
@@ -63,4 +63,5 @@ expect_equal(target, tclass(y))
 
 info_msg <- "tclass() on object with no tclass/.indexCLASS returns POSIXct"
 x <- structure(1:5, .Dim = c(5L, 1L), index = 1:5, class = c("xts", "zoo"))
-expect_identical(c("POSIXct", "POSIXt"), tclass(x))
+expect_warning(xtc <- tclass(x), "index does not have a 'tclass' attribute")
+expect_identical(c("POSIXct", "POSIXt"), xtc)