mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
fix rt.cpan.org#115326, added IFDefine support, fix POD indentation
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@111 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
19
t/run.t
19
t/run.t
@@ -8,7 +8,7 @@
|
||||
|
||||
|
||||
use Data::Dumper;
|
||||
use Test::More tests => 75;
|
||||
use Test::More tests => 78;
|
||||
#use Test::More qw(no_plan);
|
||||
|
||||
# ahem, we deliver the test code with a local copy of
|
||||
@@ -774,3 +774,20 @@ for my $bool (0, 1) {
|
||||
my %hash = $conf->getall;
|
||||
is_deeply \%hash, $expected57, "-UTF8 => $bool";
|
||||
}
|
||||
|
||||
# IFDEF tests
|
||||
my $cfg58 = "t/cfg.58";
|
||||
my $expected58 = { level => "debug" };
|
||||
my %defs = (
|
||||
scalar => 'TEST',
|
||||
array => ['TEST'],
|
||||
hash => {'TEST' => 1}
|
||||
);
|
||||
|
||||
foreach my $def (keys %defs) {
|
||||
my $conf = Config::General->new(-ConfigFile => $cfg58,
|
||||
-UseApacheIfDefine => 1,
|
||||
-Define => $defs{$def});
|
||||
my %hash = $conf->getall();
|
||||
is_deeply \%hash, $expected58, "UseApacheIfDefine, -Define => $def";
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user