config: reject `\n' in `inboxdir'

[public-inbox.git] / t / init.t

diff --git a/t/init.t b/t/init.t
index 5c021be729bc7ed094987b9af2d1aac085094d26..b8f17b5c4805c3338b4fe8476ac64757ed5b41ad 100644 (file)
--- a/t/init.t
+++ b/t/init.t
@@ -49,6 +49,14 @@ sub quiet_fail {
        ok(unlink("$cfgfile.lock"),
                '-init did not unlink lock on failure');
 }
+{
+       my $rdr = { 2 => \(my $err = '') };
+       my $cmd = [ '-init', 'alist', "$tmpdir/a\nlist",
+                  qw(http://example.com/alist alist@example.com) ];
+       ok(!run_script($cmd, undef, $rdr),
+               'public-inbox-init rejects LF in inboxdir');
+       like($err, qr/`\\n' not allowed in `/s, 'reported \\n');
+}
 
 SKIP: {
        require_mods(qw(DBD::SQLite Search::Xapian::WritableDatabase), 2);