use mocked bindings for test

tidyverse · Dec 19, 2023 · a36c56d · a36c56d
1 parent 990d733
commit a36c56d
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/tests/testthat/test-as_tibble.R b/tests/testthat/test-as_tibble.R
@@ -740,7 +740,9 @@ test_that("output test", {
 test_that("as_tibble.data.frame coerces extended data.frames first", {
  x <- structure(mtcars, extra = "extra", class = c("ext_df_", "data.frame"))
  y <- as_tibble(head(mtcars))
- fun <- function(x, row.names = NULL, optional = FALSE, ...) y
- .S3method("as.data.frame", "ext_df_", fun)
- expect_identical(as_tibble(x), y)
+ with_mocked_bindings(
+ as.data.frame = function(x, row.names = NULL, optional = FALSE, ...) y,
+ code = expect_identical(as_tibble(x), y),
+ .package = "base"
+ )
 })