Comment puis-je obtenir une couverture de test de 100% dans un module Perl utilisant DBI?

Question

Je suis un peu nouveau dans le module Devel :: Cover, mais je l'ai trouvé très utile pour m'assurer que je ne manque pas de tests.

Un problème que je rencontre est de comprendre le rapport de Devel :: Cover. J'ai regardé la documentation, mais je n'arrive pas à comprendre ce que j'ai besoin de tester pour obtenir une couverture à 100%.

Modifier - Je dois préciser que je ne dis pas que j'ai besoin une couverture de 100%, parce que plusieurs personnes signalent, une couverture de 100% est un terme lâche, ne veut pas dire que mon code est sans bug, et ne peut pas toujours être complètement nécessaire. Depuis que je suis nouveau à Devel :: Cover, je suis intéressé de savoir pourquoi mon code n'est pas une couverture de 100%, dans le cas où je manque quelques importants tests.

Voici la sortie du rapport de couverture:

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

Et voici et exemple de mon code qui teste cette ligne spécifique:

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

Ce test passe - la connexion ne lancer une erreur et remplit mon test "throws_ok". J'ai des tests qui testent une connexion réussie, c'est pourquoi je pense avoir une couverture de 33%, mais si je la lis correctement, je pense que je ne suis pas en train de tester la partie "|| croak" de la déclaration. Je pensais que j'étais, avec le test "throws_ok", mais évidemment, il me manque quelque chose.

Est-ce que quelqu'un a des conseils sur comment tester ma ligne DBI-> connect avec succès?

Merci!

Edit:

brian me averti le rapport HTML et la table de vérité qui explique pourquoi la ligne n ° 41 ne passe pas. Le seul problème est que je ne peux pas comprendre ce qu'il me dit. Je suppose que le vrai cœur de ma question est de savoir pourquoi cette ligne spécifique ne couvre pas la couverture.

Voici la table de vérité:

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) 

Si quelqu'un pourrait aider à expliquer cette table de vérité, je vous en serais reconnaissant. Il a également été mentionné que pour passer la couverture, j'ai besoin d'un faux objet de base de données, mais je ne vois pas très bien comment les résultats de la couverture pourraient m'indiquer.

Merci encore!

Answer 1

Aussi, ne soyez pas trop accroché sur 100% de couverture de test. Le but est de tester pleinement votre application, et non d'obtenir des scores parfaits dans Devel :: Cover. Voir tous les messages d'Ovide sur le sujet:

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

Dans votre cas, il semble que vous ne couvre pas toutes les branches, afin de ne pas les scores parfaits. Vous avez besoin de tests qui exercent les deux côtés de ce ||. Vous obtenez une couverture de 33% car vous ne gérez qu'un tiers des cas pour cette ligne. Le rapport HTML de Devel :: Cover vous montre la table de vérité et les cas qui vous manquent.

Le tableau de vérité vous montre les états possibles que vous devez couvrir pour le branchement. Un 1 vous montre une condition qui est vraie, 0 vous montre une condition qui est fausse, et X vous montre une condition que vous n'atteindrez pas. Vous devez tester toutes les combinaisons pouvant être exécutées. Étant donné que le || est un opérateur de court-circuit, vous ne devez pas tester les conditions une fois l'un d'entre eux passe:

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 

C'est un peu sans rapport avec votre problème particulier, mais je trouve cela arrive souvent dans ces problèmes. Bien que Effective Perl Programming est un mois de si loin de frapper les étagères, Josh McAdams a passé beaucoup de temps à parler de l'injection de dépendance dans Perl. Si vous éprouvez des difficultés à tester votre code, vous avez généralement un problème de conception. Si vous générez en interne des objets de base de données dans des sous-programmes, par exemple, vous vous peignez dans un coin. C'est pourquoi il pourrait être difficile à tester. Ce n'est peut-être pas le problème dans votre cas, mais c'est quelque chose à penser.

Answer 2

Vous devez vous moquer de la bibliothèque DBI (ou de toute autre dépendance externe) afin de couvrir entièrement vos tests unitaires.

Vous pouvez utiliser Test :: MockObject ou toute autre approche de simulation (par exemple, notre société a développé notre propre bibliothèque de perlations Perl très puissante).

Voir également this article spécifiquement sur DBI moqueur.

Veuillez également vous assurer que vous utilisez la dernière version de Devel :: Cover. J'ai passé 3 jours à lutter avec un test unitaire jusqu'à ce qu'il m'est apparu que le bug n'était pas dans mon code, et pas dans mon test d'unité, mais dans l'ancienne version de Devel :: Cover que mon entreprise avait installée. Il a littéralement ignoré certains chemins de code dans les cas "A || B".