summaryrefslogtreecommitdiffstats
path: root/t/01distribconf.t
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2008-01-16 23:04:43 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2008-01-16 23:04:43 +0000
commit178521d057638c8b04422fb8c832e002f0dddcfe (patch)
tree3ee7aad11c28593ec3ad31240045620a74e4b6cd /t/01distribconf.t
parenta10837e75e1c04c36dcfc3167f5ce721f3658dc2 (diff)
downloadperl-MDV-Distribconf-178521d057638c8b04422fb8c832e002f0dddcfe.tar
perl-MDV-Distribconf-178521d057638c8b04422fb8c832e002f0dddcfe.tar.gz
perl-MDV-Distribconf-178521d057638c8b04422fb8c832e002f0dddcfe.tar.bz2
perl-MDV-Distribconf-178521d057638c8b04422fb8c832e002f0dddcfe.tar.xz
perl-MDV-Distribconf-178521d057638c8b04422fb8c832e002f0dddcfe.zip
- handle new xml files
Diffstat (limited to 't/01distribconf.t')
-rw-r--r--t/01distribconf.t28
1 files changed, 26 insertions, 2 deletions
diff --git a/t/01distribconf.t b/t/01distribconf.t
index 94beb60..a6024a2 100644
--- a/t/01distribconf.t
+++ b/t/01distribconf.t
@@ -12,7 +12,7 @@ my %testdpath = (
'http://server/path/' => 'testdata/test/media/media_info/media.cfg',
);
-plan tests => 16 + 29 * scalar(keys %testdpath);
+plan tests => 22 + 29 * scalar(keys %testdpath);
use_ok('MDV::Distribconf');
@@ -117,16 +117,40 @@ like($dconf->getpath(undef, 'media_info'), qr!^/*infodir/?$!, "Can get media_inf
}
{
- my $dc = MDV::Distribconf->new('testdata/test3');
+ my $dc = MDV::Distribconf->new('testdata/test');
$dc->load();
is( $dc->getdpath('main', 'hdlist'),
$dc->getmediapath('main', 'hdlist'),
"Can get default path w/o cdmode"
);
+ is ( $dc->getdpath('main', 'info'),
+ 'media/main/media_info/info.xml.lzma',
+ 'Can get xml "info" path'
+ );
+ is ( $dc->getdpath('main', 'files'),
+ 'media/main/media_info/files.xml.lzma',
+ 'Can get xml "files" path'
+ );
+ is ( $dc->getdpath('main', 'changelog'),
+ 'media/main/media_info/changelog.xml.lzma',
+ 'Can get xml "changelog" path'
+ );
$dc->{cfg}->newval('media_info', 'cdmode', 1);
is( $dc->getdpath('main', 'hdlist'),
$dc->getpath('main', 'hdlist'),
"Can get default path w/ cdmode"
);
+ is ( $dc->getdpath('main', 'info'),
+ 'media/media_info/info.main.xml.lzma',
+ 'Can get xml "info" path'
+ );
+ is ( $dc->getdpath('main', 'files'),
+ 'media/media_info/files.main.xml.lzma',
+ 'Can get xml "files" path'
+ );
+ is ( $dc->getdpath('main', 'changelog'),
+ 'media/media_info/changelog.main.xml.lzma',
+ 'Can get xml "changelog" path'
+ );
}