summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to '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'
+ );
}