From 39cbed22c071aea381101a9612485118692144d0 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Fri, 9 Jun 2006 21:20:47 +0000 Subject: - add settree() function --- t/01distribconf.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) (limited to 't/01distribconf.t') diff --git a/t/01distribconf.t b/t/01distribconf.t index 8899d40..685718b 100644 --- a/t/01distribconf.t +++ b/t/01distribconf.t @@ -3,7 +3,7 @@ # $Id$ use strict; -use Test::More tests => 16; +use Test::More tests => 22; use_ok('MDV::Distribconf'); @@ -12,6 +12,7 @@ ok(my $dconf = MDV::Distribconf->new('/dev/null'), "Can get new MDV::Distribconf ok(!$dconf->load(), "loading wrong distrib give error"); } +{ ok(my $dconf = MDV::Distribconf->new('test'), "Can get new MDV::Distribconf"); ok($dconf->load(), "Can load conf"); @@ -28,4 +29,23 @@ ok($dconf->getpath(undef, 'media_info') =~ m!^/*media/media_info/?$!, "Can get m ok($dconf->getfullpath(undef, 'media_info') =~ m!^/*test/+media/media_info/?$!, "Can get media_info fullpath"); # vim color: */ ok($dconf->getpath('main', 'path') =~ m!^/*media/+main/?$!, "Can get media path"); # vim color: */ ok($dconf->getfullpath('main', 'path') =~ m!^/*test/*media/+main/?$!, "Can get media fullpath"); # vim color: */ +} +{ +ok(my $dconf = MDV::Distribconf->new('not_exists'), "Can get new MDV::Distribconf"); +$dconf->settree(); +ok($dconf->getpath(undef, 'media_info') =~ m!^/*media/media_info/?$!, "Can get media_info path"); # vim color: */ +} +{ +ok(my $dconf = MDV::Distribconf->new('not_exists'), "Can get new MDV::Distribconf"); +$dconf->settree('manDraKE'); +ok($dconf->getpath(undef, 'media_info') =~ m!^/*Mandrake/base/?$!, "Can get media_info path"); # vim color: */ +} +{ +ok(my $dconf = MDV::Distribconf->new('not_exists'), "Can get new MDV::Distribconf"); +$dconf->settree({ + mediadir => 'mediadir', + infodir => 'infodir', +}); +ok($dconf->getpath(undef, 'media_info') =~ m!^/*infodir/?$!, "Can get media_info path"); # vim color: */ +} -- cgit v1.2.1