#!perl -w
package Config::Manager::listconf;
use strict;
no strict "vars";
print "1..30\n";
$n = 1;
eval
{
require Config::Manager::Base;
Config::Manager::Base->import();
};
if ($@)
{
print "not ok $n\n";
$n++;
print "not ok $n\n";
}
else
{
print "ok $n\n";
$n++;
if ($Config::Manager::Base::VERSION eq '1.7')
{print "ok $n\n";} else {print "not ok $n\n";}
}
$n++;
eval
{
require Config::Manager::Conf;
Config::Manager::Conf->import();
};
if ($@)
{
print "not ok $n\n";
$n++;
print "not ok $n\n";
}
else
{
print "ok $n\n";
$n++;
if ($Config::Manager::Conf::VERSION eq '1.7')
{print "ok $n\n";} else {print "not ok $n\n";}
}
$n++;
eval
{
require Config::Manager::User;
Config::Manager::User->import(qw(user_id user_conf));
};
if ($@)
{
print "not ok $n\n";
$n++;
print "not ok $n\n";
}
else
{
print "ok $n\n";
$n++;
if ($Config::Manager::User::VERSION eq '1.7')
{print "ok $n\n";} else {print "not ok $n\n";}
}
$n++;
$user = $Config::Manager::Base::VERSION +
$Config::Manager::Conf::VERSION +
$Config::Manager::User::VERSION;
if (defined ($user = &user_id()))
{print "ok $n\n";} else {print "not ok $n\n";$user='';}
$n++;
if (defined ($conf = &user_conf($user)))
{print "ok $n\n";} else {print "not ok $n\n";$conf=Config::Manager::Conf->new();}
$n++;
if (defined ($list = $conf->get_all()))
{print "ok $n\n";} else {print "not ok $n\n";$list=[];}
$n++;
$orig =
[
[ 1, '$[DEFAULT]{CONFIGPATH}', 't', '^.+/Config/Manager/Conf\\.ini$', 29 ],
[ 1, '$[DEFAULT]{LASTCONF}', 't/soft_defaults.ini', '^t/hard_defaults\\.ini$', 6 ],
[ 1, '$[DEFAULT]{LOGFILEPATH}', '.', '^.+/Config/Manager/Conf\\.ini$', 30 ],
[ 1, '$[DEFAULT]{PROJCONF}', 't/project.ini', '^t/hard_defaults\\.ini$', 5 ],
[ 1, '$[DEFAULT]{USERCONF}', 't/user.ini', '^t/hard_defaults\\.ini$', 4 ],
[ 1, '$[Eureka]{Hat_geklappt}', 'Juppie', '^t/soft_defaults\\.ini$', 3 ],
[ 1, '$[Manager]{NEXTCONF}', 't/hard_defaults.ini', '^.+/Config/Manager/Conf\\.ini$', 33 ],
[ 1, '$[Person]{Name}', 'Steffen Beyer', '^t/user\\.ini$', 3 ],
[ 1, '$[Person]{Telefon}', '0162 77 49 721', '^t/user\\.ini$', 4 ],
[ 1, '$[TEST]{NEXTCONF}', 't/TEST.ini', '^.+/Config/Manager/Conf\\.ini$', 36 ]
];
$index = 0;
for ( $count = 0; $count < @{$list}; $count++ )
{
$item = ${$list}[$count];
next if ($$item[3] =~ /^<.+>$/);
$comp = ${$orig}[$index++];
$ok = 1;
for ( $i = 0; $i < @{$item}; $i++ )
{
if ($i == 3)
{
unless ($$item[$i] =~ m!$$comp[$i]!) { $ok = 0; last; }
}
elsif ($i == 0 or $i == 5)
{
unless ($$item[$i] == $$comp[$i]) { $ok = 0; last; }
}
else
{
unless ($$item[$i] eq $$comp[$i]) { $ok = 0; last; }
}
}
if ($ok)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
}
$self = '02____example';
if (-d $self)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
$file = Config::Manager::Report->logfile();
if ($file =~ m!/02____example(?:/\S+)?/02____example-\S*-\d{6}-\d{6}-\d+-\d+\.log$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if (-f $file)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
open(FILE, "<$file");
@log = <FILE>;
close(FILE);
if (@log == 7)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[0] =~ m!^_+$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[1] =~ m!^\s*$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[2] =~ m!^ STARTED: 02____example - \d\d-[A-Z][a-z][a-z]-\d+ \d\d:\d\d:\d\d - Steffen Beyer \(.*?\)$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[3] =~ m!^_+$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[4] =~ m!^\s*$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[5] =~ m!^ COMMAND: '[^']+' 't.02____example\.t'$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($log[6] =~ m!^\s*$!)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
__END__