view release on metacpan or  search on metacpan

t/Test_Framework.pm  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
use warnings;
use strict;
use Exporter;
use vars qw(@ISA @EXPORT);
 
@ISA    = qw(Exporter);
@EXPORT = qw(&Test &Test_Failure &Report_Results &Arrays_Equal);
my $test_no = 1;
my @results;
 
sub Test(&)
{
    my $code = $_[0];
    push @results, test_succeeds($code);
    if ( !$results[$#results] )
    {
        print STDERR $@, "\n" if $@;
    }
}
 
sub Test_Failure(&)
{
    my $code = $_[0];
    push @results, !test_succeeds($code);
}
 
sub Report_Results()
{
    print '1..', ( $#results + 1 ), "\n";
    for ( my $i = 0 ; $i <= $#results ; $i++ )
    {