aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPer Øyvind Karlsen <peroyvind@mandriva.org>2011-05-07 00:03:17 +0000
committerPer Øyvind Karlsen <peroyvind@mandriva.org>2011-05-07 00:03:17 +0000
commitef9929b8ef92cf4e6f8139377898e1d1474f6547 (patch)
treefafb9feb8c59c73d87acfd539f296ac76c55af4b
parenta06ce7869a437f4be4c5a9c974ea3917ebe2fd55 (diff)
downloadperl-URPM-ef9929b8ef92cf4e6f8139377898e1d1474f6547.tar
perl-URPM-ef9929b8ef92cf4e6f8139377898e1d1474f6547.tar.gz
perl-URPM-ef9929b8ef92cf4e6f8139377898e1d1474f6547.tar.bz2
perl-URPM-ef9929b8ef92cf4e6f8139377898e1d1474f6547.tar.xz
perl-URPM-ef9929b8ef92cf4e6f8139377898e1d1474f6547.zip
fix skipping when not building from svn
-rw-r--r--t/synthesis.t187
1 files changed, 95 insertions, 92 deletions
diff --git a/t/synthesis.t b/t/synthesis.t
index e2bd9a8..0ed85dc 100644
--- a/t/synthesis.t
+++ b/t/synthesis.t
@@ -150,106 +150,109 @@ ok($requires[8] eq 'rpmlib(CompressedFileNames)');
ok(@provides == 1);
ok($provides[0] eq 'glibc-devel');
-SKIP: {
- sub syntcheck {
- my ($synthesis) = @_;
- if (!(-r $synthesis)) {
- skip "$synthesis missing, only found in svn", 1;
- }
-
- my $urpm = new URPM;
-
- $urpm->parse_synthesis($synthesis);
-
- my $errors = 0;
- $urpm->traverse( sub {
- my ($pkg) = @_;
- my @fullname = $pkg->fullname;
- my $epoch = $pkg->epoch;
- my $name = $pkg->name;
- my $version = $pkg->version;
- my $release = $pkg->release;
- my $disttag = $pkg->disttag;
- my $distepoch = $pkg->distepoch;
- my $arch = $pkg->arch;
-
- if ($name ne $fullname[0]) {
- print "name[" . $pkg->fullname . "]: $name != " . $fullname[0] . "\n";
- $errors++;
- }
- if ($version ne $fullname[1]) {
- print "version[" . $pkg->fullname . "]: $version != " . $fullname[1] . "\n";
- $errors++;
- }
- if ($release ne $fullname[2]) {
- print "release[" . $pkg->fullname . "]: $release != " . $fullname[2] . "\n";
- $errors++;
- }
- if ($disttag ne $fullname[3]) {
- print "disttag[" . $pkg->fullname . "]: $name != " . $fullname[3] . "\n";
- $errors++;
- }
- if ($distepoch ne $fullname[4]) {
- print "distepoch[" . $pkg->fullname . "]: $distepoch != " . $fullname[4] . "\n";
- $errors++;
- }
- if ($arch ne $fullname[5]) {
- print "arch[" . $pkg->fullname . "]: $arch != " . $fullname[5] . "\n";
- $errors++;
- }
- if ($pkg->fullname . ".rpm" ne $pkg->filename) {
- print "filename[" . $pkg->fullname . "]: " . $pkg->filename . "\n";
- $errors++;
- }
+sub syntcheck {
+ my ($synthesis) = @_;
+ if (!(-r $synthesis)) {
+ skip "$synthesis missing, only found in svn", 1;
+ }
- if (!$pkg->group) {
- print $pkg->fullname . ": no group\n";
- $errors++;
- }
- if (!$pkg->filesize) {
- print $pkg->fullname . ": no filesize\n";
+ my $urpm = new URPM;
+
+ $urpm->parse_synthesis($synthesis);
+
+ my $errors = 0;
+ $urpm->traverse( sub {
+ my ($pkg) = @_;
+ my @fullname = $pkg->fullname;
+ my $epoch = $pkg->epoch;
+ my $name = $pkg->name;
+ my $version = $pkg->version;
+ my $release = $pkg->release;
+ my $disttag = $pkg->disttag;
+ my $distepoch = $pkg->distepoch;
+ my $arch = $pkg->arch;
+
+ if ($name ne $fullname[0]) {
+ print "name[" . $pkg->fullname . "]: $name != " . $fullname[0] . "\n";
+ $errors++;
+ }
+ if ($version ne $fullname[1]) {
+ print "version[" . $pkg->fullname . "]: $version != " . $fullname[1] . "\n";
+ $errors++;
+ }
+ if ($release ne $fullname[2]) {
+ print "release[" . $pkg->fullname . "]: $release != " . $fullname[2] . "\n";
+ $errors++;
+ }
+ if ($disttag ne $fullname[3]) {
+ print "disttag[" . $pkg->fullname . "]: $name != " . $fullname[3] . "\n";
+ $errors++;
+ }
+ if ($distepoch ne $fullname[4]) {
+ print "distepoch[" . $pkg->fullname . "]: $distepoch != " . $fullname[4] . "\n";
+ $errors++;
+ }
+ if ($arch ne $fullname[5]) {
+ print "arch[" . $pkg->fullname . "]: $arch != " . $fullname[5] . "\n";
+ $errors++;
+ }
+ if ($pkg->fullname . ".rpm" ne $pkg->filename) {
+ print "filename[" . $pkg->fullname . "]: " . $pkg->filename . "\n";
+ $errors++;
+ }
+
+ if (!$pkg->group) {
+ print $pkg->fullname . ": no group\n";
+ $errors++;
+ }
+ if (!$pkg->filesize) {
+ print $pkg->fullname . ": no filesize\n";
+ $errors++;
+ }
+ if (!$pkg->summary) {
+ print $pkg->fullname . ": no summary\n";
+ $errors++;
+ }
+ if (!$name) {
+ print $pkg->fullname . ": no name\n";
+ $errors++;
+ }
+ if (!$version and $version ne "0") {
+ print $pkg->version . ": no version\n";
+ $errors++;
+ }
+ if (!$release and $release ne "0") {
+ print $pkg->fullname . ": no release\n";
+ $errors++;
+ }
+ if (!$arch and $pkg->group ne "Public Keys") {
+ print $pkg->fullname . ": no arch\n";
+ $errors++;
+ }
+
+ if ($pkg->name ne "gpg-pubkey") {
+
+ my $expectedevr = $pkg->version . "-" . $pkg->release . ($pkg->distepoch ? ":" . $pkg->distepoch : "");
+ if ($expectedevr ne $pkg->evr and "$epoch:$expectedevr" ne $pkg->evr and $pkg->name ne "gpg-pubkey") {
+ print "evr[" . $pkg->fullname . "]: $expectedevr != " . $pkg->evr . "\n";
$errors++;
}
- if (!$pkg->summary) {
- print $pkg->fullname . ": no summary\n";
- $errors++;
- }
- if (!$name) {
- print $pkg->fullname . ": no name\n";
- $errors++;
- }
- if (!$version and $version ne "0") {
- print $pkg->version . ": no version\n";
- $errors++;
- }
- if (!$release and $release ne "0") {
- print $pkg->fullname . ": no release\n";
- $errors++;
- }
- if (!$arch and $pkg->group ne "Public Keys") {
- print $pkg->fullname . ": no arch\n";
+
+ my $expectedfullname = "$name-$version-$release" . ($disttag ? "-$disttag" : "") . ($distepoch ? $distepoch : "") . ($arch ? ".$arch" : "");
+ if($pkg->fullname ne $expectedfullname) {
+ print "fullname: " . $pkg->fullname . " != $expectedfullname\n";
$errors++;
}
+ }
+ });
- if ($pkg->name ne "gpg-pubkey") {
+ is($errors, 0, "$synthesis fields check");
- my $expectedevr = $pkg->version . "-" . $pkg->release . ($pkg->distepoch ? ":" . $pkg->distepoch : "");
- if ($expectedevr ne $pkg->evr and "$epoch:$expectedevr" ne $pkg->evr and $pkg->name ne "gpg-pubkey") {
- print "evr[" . $pkg->fullname . "]: $expectedevr != " . $pkg->evr . "\n";
- $errors++;
- }
-
- my $expectedfullname = "$name-$version-$release" . ($disttag ? "-$disttag" : "") . ($distepoch ? $distepoch : "") . ($arch ? ".$arch" : "");
- if($pkg->fullname ne $expectedfullname) {
- print "fullname: " . $pkg->fullname . " != $expectedfullname\n";
- $errors++;
- }
- }
- });
-
- is($errors, 0, "$synthesis fields check");
+}
- }
+SKIP: {
syntcheck("res/synthesis.hdlist_distepoch.xz");
+}
+SKIP: {
syntcheck("res/synthesis.hdlist_src.xz");
}