init+index: support --skip-docdata for Xapian

Since we no longer read document data from Xapian, allow users
to opt-out of storing it.

This breaks compatibility with previous releases of
public-inbox, but gives us a ~1.5% space savings on Xapian
storage (and associated I/O and page cache pressure reduction).

1 files changed, 13 insertions, 0 deletions

diff --git a/t/init.t b/t/init.t
index 4d2c5049..dad09435 100644
--- a/t/init.t
+++ b/t/init.t
@@ -95,6 +95,19 @@ SKIP: {
                 my $ibx = PublicInbox::Inbox->new({ inboxdir => $dir });
                 is(PublicInbox::Admin::detect_indexlevel($ibx), $lvl,
                         'detected expected level w/o config');
+                ok(!$ibx->{-skip_docdata}, 'docdata written by default');
+        }
+        for my $v (1, 2) {
+                my $name = "v$v-skip-docdata";
+                my $dir = "$tmpdir/$name";
+                $cmd = [ '-init', $name, "-V$v", '--skip-docdata',
+                        $dir, "http://example.com/$name",
+                        "$name\@example.com" ];
+                ok(run_script($cmd), "-init -V$v --skip-docdata");
+                my $ibx = PublicInbox::Inbox->new({ inboxdir => $dir });
+                is(PublicInbox::Admin::detect_indexlevel($ibx), 'full',
+                        "detected default indexlevel -V$v");
+                ok($ibx->{-skip_docdata}, "docdata skip set -V$v");
         }
 
         # loop for idempotency