Я начинаю внедрять тестирование для пакета R и использую пакет testthat
. Обратите внимание, что я новичок в тестировании, поэтому, возможно, мой подход неправильный.
У меня есть функция, которая в настоящее время терпит неудачу в 16-й раз, когда она выполняется, и прежде чем исправить это, я хочу написать регрессионный тест, который поймает ее, если она появится снова.
Например, следующая функция всегда выдает одно и то же сообщение об ошибке:
for i in (1:17) myfun()
myfun
ничего не возвращает, у него есть только побочный эффект - открытие соединения с базой данных. Мне ясно, что я могу написать тест, который ожидает ошибку и проходит, если она возвращается:
expect_error(for (i in 1:17) myfun())
Но я не совсем понимаю, как написать тест, гарантирующий, что ошибка не произойдет. Поскольку это не очевидно, возможно, мой подход неверен. Я могу понять, как написать более конкретные тесты, но я хотел бы начать с этого.
Какой тип теста я мог бы написать, чтобы убедиться, что такая ошибка не возникает?
Основные изменения в связи с изменениями в testthat
Начиная с версии 0.11 (через блог в RStudio) есть прямая поддержка для проверки отсутствия ошибок:
expect_error(myfun(), NA)
Же для ловли "предупреждение" и "сообщение":
expect_warning(myfun(), NA)
expect_message(myfun(), NA)
Примечание: Если вы испытываете цикл есть "инфо" параметр в функции expect_xxx передавать дополнительную информацию. Так что вы можете сделать:
for (i in 1:17) expect_error(myfun(), NA, info = paste("i =", i))
Например:
context("test error")
test_that("test error 1", {
expect_true({log(10); TRUE})
})
test_that("test error 2", {
expect_true({log("a"); TRUE})
})
будет проверять наличие ошибки.
> test_file("x.r")
test error : .1
1. Error: test error 2 -------------------------
Non-numeric argument to mathematical function
1: expect_true({
log("a")
TRUE
})
2: expect_that(object, is_true(), info, label)
3: condition(object)
4: expectation(identical(x, TRUE), "isn't true")
5: identical(x, TRUE)
это означает, что первая часть прошла тест, а вторая - нет.
Вот одно из решений, использующее ожидание того, что tryCatch
возвращает 0
, когда ошибка не возникает:
expect_equal(tryCatch(for(i in 1:17) myfun()), 0)