diff options
author | Eric Wong <e@80x24.org> | 2022-02-14 05:37:24 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-02-14 18:43:15 +0000 |
commit | 80690e594710f2fb89d306f1f5faf4a57aea79c8 (patch) | |
tree | 2969c7fbe27fffe8dc5791a37bfbf87472ec6d99 /t | |
parent | 7cb1f806dfa0173fb689048c56a755cb3874dcaf (diff) | |
download | public-inbox-80690e594710f2fb89d306f1f5faf4a57aea79c8.tar.gz |
Some features didn't get used, and they're just getting in the way of upcoming bugfixes.
Diffstat (limited to 't')
-rw-r--r-- | t/shared_kv.t | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/t/shared_kv.t b/t/shared_kv.t index 251b7f39..8b4f9c29 100644 --- a/t/shared_kv.t +++ b/t/shared_kv.t @@ -1,5 +1,5 @@ #!perl -w -# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org> +# Copyright (C) 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; @@ -26,10 +26,6 @@ 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'); -ok($skv->index_values, 'index_values works'); -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'); @@ -39,14 +35,9 @@ 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($seen{$cafe}, $dead, '$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; ok(!-d $skv_tmpdir, 'temporary dir gone'); $skv = PublicInbox::SharedKV->new("$tmpdir/dir", 'base'); |