trivial config module for dumping config

We'll be using git config files after all...

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
new file mode 100644 (file)
index 0000000..4078585
--- /dev/null
+++ b/lib/PublicInbox/Config.pm
@@ -0,0 +1,18 @@
+# Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and all contributors
+# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+package PublicInbox::Config;
+
+# returns key-value pairs of config directives in a hash
+sub dump {
+       my ($class, $file) = @_;
+
+       local $ENV{GIT_CONFIG} = $file;
+
+       my @cfg = `git config -l`;
+       $? == 0 or die "git config -l failed: $?\n";
+       chomp @cfg;
+       my %rv = map { split(/=/, $_, 2) } @cfg;
+       \%rv;
+}
+
+1;

diff --git a/t/config.t b/t/config.t
new file mode 100644 (file)
index 0000000..7dddd2e
--- /dev/null
+++ b/t/config.t
@@ -0,0 +1,23 @@
+# Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and 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);
+
+{
+       is(system(qw(git init --bare), $tmpdir), 0, "git init successful");
+       {
+               local $ENV{GIT_DIR} = $tmpdir;
+               is(system(qw(git config foo.bar hihi)), 0, "set config");
+       }
+
+       my $tmp = PublicInbox::Config->dump("$tmpdir/config");
+
+       is("hihi", $tmp->{"foo.bar"}, "config read correctly");
+       is("true", $tmp->{"core.bare"}, "used --bare repo");
+}
+
+done_testing();