t/cgi.t | 18 ++++++++---------- t/mda.t | 15 +++++++-------- t/plack.t | 20 +++++++++----------- diff --git a/t/cgi.t b/t/cgi.t index 424b738e2c4c68aceaa7a97f42ecc07d86871358..90543a7a51c9f3b87dfbc939bc326255f1ba65a2 100644 --- a/t/cgi.t +++ b/t/cgi.t @@ -13,7 +13,6 @@ my $pi_home = "$home/.public-inbox"; my $pi_config = "$pi_home/config"; my $maindir = "$tmpdir/main.git"; my $addr = 'test-public@example.com'; -my $cfgpfx = "publicinbox.test"; { is(1, mkdir($home, 0755), "setup ~/ for testing"); @@ -23,15 +22,14 @@ open my $fh, '>', "$maindir/description" or die "open: $!\n"; print $fh "test for public-inbox\n"; close $fh or die "close: $!\n"; - my %cfg = ( - "$cfgpfx.address" => $addr, - "$cfgpfx.inboxdir" => $maindir, - "$cfgpfx.indexlevel" => 'basic', - ); - while (my ($k,$v) = each %cfg) { - is(0, system(qw(git config --file), $pi_config, $k, $v), - "setup $k"); - } + open $fh, '>>', $pi_config or die; + print $fh < $addr, - "$cfgpfx.inboxdir" => $maindir, - ); - while (my ($k,$v) = each %cfg) { - is(0, system(qw(git config --file), $pi_config, $k, $v), - "setup $k"); - } + open my $fh, '>>', $pi_config or die; + print $fh <', "$maindir/description" or die "open: $!\n"; print $fh "test for public-inbox\n"; close $fh or die "close: $!\n"; - my %cfg = ( - "$cfgpfx.address" => $addr, - "$cfgpfx.inboxdir" => $maindir, - "$cfgpfx.url" => 'http://example.com/test/', - "$cfgpfx.newsgroup" => 'inbox.test', - ); - while (my ($k,$v) = each %cfg) { - is(0, system(qw(git config --file), $pi_config, $k, $v), - "setup $k"); - } + open $fh, '>>', $pi_config or die; + print $fh <