|
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 |
|