The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use Test::More tests => 3;
use Carp;

use strict;
use warnings;

use Net::DAV::LockManager ();
use Net::DAV::LockManager::Simple ();

my $db = Net::DAV::LockManager::Simple->new();

isa_ok( $db, 'Net::DAV::LockManager::Simple' );

my $mgr = Net::DAV::LockManager->new($db);
isa_ok( $mgr, 'Net::DAV::LockManager' );
can_ok( $mgr, qw/can_modify lock unlock refresh_lock/ );