chore(tests): Remove mockery dependency from tests (#1009)

Author: schloerke

DESCRIPTION

@@ -41,7 +41,6 @@ Suggests:
     geojsonsf,
     htmlwidgets,
     later,
-    mockery (>= 0.4.2),
     ragg,
     rapidoc,
     readr,

NEWS.md

@@ -2,6 +2,8 @@
 
 * Added support for [Arrow IPC Streams](https://arrow.apache.org/docs/format/Columnar.html#serialization-and-interprocess-communication-ipc) (@josiahparry #968)
 
+* Removed deprecated `mockery` package dependency. Tests now use native R closures for callback tracking. (#1009)
+
 # plumber 1.3.0
 
 * The port many now be specified as an environment variable. User-provided ports must be between 1024 and 49151 (following [IANA guidelines](https://www.iana.org/assignments/service-names-port-numbers/service-names-port-numbers.xhtml)) and may not be a known unsafe port. plumber will now throw an error if an invalid port is requested. (@shikokuchuo @gadenbuie #963)

tests/testthat/test-plumber-run.R

@@ -42,35 +42,46 @@ test_that("`docs` does not not permanetly set pr information", {
 })
 
 test_that("`swaggerCallback` does not not permanetly set pr information", {
-  skip_if_not_installed("mockery", "0.4.2")
+  call_count <- 0
+  m <- function(url) {
+    call_count <<- call_count + 1
+    TRUE
+  }
+
+  # Initialize call count
+  m("init")
+  expect_equal(call_count, 1)
 
-  m <- mockery::mock(TRUE, cycle = TRUE)
-  m() # call once so that `length(m)` > 0 as `length(m)` represents the number of calls to `m`
   root <- pr() %>% pr_set_docs_callback(m)
+
   # m not used
   with_interrupt({
-    mockery::expect_called(m, 1)
+    expect_equal(call_count, 1)
     root %>% pr_run(swaggerCallback = NULL)
-    mockery::expect_called(m, 1)
+    expect_equal(call_count, 1)
   })
+
   # m not used
   with_interrupt({
-    mockery::expect_called(m, 1)
+    expect_equal(call_count, 1)
     root$run(swaggerCallback = NULL)
-    mockery::expect_called(m, 1)
+    expect_equal(call_count, 1)
   })
+
   # m is used
   with_interrupt({
-    mockery::expect_called(m, 1)
+    expect_equal(call_count, 1)
     root %>% pr_run(quiet = FALSE)
-    mockery::expect_called(m, 2)
+    expect_equal(call_count, 2)
   })
 })
 
 test_that("`swaggerCallback` can be set by option after the pr is created", {
-  skip_if_not_installed("mockery", "0.4.2")
-
-  m <- mockery::mock(TRUE)
+  call_count <- 0
+  m <- function(url) {
+    call_count <<- call_count + 1
+    TRUE
+  }
 
   # must initialize before options are set for this test
   root <- pr()
@@ -84,12 +95,11 @@ test_that("`swaggerCallback` can be set by option after the pr is created", {
       # set option after init
       options_plumber(docs.callback = m)
       with_interrupt({
-        mockery::expect_called(m, 0)
+        expect_equal(call_count, 0)
         pr_run(root)
       })
     }
   )
   # m is used
-  mockery::expect_called(m, 1)
-
+  expect_equal(call_count, 1)
 })