Come posso ottenere una copertura di prova del 100% in un modulo Perl che utilizza DBI?

Question

Sono un po 'nuovo nel modulo Devel :: Cover, ma l'ho trovato molto utile per assicurarmi di non mancare i test.

Un problema che sto incontrando è la comprensione del rapporto di Devel :: Cover. Ho esaminato la documentazione, ma non riesco a capire cosa devo testare per ottenere una copertura del 100%.

Edit - dovrei chiarire che non sto dicendo che ho bisogno una copertura del 100%, perché, come più persone sottolineano, copertura del 100% è un termine sciolto, non non significa che il mio codice è privo di bug, e potrebbe non essere sempre completamente necessario. Dato che io sono un principiante Devel :: Copertina, Sono interessato a conoscere perché il mio codice non è una copertura del 100%, nel caso in cui mi manca alcuni importanti test.

Ecco l'output del rapporto di copertura:

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

e qui è e l'esempio del mio codice che verifica questa linea specifica:

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

Questo test passa - il collegamento fa lancia un errore e realizza il mio test "throws_ok".

Ho alcuni test per una connessione riuscita, motivo per cui penso di avere una copertura del 33%, ma se lo sto leggendo correttamente, cover pensa che non sto testando la parte "|| croak" di la dichiarazione. Pensavo di essere, con il test "throws_ok", ma ovviamente mi manca qualcosa.

Qualcuno ha consigli su come posso testare il mio DBI-> connettere la linea con successo?

Grazie!

Edit:

Brian mi soffiata al report HTML e la tabella di verità che spiega il motivo per cui la linea # 41 non passa. L'unico problema è che non riesco a capire cosa mi sta dicendo. Immagino che il vero fulcro della mia domanda sia perché questa linea specifica non supera la copertura.

Ecco la tabella di verità:

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) 

Se qualcuno potrebbe aiutare a spiegare questo tabella di verità, lo apprezzerei. E 'stato anche detto che per passare la copertura ho bisogno di avere un oggetto di database fittizio, ma non vedo proprio come nulla nei risultati di copertura che mi indicherebbe in questo.

Grazie ancora!

Answer 1

Inoltre, non esagerare con il 100% di copertura del test. L'obiettivo è testare completamente la tua applicazione, non ottenere punteggi perfetti in Devel :: Cover. Vedere i messaggi di Ovidio sul tema:

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

Nel tuo caso, sembra che non si coprono tutti i rami, in modo da non si ottiene un punteggio perfetto. È necessario test che esercitano entrambi i lati di quello ||. Otterrai una copertura del 33% in percentuale perché gestisci solo un terzo dei casi per quella linea. Il report HTML di Devel :: Cover ti mostra la tabella di verità e quali casi ti mancano.

La tabella di verità mostra gli stati possibili che è necessario coprire per la ramificazione. A 1 mostra una condizione vera, 0 mostra una condizione falsa e X mostra una condizione che non verrà raggiunta. Devi testare tutte le combinazioni che possono essere eseguite. Dal momento che il || è un operatore di corto circuito, non c'è bisogno di testare le condizioni di una volta uno di loro passa:

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 

Questo è un po 'estraneo al vostro problema particolare, ma trovo arriva spesso in questi i problemi. Anche se lo Effective Perl Programming è un mese così lontano dagli scaffali, Josh McAdams ha passato parecchio tempo a parlare di un'iniezione di dipendenza in Perl. Se hai difficoltà a testare il tuo codice, di solito hai un problema di progettazione. Se stai generando internamente oggetti di database in subroutine, ad esempio, ti stai dipingendo in un angolo. Ecco perché potrebbe essere difficile da testare. Questo potrebbe non essere il problema nel tuo caso, ma è qualcosa su cui riflettere.

Answer 2

È necessario prendere in giro la libreria DBI (o qualsiasi altra dipendenza esterna) per coprire completamente i test dell'unità.

È possibile utilizzare Test :: MockObject, o qualsiasi altro approccio di derisione (ad esempio, la nostra azienda ha sviluppato la nostra libreria di mocking Perl molto potente).

Vedere anche this article in particolare su DBI beffardo.

Inoltre, assicurarsi di utilizzare l'ultima versione di Devel :: Cover. Una volta ho passato 3 giorni a lottare con un test unitario fino a quando mi resi conto che il bug non era nel mio codice, e non nel mio test di unità, ma nella versione precedente di Devel :: Cover che la mia azienda aveva installato. Ha letteralmente ignorato alcuni percorsi di codice nei casi "A || B".