zyppe/Perl-UnQLite
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cursor support

Browse source
This commit is contained in:
tokuhirom 2013-07-04 03:47:37 +09:00
parent 9156d52871
commit 15245d2e1c
4 changed files with 479 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

63
t/02_cursor.t Normal file
View file

@ -0,0 +1,63 @@
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"));
ok($db->kv_store("hoge", "fuga"));
}
{
my $cursor = $db->cursor_init();
$cursor->first_entry;
is($cursor->valid_entry(), 1);
is($cursor->key(), 'hoge');
is($cursor->data(), 'fuga');
ok($cursor->next_entry());
is($cursor->valid_entry(), 1);
is($cursor->key(), 'foo');
is($cursor->data(), 'bar');
ok(!$cursor->next_entry());
is($cursor->valid_entry(), 0);
}
{
my $cursor = $db->cursor_init();
my @ret;
for ($cursor->first_entry; $cursor->valid_entry; $cursor->next_entry) {
push @ret, $cursor->key(), $cursor->data()
}
is_deeply(\@ret, [qw(hoge fuga foo bar)]);
}
{
my $cursor = $db->cursor_init();
$cursor->last_entry;
is($cursor->valid_entry(), 1);
is($cursor->key(), 'foo');
is($cursor->data(), 'bar');
ok($cursor->prev_entry());
is($cursor->valid_entry(), 1);
is($cursor->key(), 'hoge');
is($cursor->data(), 'fuga');
ok(!$cursor->prev_entry());
is($cursor->valid_entry(), 0);
}
{
my $cursor = $db->cursor_init();
ok(!$cursor->seek("NON EXISTENT"));
ok($cursor->seek("foo"));
is($cursor->valid_entry(), 1);
$cursor->delete_entry();
}
done_testing;