tests: fix monkey-patching

Florence Bockting · Florence Bockting · commit e086c9ce61a7 · 2026-04-04T19:54:26.000+03:00
diff --git a/tests/testthat/test-ppc-distributions.R b/tests/testthat/test-ppc-distributions.R
@@ -731,7 +731,7 @@ testthat::test_that("ppc_pit_ecdf takes correct PIT computation branch", {
     which(sapply(as.list(body(ppc_pit_ecdf)), function(e) {
       is.call(e) && deparse(e[[1]]) == "if" &&
         grepl("pareto_pit", deparse(e[[2]]))
-    }))
+    }))[1]
   ]] <- quote({
 
     if (isTRUE(pareto_pit) && is.null(pit)) {
diff --git a/tests/testthat/test-ppc-loo.R b/tests/testthat/test-ppc-loo.R
@@ -611,7 +611,7 @@ testthat::test_that("ppc_loo_pit_ecdf takes correct PIT computation branch", {
     which(sapply(as.list(body(ppc_loo_pit_ecdf)), function(e) {
       is.call(e) && deparse(e[[1]]) == "if" &&
         grepl("pareto_pit", deparse(e[[2]]))
-    }))
+    }))[1]
   ]] <- quote({
 
     if (isTRUE(pareto_pit) && is.null(pit)) {
