Jak mogę uzyskać 100% pokrycia testowego w module Perla, który korzysta z DBI?

Question

Jestem trochę nowy w Devel :: Cover module, ale okazało się, że jest bardzo przydatny w upewnianiu się, że nie brakuje mi testów.

Problemem, który napotykam, jest zrozumienie raportu z Devel :: Cover. Przyjrzałem się dokumentacji, ale nie mogę wymyślić, co muszę przetestować, aby uzyskać 100% pokrycia.

Edit - muszę jasno powiedzieć, że nie mówię, muszę 100% pokrycia, bo jak wiele osób podkreślić, 100% pokrycia jest luźny termin, nie nie znaczy, że mój kod jest bezbłędny, a nie zawsze musi być całkowicie konieczne. Ponieważ jestem nowy na rzecz Rozwoju :: Okładka, jestem zainteresowany, aby wiedzieć dlaczego mój kod nie jest w 100% pokrycie w razie brakuje mi kilka ważnych testów.

Oto wynik z raportu Okładka:

line err stmt bran cond sub pod time code 
... 
36             sub connect_database { 
37    3     3  1 1126  my $self = shift; 
38    3 100       24  if (!$self->{dsn}) { 
39    1         7   croak 'dsn not supplied - cannot connect'; 
40              } 
41 ***  2   33     21  $self->{dbh} = DBI->connect($self->{dsn}, q{}, q{}) 
42               || croak "$DBI::errstr"; 
43    1         11  return $self; 
44             } 
... 
line err  %  l !l&&r !l&&!r expr 
----- --- ------ ------ ------ ------ ---- 
41 ***  33  1  0  0 'DBI'->connect($$self{'dsn'}, '', '') || croak("$DBI::errstr") 

A oto i przykład z mojego kodu, który testuje ten konkretny wiersz:

my $database = MyModule::Database->new({ dsn => 'Invalid DSN' }); 
throws_ok(sub { $database->connect_database() }, 
    qr/Can't connect to data source/, 
    'Test connection exception (invalid dsn)'); 

Ten test przechodzi - connect robi zgłoszę błąd i wykonam test "throws_ok".

Mam kilka testów, które sprawdzają poprawność połączenia, dlatego myślę, że mam 33% pokrycia, ale jeśli czytam to poprawnie, cover uważa, że ​​nie testuję części "|| croak" twierdzenie. Myślałem, że jestem z testem "throws_ok", ale oczywiście brakuje mi czegoś.

Czy ktoś ma porady, w jaki sposób mogę przetestować moją linię DBI-> connect?

Dzięki!

Edit:

Brian przechylił mnie do raportu HTML i tabeli prawdy, która wyjaśnia, dlaczego linia nr 41 nie przechodzi. Jedyny problem polega na tym, że nie mogę zrozumieć, co mi mówi. Sądzę, że prawdziwym sednem mojego pytania jest to, dlaczego ta konkretna linia nie przechodzi przez zasięg.

Oto tabela prawdy:

LINE # % # coverage # condition 
41 # 33 # A | B | deC# 'DBI'->connect($$self{'dsn'}, '', '') || croak("$DBI::errstr") 
    # # 0 | 0 | 0 # 
    # # 0 | 1 | 1 # 
    # # 1 | X | 1 # (THIS LINE IS Green - the rest are red) 

Jeśli ktoś mógłby pomóc wyjaśnić tę tablicę prawdy, będę wdzięczny. Wspomniano również, że aby przekazać zasięg, muszę mieć sfałszowany obiekt bazy danych, ale nie bardzo rozumiem, jak cokolwiek w wynikach zasięgu mogłoby mi w tym pomóc.

Jeszcze raz dziękuję!

Answer 1

Ponadto, nie należy zbytnio wieszać na 100% pokrycia testowego. Celem jest pełne przetestowanie aplikacji, a nie uzyskanie doskonałych wyników w Devel :: Cover. Zobacz posty Owidiusza na temat:

• More on 100% Test Coverage
• 100% Test Coverage?

W twoim przypadku, wygląda na to, że nie obejmują one wszystkich oddziałów, więc nie uzyskać doskonałe wyniki. Musisz wykonać testy, które wykonują obie strony tego ||. Otrzymujesz 33% procent pokrycia, ponieważ zajmujesz się tylko jedną trzecią przypadków dla tej linii. Raport HTML z Devel :: Cover pokazuje tabelę prawdy i brakujące przypadki.

Tabela prawdy pokazuje możliwe stany, które należy objąć w przypadku rozgałęzienia. A 1 pokazuje stan, który jest prawdziwy, 0 pokazuje stan, który jest fałszywy, a X pokazuje stan, do którego nie dotrzesz. Musisz przetestować wszystkie kombinacje, które można wykonać. Ponieważ || jest operatorem zwarcie, nie trzeba testować warunki raz jeden z nich przechodzi:

0 || 1  connect to database fails and croak succeeds 
0 || 0  connect to database fails and croak fails (unlikely) 
1 || X  connect to database succeeds, so short circuit 

To trochę niezwiązane z danym problemem, ale uważam, że często pojawia się w nich problemy. Chociaż Effective Perl Programming jest miesiącem od uderzenia w półki, Josh McAdams spędził sporo czasu rozmawiając o zastrzyku uzależnienia w Perlu. Jeśli masz problemy z testowaniem kodu, zwykle masz problem z projektowaniem. Jeśli wewnętrznie generujesz obiekty bazy danych w podprogramach, na przykład malujesz się w rogu. Dlatego może być trudno przetestować. To może nie być problem w twoim przypadku, ale jest o czym myśleć.

Answer 2

Musisz sfałszować bibliotekę DBI (lub dowolną zewnętrzną zależność), aby całkowicie pokryć testy jednostek.

Możesz użyć Test :: MockObject lub dowolnego innego podejścia do szyderstwa (np. Nasza firma opracowała własną, niestandardową, bardzo wydajną bibliotekę perlącą).

Zobacz także this article specjalnie na temat szyderstwa DBI.

Należy również upewnić się, że używasz najnowszej wersji programu Devel :: Cover. Spędziłem 3 dni na testach jednostkowych, dopóki nie przyszło mi na myśl, że błąd nie jest w moim kodzie, a nie w moim teście jednostkowym, ale w starszej wersji Devel :: Cover, którą moja firma zainstalowała. Dosłownie zignorował niektóre ścieżki kodowe w przypadkach "A || B".