File Coverage

blib/lib/Test/Random.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	4	8	50.0
condition	3	3	100.0
subroutine	7	7	100.0
pod			n/a
total	37	43	86.0

package Test::Random;

use strict;
use warnings;
use Config;

our $VERSION = '20130427';

my $Seed = defined $ENV{TEST_RANDOM_SEED} ? $ENV{TEST_RANDOM_SEED} : _get_seed();

# If something else calls srand() we're in trouble
srand $Seed;

sub _get_seed {
    # Get a random number from 0 to the biggest integer Perl can handle
    my $intbits = $Config{ivsize} * 8;
    my $maxint  = 2**($intbits-1);

    return rand($maxint);
}

sub _display_seed {
    my $tb = shift;

    my $msg = sprintf "TEST_RANDOM_SEED=%d", $Seed;
    my $ok = _test_was_successful($tb);
    $ok ? $tb->note($msg) : $tb->diag($msg);

    return;
}

sub _test_was_successful {
    my $tb = shift;

    if( $tb->can("history") ) {
        return $tb->history->test_was_successful;
    }
    else {
        return $tb->is_passing;
    }
}

sub _test_started {
    my $tb = shift;

    if( $tb->can("history") ) {
        return $tb->history->test_start ? 1 : 0;
    }
    else {
        return defined $tb->has_plan || $tb->summary;
    }
}

END {
    require Test::Builder;
    my $tb = Test::Builder->new;

    if( _test_started($tb) ) {
        _display_seed($tb);
    }
}

1;

__END__