Clearer config_dir() tests

This commit is contained in:
Jared Johnson 2014-09-18 16:52:32 -05:00
parent a005ccd680
commit 7969c632aa

View File

@ -58,12 +58,9 @@ sub __log {
} }
sub __config_dir { sub __config_dir {
my $dir = $config->config_dir('logging'); is($Qpsmtpd::Config::dir_memo{bogus}, undef, 'No config_dir cache set yet');
ok($dir, "config_dir, $dir"); is($config->config_dir('bogus'), '/var/qmail/control', 'config_dir default value');
is($Qpsmtpd::Config::dir_memo{bogus}, '/var/qmail/control', 'config_dir cache set');
#warn Data::Dumper::Dumper($Qpsmtpd::config_dir_memo{logging});
$dir = $Qpsmtpd::Config::dir_memo{logging};
ok($dir, "config_dir, $dir (memo)");
} }
sub __clear_cache { sub __clear_cache {