diff --git a/tests/testthat/test-methods.R b/tests/testthat/test-methods.R index f2b7bb8..32e95db 100755 --- a/tests/testthat/test-methods.R +++ b/tests/testthat/test-methods.R @@ -71,15 +71,14 @@ test_that("gate grouping", { test_that("gate DEPRECATED", { library(dplyr) - - tidygate::tidygate_data %>% - mutate(sh = factor(hierarchy)) %>% + data <- mutate(tidygate_data, sh = factor(hierarchy)) + lifecycle::expect_deprecated( gate( - .element = c(`ct 1`, `ct 2`), - Dim1, Dim2, - gate_list = tidygate::gate_list - ) %>% - capture_warnings() %>% - expect_match("is deprecated as of tidygate 0.3.0.") - -}) \ No newline at end of file + data, + .element = c(`ct 1`, `ct 2`), + Dim1, + Dim2, + gate_list = gate_list + ) + ) +})