diff options
author | Olivier Thauvin <nanardon@mandriva.org> | 2008-01-16 19:52:14 +0000 |
---|---|---|
committer | Olivier Thauvin <nanardon@mandriva.org> | 2008-01-16 19:52:14 +0000 |
commit | a10837e75e1c04c36dcfc3167f5ce721f3658dc2 (patch) | |
tree | 9bbc3fd67fdf12e8e63409008e33801df06a6ef3 /t/01distribconf.t | |
parent | 926d786814eb89ecf65d5d9c498dd7006e8e5ada (diff) | |
download | perl-MDV-Distribconf-a10837e75e1c04c36dcfc3167f5ce721f3658dc2.tar perl-MDV-Distribconf-a10837e75e1c04c36dcfc3167f5ce721f3658dc2.tar.gz perl-MDV-Distribconf-a10837e75e1c04c36dcfc3167f5ce721f3658dc2.tar.bz2 perl-MDV-Distribconf-a10837e75e1c04c36dcfc3167f5ce721f3658dc2.tar.xz perl-MDV-Distribconf-a10837e75e1c04c36dcfc3167f5ce721f3658dc2.zip |
- handle cdmode flags in getdpath()
Diffstat (limited to 't/01distribconf.t')
-rw-r--r-- | t/01distribconf.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/t/01distribconf.t b/t/01distribconf.t index f73a154..94beb60 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 => 14 + 29 * scalar(keys %testdpath); +plan tests => 16 + 29 * scalar(keys %testdpath); use_ok('MDV::Distribconf'); @@ -115,3 +115,18 @@ like($dconf->getpath(undef, 'media_info'), qr!^/*infodir/?$!, "Can get media_inf 'getvalue works' ); } + +{ + my $dc = MDV::Distribconf->new('testdata/test3'); + $dc->load(); + is( $dc->getdpath('main', 'hdlist'), + $dc->getmediapath('main', 'hdlist'), + "Can get default path w/o cdmode" + ); + $dc->{cfg}->newval('media_info', 'cdmode', 1); + is( $dc->getdpath('main', 'hdlist'), + $dc->getpath('main', 'hdlist'), + "Can get default path w/ cdmode" + ); +} + |