test for no inlining of partial_self that passes when run via covr

mjskay · Dec 30, 2023 · b8244c2 · b8244c2
1 parent a6a1868
commit b8244c2
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/tests/testthat/test.auto_partial.R b/tests/testthat/test.auto_partial.R
@@ -42,9 +42,5 @@ test_that("functions without arguments work", {
 test_that("functions inside the ggdist namespace do not inline partial_self", {
   f = function(x) x + 1
   environment(f) = asNamespace("ggdist")
-  expect_identical(body(auto_partial(f, name = "f")), quote({
-    if (missing(x))
-      return(partial_self("f"))
-    x + 1
-  }))
+  expect_match(deparse0(body(auto_partial(f, name = "f"))), 'partial_self("f")', fixed = TRUE)
 })