diag( "Using IPC::Semaphore $IPC::Semaphore::VERSION, IPC::SysV $IPC::SysV::VERSION, DB_File $DB_File::VERSION" );
require Apache::Session::Lock::Semaphore;
$Apache::Session::Lock::Semaphore::sem_key=undef;
$Apache::Session::Lock::Semaphore::sem_key=$Apache::Session::Lock::Semaphore::sem_key;
my $session = tie my %session, $package, undef, {
    Store     => 'DB_File',
    Lock      => 'Semaphore',
    Generate  => 'MD5',
    Serialize => 'Base64',
#        SemaphoreKey => undef,
#        SemaphoreKey => 31817,
}; #Apache::Session::save in TIEHASH does acquire_write_lock

isa_ok $session->{object_store}, 'Apache::Session::Store::DB_File';
isa_ok $session->{lock_manager}, 'Apache::Session::Lock::Semaphore';
is ref($session->{generate}),    'CODE', 'generate is CODE';
is ref($session->{serialize}),   'CODE', 'serialize is CODE';
is ref($session->{unserialize}), 'CODE', 'unserialize is CODE';
$session->{lock_manager}->remove();
}