From e925ee9eacaac438c87471bda8c28d5edff7523e Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 21 Sep 2014 04:19:30 +0000 Subject: public-inbox-init: manages the config files This hopefully allows easier setup. --- t/init.t | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 t/init.t (limited to 't/init.t') diff --git a/t/init.t b/t/init.t new file mode 100644 index 00000000..766e81b1 --- /dev/null +++ b/t/init.t @@ -0,0 +1,22 @@ +# Copyright (C) 2014, all contributors +# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) +use strict; +use warnings; +use Test::More; +use PublicInbox::Config; +use File::Temp qw/tempdir/; +my $tmpdir = tempdir(CLEANUP => 1); +use constant pi_init => 'blib/script/public-inbox-init'; + +{ + local $ENV{PI_DIR} = "$tmpdir/.public-inbox/"; + my $cfgfile = "$ENV{PI_DIR}/config"; + my @cmd = (pi_init, 'blist', "$tmpdir/blist", + qw(http://example.com/blist blist@example.com)); + is(system(@cmd), 0, join(' ', @cmd). ' failed'); + + ok(-e $cfgfile, "config exists, now"); + is(system(@cmd), 0, join(' ', @cmd). ' failed (idempotent)'); +} + +done_testing(); -- cgit v1.2.3-24-ge0c7