29 lines
584 B
Perl
29 lines
584 B
Perl
use strict;
|
|
use Test::More;
|
|
|
|
use File::Temp qw(tempdir);
|
|
use UnQLite;
|
|
|
|
my $tmp = tempdir( CLEANUP => 1 );
|
|
|
|
{
|
|
my $db = UnQLite->open("$tmp/foo.db");
|
|
isa_ok($db, 'UnQLite');
|
|
|
|
ok($db->kv_store("foo", "bar"));
|
|
is($db->kv_fetch('foo'), 'bar');
|
|
ok($db->kv_delete('foo'));
|
|
is($db->kv_fetch('foo'), undef);
|
|
$db->kv_store('yay', 'yap');
|
|
$db->kv_append('yay', 'po');
|
|
is($db->kv_fetch('yay'), 'yappo');
|
|
is($db->rc,0);
|
|
}
|
|
|
|
my $db = UnQLite->open("/path/to/unexisted/file");
|
|
is($db->kv_fetch('x'), undef);
|
|
isnt($db->rc, 0);
|
|
note $db->errstr;
|
|
|
|
done_testing;
|
|
|