From b803324c16756b9c541546d1fc2e717a13aacd9b Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Mon, 2 Jul 2007 13:19:43 +0000 Subject: - add platform value --- t/01distribconf.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/01distribconf.t b/t/01distribconf.t index b494c6d..b411bea 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 + 21 * scalar(keys %testdpath); +plan tests => 14 + 22 * scalar(keys %testdpath); use_ok('MDV::Distribconf'); @@ -45,6 +45,7 @@ foreach my $path (keys %testdpath) { is($dconf->getvalue('main', 'version'), '2006.0', "Can get global value via media"); is($dconf->getvalue('main', 'name'), 'main', "Can get default name"); is($dconf->getvalue('contrib', 'name'), 'Contrib', "Can get media name"); + is($dconf->getvalue('contrib', 'platform'), 'i586-mandriva-linux-gnu', "Can get media platform"); is($dconf->getpath(undef, 'root'), $path, "Can get root path"); like($dconf->getpath(undef, 'media_info'), qr!^/*media/media_info/?$!, "Can get media_info path"); # vim color: */ -- cgit v1.2.1