The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use Test::More tests => 8;
use Search::Odeum;
use File::Path qw(rmtree);

my $db = './t/01_odeub.db';
my $od = Search::Odeum->new($db, OD_OCREAT|OD_OWRITER);

ok($od->sync);
isa_ok($od, 'Search::Odeum');
ok(-d $db);
is((stat($db))[1], $od->inode);
is($od->name, $db);
ok($od->fsiz);
ok($od->writable);
ok(time >= $od->mtime);
$od->close;

END {
    rmtree($db);
}