about summary refs log tree commit homepage
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/config.t6
-rw-r--r--t/v2mirror.t14
2 files changed, 17 insertions, 3 deletions
diff --git a/t/config.t b/t/config.t
index d7fd9446..ee51c6cc 100644
--- a/t/config.t
+++ b/t/config.t
@@ -220,18 +220,18 @@ EOF
 
 {
         for my $t (qw(TRUE true yes on 1 +1 -1 13 0x1 0x12 0X5)) {
-                is(PublicInbox::Config::_git_config_bool($t), 1, "$t is true");
+                is(PublicInbox::Config::git_bool($t), 1, "$t is true");
                 is(xqx([qw(git -c), "test.val=$t",
                         qw(config --bool test.val)]),
                         "true\n", "$t matches git-config behavior");
         }
         for my $f (qw(FALSE false no off 0 +0 +000 00 0x00 0X0)) {
-                is(PublicInbox::Config::_git_config_bool($f), 0, "$f is false");
+                is(PublicInbox::Config::git_bool($f), 0, "$f is false");
                 is(xqx([qw(git -c), "test.val=$f",
                         qw(config --bool test.val)]),
                         "false\n", "$f matches git-config behavior");
         }
-        is(PublicInbox::Config::_git_config_bool('bogus'), undef,
+        is(PublicInbox::Config::git_bool('bogus'), undef,
                 'bogus is undef');
 }
 
diff --git a/t/v2mirror.t b/t/v2mirror.t
index b24528fe..a4ac682d 100644
--- a/t/v2mirror.t
+++ b/t/v2mirror.t
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 use Test::More;
 use PublicInbox::TestCommon;
+use File::Path qw(remove_tree);
 use Cwd qw(abs_path);
 require_git(2.6);
 local $ENV{HOME} = abs_path('t');
@@ -189,6 +190,19 @@ is($mibx->git->check($to_purge), undef, 'unindex+prune successful in mirror');
         is(scalar($mset->items), 0, '1@example.com no longer visible in mirror');
 }
 
+if ('sequential-shard') {
+        $mset = $mibx->search->query('m:15@example.com', {mset => 1});
+        is(scalar($mset->items), 1, 'large message not indexed');
+        remove_tree(glob("$tmpdir/m/xap*"), glob("$tmpdir/m/msgmap.*"));
+        my $cmd = [ qw(-index -j9 --sequential-shard), "$tmpdir/m" ];
+        ok(run_script($cmd), '--sequential-shard works');
+        my @shards = glob("$tmpdir/m/xap*/?");
+        is(scalar(@shards), 8, 'got expected shard count');
+        PublicInbox::InboxWritable::cleanup($mibx);
+        $mset = $mibx->search->query('m:15@example.com', {mset => 1});
+        is(scalar($mset->items), 1, 'search works after --sequential-shard');
+}
+
 if ('max size') {
         $mime->header_set('Message-ID', '<2big@a>');
         my $max = '2k';