diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R index 52a060b..7171965 100644 --- a/tests/testthat/helper.R +++ b/tests/testthat/helper.R @@ -24,7 +24,7 @@ app_request <- function() { show_response <- function(x) { strip_divider <- function(x) { - gsub("-{3,}[a-f0-9]+", "---", x) + gsub("-{3,}[A-Za-z0-9-]+", "---{divider}", x) } x <- httr::content(x) diff --git a/tests/testthat/test-form.R b/tests/testthat/test-form.R index ba41551..338011e 100644 --- a/tests/testthat/test-form.R +++ b/tests/testthat/test-form.R @@ -207,5 +207,5 @@ test_that("can submit using three primary techniques", { form$enctype <- "multipart" show_response(html_form_submit(form)) - }, transform = function(x) gsub("---.+$", "---{divider}", x)) + }) })