Início / coding / Perguntas / 79564911
Accepted
VinceGreg
Asked: 2025-04-10 00:58:51 +0800 CST

Teste vários avisos com testthat::expect_warning()

  • 772

Uma das minhas funções está gerando vários avisos que desejo testar testthat::expect_warning(). Eu poderia revisar o design, mas a documentação parece dizer que isso é possível, com o argumento deprecated all:

all: DEPRECATED Se você precisar testar vários avisos/mensagens, agora você precisa usar várias chamadas para expect_message()/expect_warning()

(Agradecimentos aos comentários após esta resposta )

No reprex a seguir (inspirado nos exemplos do documento), devtools::check()is passing. devtools::test()também está passando, mas também emite avisos (quando um aviso específico é testado, o outro é lançado).

Qual é a maneira correta de testar vários avisos, já que todos são esperados?

f1.R

f1 <- function(x) {
  if (x < 0) {
    warning("*x* is already negative")
    warning("this is a second warning")
    return(x)
  }
  -x
}

teste-f1.R

test_that("testing", {
 # Testing the function
  expect_equal(f1(2), -2)
 # Testing a generic warning
  expect_warning(f1(-1))
  # Testing the first warning
  expect_warning(f1(-1), "already negative")
  # Testing the second warning
  expect_warning(f1(-1), "second")
  # Testing no warning
  expect_warning(f1(1), NA)
})

Produção relevante detest()

Correspondente aexpect_warning(f1(-1))

Aviso (teste-f1.R:5:3): testar este é um segundo aviso

Correspondente aexpect_warning(f1(-1), "already negative")

Aviso (teste-f1.R:6:3): testar este é um segundo aviso

Correspondente aexpect_warning(f1(-1), "second")

Aviso (test-f1.R:7:3): o teste x já é negativo

2 respostas

  1. Best Answer

    Não acho que você possa fazer isso diretamente com expect_warning, mas você pode capture_warningse verificar tudo o que é esperado.

    testthat::capture_warnings(f1(-1))
# [1] "*x* is already negative"  "this is a second warning"

testthat::expect_true(
  all(colSums(
    sapply(c("already negative", "second warning"), grepl,
           testthat::capture_warnings(f1(-1)))
  ) > 0)
)

    Usar sapplyum vetor de mensagens de aviso deve garantir que você obtenha pelo menos um de cada um dos padrões.

    Não é difícil escrever uma expectativa personalizada :

    expect_warnings <- function(object, warnings, ...) {
  wrns <- testthat::capture_warnings({
    act <- testthat::quasi_label(rlang::enquo(object), arg = "object")
  })
  res <- vapply(warnings, function(wrn) any(grepl(wrn, wrns)), FUN.VALUE = logical(1))
  if (all(res)) {
    testthat::succeed()
    return(invisible(act$val))
  } else {
    msg <- sprintf("%s did not produce one or more warnings: %s", act$lab, toString(names(res)[!res]))
    testthat::fail(msg)
  }
}

expect_warnings(f1(-1), c("already", "second"))
### test succeeds

expect_warnings(f1(1), c("already", "second"))
# Error: f1(1) did not produce one or more warnings: already, second

expect_warnings(warning("second line"), c("already", "second"))
# Error: warning("second line") did not produce one or more warnings: already

    Você pode querer/precisar brincar com ...e/ou argumentar com grepl(.)base em suas necessidades e preferências.

    • 2

  2. Finalmente encontrei esta vinheta vignette("third-edition",package ="testthat")/ artigo sobre o testthat 3ª edição . Um pipe pode ser usado entre expect_warning()chamadas.

    Na terceira edição, expect_warning() captura no máximo um aviso para que os outros apareçam:

    local_edition(3)
expect_warning(f(), "First")
Warning in f(): Second warning
Warning in f(): Third warning

    Você pode adicionar expectativas adicionais para capturar esses avisos ou silenciá-los todos com suppressWarnings():

    f() %>% 
expect_warning("First") %>% 
expect_warning("Second") %>% 
expect_warning("Third")

f() %>% 
expect_warning("First") %>% 
suppressWarnings()

    O comportamento da 2ª edição também é discutido no artigo.

    • 0

relate perguntas