"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/000prereq.t" between
BerkeleyDB-0.63.tar.gz and BerkeleyDB-0.64.tar.gz

About: BerkeleyDB is a module which allows Perl programs to make use of the facilities provided by Berkeley DB (version 2 or greater).

000prereq.t  (BerkeleyDB-0.63):000prereq.t  (BerkeleyDB-0.64)
skipping to change at line 13 skipping to change at line 13
chdir 't' if -d 't'; chdir 't' if -d 't';
@INC = ("../lib", "lib/compress"); @INC = ("../lib", "lib/compress");
} }
} }
use lib qw(t t/compress); use lib qw(t t/compress);
use strict ; use strict ;
use warnings ; use warnings ;
use Test::More ; use Test::More ;
use util ;
BEGIN BEGIN
{ {
# use Test::NoWarnings, if available # use Test::NoWarnings, if available
my $extra = 0 ; my $extra = 0 ;
$extra = 1 $extra = 1
if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 };
plan tests => 1 + $extra ; plan tests => 1 + $extra ;
use_ok('BerkeleyDB', '0.63'); use_ok('BerkeleyDB', '0.64');
} }
if (defined $BerkeleyDB::VERSION) if (defined $BerkeleyDB::VERSION)
{ {
my $ver = BerkeleyDB::DB_VERSION_STRING(); my $ver = BerkeleyDB::DB_VERSION_STRING();
my $has_heap = 'Not Available' ;
if ($BerkeleyDB::db_version >= 5.1)
{
$has_heap = BerkeleyDB::has_heap() ? 'True' : 'False';
}
# Is encryption support available?
my $has_encryption = 'Not Available';
if ($BerkeleyDB::db_version >= 4.1)
{
my $env = new BerkeleyDB::Env @StdErrFile,
-Encrypt => {Password => "abc",
Flags => DB_ENCRYPT_AES
};
$has_encryption = 'True';
$has_encryption = 'False'
if $BerkeleyDB::Error =~ /Operation not supported/;
}
diag <<EOM ; diag <<EOM ;
BerkeleyDB version $BerkeleyDB::VERSION BerkeleyDB version $BerkeleyDB::VERSION
BerkeleyDB::DB_VERSION_STRING $ver BerkeleyDB::DB_VERSION_STRING $ver
BerkeleyDB::db_version $BerkeleyDB::db_version BerkeleyDB::db_version $BerkeleyDB::db_version
BerkeleyDB::db_ver $BerkeleyDB::db_ver BerkeleyDB::db_ver $BerkeleyDB::db_ver
Heap Support $has_heap
Encryption Support $has_encryption
EOM EOM
} }
 End of changes. 4 change blocks. 
1 lines changed or deleted 25 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)