Blame t/000prereq.t

Packit Service 4a2782
BEGIN {
Packit Service 4a2782
    if ($ENV{PERL_CORE}) {
Packit Service 4a2782
        chdir 't' if -d 't';
Packit Service 4a2782
        @INC = ("../lib", "lib/compress");
Packit Service 4a2782
    }
Packit Service 4a2782
}
Packit Service 4a2782
Packit Service 4a2782
use lib qw(t t/compress);
Packit Service 4a2782
use strict ;
Packit Service 4a2782
use warnings ;
Packit Service 4a2782
Packit Service 4a2782
use Test::More ;
Packit Service 4a2782
Packit Service 4a2782
BEGIN
Packit Service 4a2782
{
Packit Service 4a2782
    # use Test::NoWarnings, if available
Packit Service 4a2782
    my $extra = 0 ;
Packit Service 4a2782
    $extra = 1
Packit Service 4a2782
        if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
Packit Service 4a2782
Packit Service 4a2782
Packit Service 4a2782
    my $VERSION = '2.081';
Packit Service 4a2782
    my @NAMES = qw(
Packit Service 4a2782
			
Packit Service 4a2782
			);
Packit Service 4a2782
Packit Service 4a2782
    my @OPT = qw(
Packit Service 4a2782
			
Packit Service 4a2782
			);
Packit Service 4a2782
Packit Service 4a2782
    plan tests => 1 + @NAMES + @OPT + $extra ;
Packit Service 4a2782
Packit Service 4a2782
    ok 1;
Packit Service 4a2782
Packit Service 4a2782
    foreach my $name (@NAMES)
Packit Service 4a2782
    {
Packit Service 4a2782
        use_ok($name, $VERSION);
Packit Service 4a2782
    }
Packit Service 4a2782
Packit Service 4a2782
Packit Service 4a2782
    foreach my $name (@OPT)
Packit Service 4a2782
    {
Packit Service 4a2782
        eval " require $name " ;
Packit Service 4a2782
        if ($@)
Packit Service 4a2782
        {
Packit Service 4a2782
            ok 1, "$name not available" 
Packit Service 4a2782
        }
Packit Service 4a2782
        else  
Packit Service 4a2782
        {
Packit Service 4a2782
            my $ver = eval("\$${name}::VERSION");
Packit Service 4a2782
            is $ver, $VERSION, "$name version should be $VERSION" 
Packit Service 4a2782
                or diag "$name version is $ver, need $VERSION" ;
Packit Service 4a2782
        }         
Packit Service 4a2782
    }
Packit Service 4a2782
    
Packit Service 4a2782
}
Packit Service 4a2782