diff options
author | Eric Wong <e@80x24.org> | 2020-12-31 13:51:23 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-01-01 05:00:38 +0000 |
commit | fa7bab31c9e5ded5c832b42de56f48dbdf9de972 (patch) | |
tree | 119da483ffc9a877bfa9e703f3eca9c8da4b93b8 /t | |
parent | 80e70e03c788b5ed776e508e6f7bc3557819c19d (diff) | |
download | public-inbox-fa7bab31c9e5ded5c832b42de56f48dbdf9de972.tar.gz |
This is intended for maintaining Maildir states, mbox message deduplication, but may be useful for other purposes...
Diffstat (limited to 't')
-rw-r--r-- | t/shared_kv.t | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/t/shared_kv.t b/t/shared_kv.t new file mode 100644 index 00000000..4b727462 --- /dev/null +++ b/t/shared_kv.t @@ -0,0 +1,57 @@ +#!perl -w +# Copyright (C) 2020 all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> +use strict; +use v5.10.1; +use Test::More; +use PublicInbox::TestCommon; +use_ok 'PublicInbox::SharedKV'; +my ($tmpdir, $for_destroy) = tmpdir(); +local $ENV{TMPDIR} = $tmpdir; +my $skv = PublicInbox::SharedKV->new; +opendir(my $dh, $tmpdir) or BAIL_OUT $!; +my @ent = grep(!/\A\.\.?\z/, readdir($dh)); +is(scalar(@ent), 1, 'created a temporary dir'); +$skv->dbh; +my $dead = "\xde\xad"; +my $beef = "\xbe\xef"; +my $cafe = "\xca\xfe"; +ok($skv->set($dead, $beef), 'set'); +is($skv->get($dead), $beef, 'get'); +ok($skv->set($dead, $beef), 'set idempotent'); +ok(!$skv->set_maybe($dead, $cafe), 'set_maybe ignores'); +ok($skv->set_maybe($cafe, $dead), 'set_maybe sets'); +is($skv->xchg($dead, $cafe), $beef, 'xchg'); +is($skv->get($dead), $cafe, 'get after xchg'); +is($skv->xchg($dead, undef), $cafe, 'xchg to undef'); +is($skv->get($dead), undef, 'get after xchg to undef'); +is($skv->get($cafe), $dead, 'get after set_maybe'); +is($skv->replace_values($dead, $cafe), 1, 'replaced one by value'); +is($skv->get($cafe), $cafe, 'value updated'); +is($skv->replace_values($dead, $cafe), 0, 'replaced none by value'); +is($skv->xchg($dead, $cafe), undef, 'xchg from undef'); +is($skv->count, 2, 'count works'); + +my %seen; +my $sth = $skv->each_kv_iter; +while (my ($k, $v) = $sth->fetchrow_array) { + $seen{$k} = $v; +} +is($seen{$dead}, $cafe, '$dead has expected value'); +is($seen{$cafe}, $cafe, '$cafe has expected value'); +is(scalar keys %seen, 2, 'iterated through all'); + +is($skv->replace_values($cafe, $dead), 2, 'replaced 2 by value'); +is($skv->delete_by_val('bogus'), 0, 'delete_by_val misses'); +is($skv->delete_by_val($dead), 2, 'delete_by_val hits'); +is($skv->delete_by_val($dead), 0, 'delete_by_val misses again'); + +undef $skv; +rewinddir($dh); +@ent = grep(!/\A\.\.?\z/, readdir($dh)); +is(scalar(@ent), 0, 'temporary dir gone'); +undef $dh; +$skv = PublicInbox::SharedKV->new("$tmpdir/dir", 'base'); +ok(-e "$tmpdir/dir/base.sqlite3", 'file created'); + +done_testing; |