Czy mogę stwierdzić, czy wszystkie testy przeszły test Perla: Więcej?

Question

Mam skrypt testowy Perl napisany przy użyciu Test::More. Tuż przed wyjściem i jeśli wszystkie testy minęły, chciałbym wykonać pewne czynności porządkowe. Jeśli jakiekolwiek testy się nie powiodą, chcę wszystko pozostawić na miejscu, aby rozwiązać problem.

Czy jest flaga pod numerem Test::More lub inna najlepsza praktyka w jednym skrypcie testowym, aby stwierdzić, czy "wszystko jest w porządku" po zakończeniu samych testów?

Answer 1

Można uzyskać dostęp do aktualnego stanu badań z Test::Builder, dostępnego poprzez 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"; 
} 

Alternatywnie, można po prostu zrobić swoje porządki na końcu skryptu, ale wyjście na początku, jeśli coś pójdzie krzywo, z Test::More 's BAIL_OUT("reason why you are bailing");.

Istnieje wiele innych danych i statystyk, które można zebrać na temat stanu testów; zobacz dokumentację dla Test::Builder.

Answer 2

Oto co wymyśliłem w celu uniknięcia błędu „Nie można zlokalizować obiektu metoda” pokazany na dole tej odpowiedzi:

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

W systemie Solaris 10, z Perl v5.8.4 (z 31 zarejestrowanych łat), mam następujący

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