diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-03 16:43:17 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-07-03 16:43:17 +0000 |
| commit | 6c18325266f5a1a03562e78f2e3205dafcaa82f3 (patch) | |
| tree | d93105ef8c7b979f3d9ea76081d6e612bbbe6188 /t | |
| parent | afaa62c002f0d00118e34ef3605f3ce0ecd38ff1 (diff) | |
| download | perl-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')
| -rw-r--r-- | t/01history.t | 8 |
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"); + } } |