config: each_inbox iteration preserves config order

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

diff --git a/t/config.t b/t/config.t
index 5f0a95ba746bf80b8a0c6ac4c57d006f422e1180..7531fd7552aac14d88855e3f163e12d564264ecb 100644 (file)
--- a/t/config.t
+++ b/t/config.t
@@ -150,4 +150,23 @@ for my $s (@valid) {
        ok(PublicInbox::Config::valid_inbox_name($s), "$d name accepted");
 }
 
+{
+       my $f = "$tmpdir/ordered";
+       open my $fh, '>', $f or die "open: $!";
+       my @expect;
+       foreach my $i (0..3) {
+               push @expect, "$i";
+               print $fh <<"" or die "print: $!";
+[publicinbox "$i"]
+       mainrepo = /path/to/$i.git
+       address = $i\@example.com
+
+       }
+       close $fh or die "close: $!";
+       my $cfg = PublicInbox::Config->new($f);
+       my @result;
+       $cfg->each_inbox(sub { push @result, $_[0]->{name} });
+       is_deeply(\@result, \@expect);
+}
+
 done_testing();