Jak sprawdzić, czy błąd nie występuje?

Question

Zaczynam wdrażać testy dla pakietu R i używam pakietu testthat. Zauważ, że jestem nowy w testowaniu, więc być może moje podejście jest wyłączone.

Mam funkcję, która obecnie kończy się niepowodzeniem po raz 16, kiedy jest wykonywana, i przed naprawieniem tego chcę napisać test regresji, który go wyłapie, jeśli ponownie się pojawi.

np Zawsze po rzuca ten sam komunikat o błędzie:

for i in (1:17) myfun() 

myfun nie zwraca niczego, ma tylko ten skutek uboczny otwarcia połączenia z bazą danych. Oczywiste jest dla mnie, że mogę napisać test, który oczekuje błąd i przechodzi jeżeli jest ona zwracana:

expect_error(for (i in 1:17) myfun()) 

Ale nie dość dostać jak napisać test, aby upewnić się, że błąd nie występuje. Ponieważ nie jest to oczywiste, być może moje podejście jest złe. Mogę wymyślić, jak napisać bardziej szczegółowe testy, ale chciałbym zacząć od tego.

Jakiego rodzaju test powinienem napisać, aby upewnić się, że taki błąd się nie pojawia?

Answer 1

Główne edycji z powodu zmian w testthat

od wersji 0.11 (poprzez RStudio blog) istnieje bezpośrednie wsparcie testowania braku błędów:

expect_error(myfun(), NA) 

To samo dotyczy przechwytywania warning i message:

expect_warning(myfun(), NA) 
expect_message(myfun(), NA) 

marginesie: jeśli test pętli jest info parametr w expect_xxx funkcji przekazać dodatkowe informacje. Więc można zrobić:

for (i in 1:17) expect_error(myfun(), NA, info = paste("i =", i)) 

Answer 2

Na przykład:

context("test error") 
test_that("test error 1", { 
    expect_true({log(10); TRUE}) 
}) 

test_that("test error 2", { 
    expect_true({log("a"); TRUE}) 
}) 

będzie sprawdzić, czy nie ma błędu.

> 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) 

oznacza to, że pierwsza część zdała test, a druga część nie.

Answer 3

Oto jedno rozwiązanie używając oczekiwanie, że tryCatch powraca 0 gdy błąd nie występuje:

expect_equal(tryCatch(for(i in 1:17) myfun()), 0) 

Answer 4

Może owinąć go innym expect_error.

przykład:

expect_error(1) 
expect_error(expect_error(1))