summaryrefslogtreecommitdiffstats
path: root/t/01history.t
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2007-07-03 16:43:17 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2007-07-03 16:43:17 +0000
commit6c18325266f5a1a03562e78f2e3205dafcaa82f3 (patch)
treed93105ef8c7b979f3d9ea76081d6e612bbbe6188 /t/01history.t
parentafaa62c002f0d00118e34ef3605f3ce0ecd38ff1 (diff)
downloadperl-MDV-Distribconf-6c18325266f5a1a03562e78f2e3205dafcaa82f3.tar
perl-MDV-Distribconf-6c18325266f5a1a03562e78f2e3205dafcaa82f3.tar.gz
perl-MDV-Distribconf-6c18325266f5a1a03562e78f2e3205dafcaa82f3.tar.bz2
perl-MDV-Distribconf-6c18325266f5a1a03562e78f2e3205dafcaa82f3.tar.xz
perl-MDV-Distribconf-6c18325266f5a1a03562e78f2e3205dafcaa82f3.zip
- arch and platform return undef if arch is unspecified
Diffstat (limited to 't/01history.t')
-rw-r--r--t/01history.t8
1 files changed, 6 insertions, 2 deletions
diff --git a/t/01history.t b/t/01history.t
index ef7e47a..f3db55c 100644
--- a/t/01history.t
+++ b/t/01history.t
@@ -17,6 +17,10 @@ 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");
+ SKIP: {
+ my $arch = $dconf->getvalue(undef, "arch");
+ skip "undefined arch for in case", 2 unless(defined($arch));
+ like($arch, '/.+/', "can get arch");
+ like($dconf->getvalue(undef, "platform"), "/^$arch" . '-(mandriva|mandrake)-linux-gnu$/', "can get arch");
+ }
}