scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-16 20:21:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

1.22: - added a new option to new(): -LowerCaseNames, which

Browse Source 
lowercases all option-names (feature request)


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@10 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2009-10-10 16:10:12 +00:00
parent 93316ddc2e
commit 1ffbf95665
4 changed files with 86 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
t/run.t
View File

@@ -4,17 +4,18 @@
# the Conf.pm source directory.
# Under normal circumstances every test should run.
BEGIN { $| = 1; print "1..7\n";}
BEGIN { $| = 1; print "1..8\n";}
use lib "blib/lib";
use Config::General;
use Data::Dumper;
print "ok\n";
print STDERR "\n1 .. ok # loading Config::General\n";
foreach (2..6) {
foreach (2..7) {
&p("t/cfg." . $_, $_);
}
my $conf = new Config::General("t/cfg.7");
my $conf = new Config::General("t/cfg.8");
my %hash = $conf->getall;
$conf->save("t/cfg.out", %hash);
@@ -25,14 +26,14 @@ my $a = \%hash;
my $b = \%copyhash;
# now see if the saved hash is still the same as the
# one we got from cfg.7
# one we got from cfg.8
if (&comp($a,$b)) {
print "ok\n";
print STDERR "7 .. ok # Writing Config Hash to disk and compare with original\n";
print STDERR "8 .. ok # Writing Config Hash to disk and compare with original\n";
}
else {
print "7 not ok\n";
print STDERR "7 .. not ok\n";
print "8 not ok\n";
print STDERR "8 .. not ok\n";
}