Kann ich feststellen, ob alle Tests unter Perl's Test :: More bestanden wurden?

Question

Ich habe ein Perl-Testskript geschrieben mit Test::More. Kurz vor dem Beenden, und wenn alle Tests bestanden haben, möchte ich einige Bereinigungsaktionen durchführen. Wenn irgendwelche Tests fehlgeschlagen sind, möchte ich alles für die Fehlersuche an Ort und Stelle lassen.

Gibt es ein Flag innerhalb Test::More, oder eine andere Best Practice innerhalb eines einzelnen Testskripts, um zu sagen, ob "alles ist gut", wenn die Tests selbst abgeschlossen sind?

Answer 1

Sie können den aktuellen Status der Tests Zugriff mit Test::Builder, erhältlich über 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"; 
} 

Alternativ können Sie Ihre Bereinigung am Ende des Skripts nur tun, aber Ausgang früh, wenn die Dinge schief gehen, mit Test::More 's BAIL_OUT("reason why you are bailing");.

Es gibt viele andere Daten und Statistiken, die Sie über den Zustand Ihrer Tests sammeln können; Siehe die Dokumentation für Test::Builder. Hier

Answer 2

ist, was ich kam zu, um das zu vermeiden, Fehler am Ende der Antwort gezeigt „Can not Objektmethode finden“:

#! /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"; 
} 

Auf Solaris 10 mit Perl v5.8.4 (mit 31 registrierten Patches), bekam ich die folgende

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