summaryrefslogtreecommitdiffstats
path: root/t/01history.t
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2007-07-03 14:18:55 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2007-07-03 14:18:55 +0000
commit83586aa98e555e81870c7dff6fc7fd6ce94f4472 (patch)
tree02b0fd4df1f77eaae5afd3da44ff9a0ca989802b /t/01history.t
parent4c5075db0eee4b3a49e43d2d35e116f10b47c4a3 (diff)
downloadperl-MDV-Distribconf-83586aa98e555e81870c7dff6fc7fd6ce94f4472.tar
perl-MDV-Distribconf-83586aa98e555e81870c7dff6fc7fd6ce94f4472.tar.gz
perl-MDV-Distribconf-83586aa98e555e81870c7dff6fc7fd6ce94f4472.tar.bz2
perl-MDV-Distribconf-83586aa98e555e81870c7dff6fc7fd6ce94f4472.tar.xz
perl-MDV-Distribconf-83586aa98e555e81870c7dff6fc7fd6ce94f4472.zip
- test arch and platform in history
Diffstat (limited to 't/01history.t')
-rw-r--r--t/01history.t4
1 files changed, 3 insertions, 1 deletions
diff --git a/t/01history.t b/t/01history.t
index 2c8b11d..ef7e47a 100644
--- a/t/01history.t
+++ b/t/01history.t
@@ -8,7 +8,7 @@ use MDV::Distribconf;
my @testdpath = glob('testdata/history/*/*/*');
-plan tests => 3 * scalar(@testdpath);
+plan tests => 5 * scalar(@testdpath);
foreach my $path (@testdpath) {
ok(
@@ -17,4 +17,6 @@ foreach my $path (@testdpath) {
);
ok($dconf->load(), "can load $path");
ok($dconf->listmedia(), "can list media");
+ ok($dconf->getvalue(undef, "arch"), "can get arch");
+ like($dconf->getvalue(undef, "platform"), '/^[^-]*-(mandriva|mandrake)-linux-gnu$/', "can get arch");
}