Puis-je savoir si tous les tests passés sous Perl's Test :: More?

Question

J'ai un script de test Perl écrit en utilisant Test::More. Juste avant de quitter, et si tous les tests sont passés, j'aimerais effectuer des actions de nettoyage. Si les tests échouent, je veux tout laisser en place pour le dépannage.

Existe-t-il un indicateur au sein de Test::More, ou d'autres bonnes pratiques dans un script de test unique, pour dire si "tout va bien" une fois les tests eux-mêmes terminés?

Answer 1

Vous pouvez accéder à l'état actuel des tests avec Test::Builder, disponible via Test::More->builder:

use strict; 
use warnings; 
use Test::More tests => 1; 

ok(int rand 2, 'this test randomly passes or fails'); 

if (Test::More->builder->is_passing) 
{ 
    print "hooray!\n"; 
} 
else 
{ 
    print "aw... :(\n"; 
} 

Alternativement, vous pouvez simplement faire votre nettoyage à la fin du script, mais la sortie tôt si les choses tournent mal, avec Test::More's BAIL_OUT("reason why you are bailing");.

Il y a beaucoup d'autres données et statistiques que vous pouvez rassembler sur l'état de vos tests; Voir la documentation pour Test::Builder.

Answer 2

Voici ce que je suis venu dans le but d'éviter l'erreur « Impossible de localiser la méthode objet » indiquée au bas de cette réponse:

#! /usr/bin/perl 

use strict; 
use warnings; 
use Test::More tests => 1; 

ok(int rand 2, 'this test randomly passes or fails'); 

my $FAILcount = 0; 
foreach my $detail (Test::Builder->details()) { 
    if (${%$detail}{ok}==0) { $FAILcount++; } 
} 

if ($FAILcount == 0) { 
    print "hooray!\n"; 
} else { 
    print "aw... :(\n"; 
} 

Sur Solaris 10, avec Perl v5.8.4 (avec 31 patches enregistrés), je suis le

Can't locate object method "is_passing" via package "Test::Builder"