diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-03 14:18:55 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-03 14:18:55 +0000 |
| commit | 83586aa98e555e81870c7dff6fc7fd6ce94f4472 (patch) | |
| tree | 02b0fd4df1f77eaae5afd3da44ff9a0ca989802b | |
| parent | 4c5075db0eee4b3a49e43d2d35e116f10b47c4a3 (diff) | |
| download | perl-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
| -rw-r--r-- | t/01history.t | 4 |
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"); } |