diff options
author | Eric Wong <e@80x24.org> | 2019-10-15 00:38:06 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-10-15 20:26:41 +0000 |
commit | 1317fb7b4ace03f6d9dfb1a42ee5f9371a1bf913 (patch) | |
tree | f46b2e82a2edd849b3ded014bb4b209e778e6a2f /t/config.t | |
parent | 53a8e32b97985803e9de12c4312a86a8850208b3 (diff) | |
download | public-inbox-1317fb7b4ace03f6d9dfb1a42ee5f9371a1bf913.tar.gz |
Rewrite a bunch of tests to use ordered input (emulating "git config -l" output) so we can always walk sections in the order they were given in the config file.
Diffstat (limited to 't/config.t')
-rw-r--r-- | t/config.t | 73 |
1 files changed, 37 insertions, 36 deletions
@@ -58,30 +58,33 @@ my $tmpdir = tempdir('pi-config-XXXXXX', TMPDIR => 1, CLEANUP => 1); { my $cfgpfx = "publicinbox.test"; my @altid = qw(serial:gmane:file=a serial:enamg:file=b); - my $config = PublicInbox::Config->new({ - "$cfgpfx.address" => 'test@example.com', - "$cfgpfx.mainrepo" => '/path/to/non/existent', - "$cfgpfx.altid" => [ @altid ], - }); + my $config = PublicInbox::Config->new(\<<EOF); +$cfgpfx.address=test\@example.com +$cfgpfx.mainrepo=/path/to/non/existent +$cfgpfx.altid=serial:gmane:file=a +$cfgpfx.altid=serial:enamg:file=b +EOF my $ibx = $config->lookup_name('test'); is_deeply($ibx->{altid}, [ @altid ]); } { my $pfx = "publicinbox.test"; - my %h = ( - "$pfx.address" => 'test@example.com', - "$pfx.mainrepo" => '/path/to/non/existent', - "publicinbox.nntpserver" => 'news.example.com', - ); - my %tmp = %h; - my $cfg = PublicInbox::Config->new(\%tmp); + my $str = <<EOF; +$pfx.address=test\@example.com +$pfx.mainrepo=/path/to/non/existent +publicinbox.nntpserver=news.example.com +EOF + my $cfg = PublicInbox::Config->new(\$str); my $ibx = $cfg->lookup_name('test'); is($ibx->{nntpserver}, 'news.example.com', 'global NNTP server'); - delete $h{'publicinbox.nntpserver'}; - $h{"$pfx.nntpserver"} = 'news.alt.example.com'; - $cfg = PublicInbox::Config->new(\%h); + $str = <<EOF; +$pfx.address=test\@example.com +$pfx.mainrepo=/path/to/non/existent +$pfx.nntpserver=news.alt.example.com +EOF + $cfg = PublicInbox::Config->new(\$str); $ibx = $cfg->lookup_name('test'); is($ibx->{nntpserver}, 'news.alt.example.com','per-inbox NNTP server'); } @@ -90,17 +93,15 @@ my $tmpdir = tempdir('pi-config-XXXXXX', TMPDIR => 1, CLEANUP => 1); { my $pfx = "publicinbox.test"; my $pfx2 = "publicinbox.foo"; - my %h = ( - "$pfx.address" => 'test@example.com', - "$pfx.mainrepo" => '/path/to/non/existent', - "$pfx2.address" => 'foo@example.com', - "$pfx2.mainrepo" => '/path/to/foo', - lc("publicinbox.noObfuscate") => - 'public-inbox.org @example.com z@EXAMPLE.com', - "$pfx.obfuscate" => 'true', # :< - ); - my %tmp = %h; - my $cfg = PublicInbox::Config->new(\%tmp); + my $str = <<EOF; +$pfx.address=test\@example.com +$pfx.mainrepo=/path/to/non/existent +$pfx2.address=foo\@example.com +$pfx2.mainrepo=/path/to/foo +publicinbox.noobfuscate=public-inbox.org \@example.com z\@EXAMPLE.com +$pfx.obfuscate=true +EOF + my $cfg = PublicInbox::Config->new(\$str); my $ibx = $cfg->lookup_name('test'); my $re = $ibx->{-no_obfuscate_re}; like('meta@public-inbox.org', $re, @@ -174,16 +175,16 @@ for my $s (@valid) { { my $pfx1 = "publicinbox.test1"; my $pfx2 = "publicinbox.test2"; - my $h = { - "$pfx1.address" => 'test@example.com', - "$pfx1.mainrepo" => '/path/to/non/existent', - "$pfx2.address" => 'foo@example.com', - "$pfx2.mainrepo" => '/path/to/foo', - "$pfx1.coderepo" => 'project', - "$pfx2.coderepo" => 'project', - "coderepo.project.dir" => '/path/to/project.git', - }; - my $cfg = PublicInbox::Config->new($h); + my $str = <<EOF; +$pfx1.address=test\@example.com +$pfx1.mainrepo=/path/to/non/existent +$pfx2.address=foo\@example.com +$pfx2.mainrepo=/path/to/foo +$pfx1.coderepo=project +$pfx2.coderepo=project +coderepo.project.dir=/path/to/project.git +EOF + my $cfg = PublicInbox::Config->new(\$str); my $t1 = $cfg->lookup_name('test1'); my $t2 = $cfg->lookup_name('test2'); is($t1->{-repo_objs}->[0], $t2->{-repo_objs}->[0], |