W jaki sposób powinienem promować ostrzeżenia Perla do błędów krytycznych podczas programowania?

Question

Podczas uruchamiania pakietu testów aplikacji chcę promować wszystkie ostrzeżenia dotyczące kompilacji i czasu pracy w Perlu (np. Ostrzeżenie "Niezainicjowana zmienna") w przypadku błędów krytycznych, aby umożliwić I i innym programistom zbadanie i naprawienie kodu generującego ostrzeżenie. Ale chcę to zrobić tylko podczas programowania i testowania CI. W produkcji ostrzeżenia powinny pozostać ostrzeżeniami.

Próbowałem następujących czynności: W "t/lib" I stworzył TestHelper.pm modułu:

# TestHelper.pm 
use warnings FATAL => qw(all); 
1; 

wówczas nazywano zestaw testów takiego:

$ PERL5LIB=$PERL5LIB:./t/lib PERL5OPT=-MTestHelper.pm prove -l t/*.t 

Ale to nie miało pożądany efekt promowania wszystkich ostrzeżeń na błędy krytyczne. Dostałem ostrzeżenia jako normalne, ale ostrzeżenia nie wydają się być traktowane jako śmiertelne. Zauważ, że wszystkie moje skrypty test.t mają wiersz "użyj ostrzeżeń"; w nich - może to przesadza z tym w TestHelper.pm, ponieważ "ostrzeżenia o korzystaniu" mają zasięg lokalny?

Zamiast Robiłem to:

# TestHelper.pm 
# Promote all warnings to fatal 
$SIG{__WARN__} = sub { die @_; }; 
1; 

To działa, ale ma zapachy kodu temat. Nie podoba mi się też, że bombarduje pierwsze ostrzeżenie. Wolałbym, aby pakiet testowy działał w pełni, rejestrując wszystkie ostrzeżenia, ale ostatecznie status testu się nie powiódł, ponieważ kod był uruchamiany z ostrzeżeniami.

Czy istnieje lepszy sposób na osiągnięcie tego wyniku końcowego?

Answer 1

Myślę, że szukasz Test::NoWarnings.

Answer 2

Powód, dla którego use warnings FATAL => qw(all); nie działa, ponieważ use warnings ma zasięg leksykalny. Więc wszelkie ostrzeżenia wyprodukowane w TestHelper.pm będą śmiertelne, ale ostrzeżenia wyprodukowane w innym miejscu będą działać normalnie.

Jeśli chcesz włączyć globalne ostrzeżenia o zagrożeniach, myślę, że obsługa $SIG{__WARN__} jest prawdopodobnie jedynym sposobem na zrobienie tego. Jeśli nie chcesz, aby wysadzono w powietrze przy pierwszym ostrzeżeniu, możesz pozwolić swojemu handlerowi zapisać je w tablicy, a następnie sprawdzić w bloku END.

my @WARNINGS; 
$SIG{__WARN__} = sub { push @WARNINGS, shift }; 

END { 
    if (@WARNINGS) {  
     print STDERR "There were warnings!\n"; 
     print "$_\n" for @WARNINGS; 
     exit 1; 
    } 
}