diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-06-08 18:49:55 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-06-08 18:49:55 +0000 |
commit | 2f294fb2c05c5504e7250a746ab41ca41ee4b1f6 (patch) | |
tree | 50a551294b0e954c032dec217c9545598a28659c | |
parent | f79a3a4205864e545fd814c382bc164795659de9 (diff) | |
download | perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar.gz perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar.bz2 perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.tar.xz perl-URPM-2f294fb2c05c5504e7250a746ab41ca41ee4b1f6.zip |
(is_platform_compat) kill unimplemented function (dead since switch to
rpm.org in 2007)
-rw-r--r-- | URPM.pm | 6 | ||||
-rw-r--r-- | URPM.xs | 13 | ||||
-rw-r--r-- | t/parse.t | 9 |
3 files changed, 1 insertions, 27 deletions
@@ -622,12 +622,6 @@ Returns whether this package is compatible with the current machine's architecture. 0 means not compatible. The lower the result is, the preferred the package is. -=item $package->is_platform_compat() - -Return whether this package is compatible with the current machine's -platform configuration (/etc/rpm/platform). 0 mean not compatible. -The lower the result is the preferred the package is. - =item $package->license() =item $package->name() @@ -1480,19 +1480,6 @@ Pkg_is_arch_compat__XS(pkg) OUTPUT: RETVAL -int -Pkg_is_platform_compat(pkg) - URPM::Package pkg - INIT: - CODE: - croak("is_platform_compat() is available only since rpm 4.4.8"); - { /* to match last } and avoid another #ifdef for it */ - RETVAL = 0; - } - - OUTPUT: - RETVAL - void Pkg_summary(pkg) URPM::Package pkg @@ -4,7 +4,7 @@ use strict; use warnings; -use Test::More tests => 39; +use Test::More tests => 38; use MDV::Packdrakeng; use URPM; use URPM::Build; @@ -65,9 +65,6 @@ is($pkg->get_tag(1001), '1.0', 'version'); is($pkg->get_tag(1002), '1mdk', 'release'); is($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}"), "test-rpm-1.0-1mdk.noarch", q(get headers from hdlist)); -rpm_is_jbj_version() ? - ok($pkg->is_platform_compat() > 0, "can evaluate platform score") : - pass('no platform compat'); my $headers = eval { [ $b->parse_rpms_build_headers(rpms => [ "tmp/RPMS/noarch/test-rpm-1.0-1mdk.noarch.rpm" ], dir => 'headers') ] }; @@ -113,7 +110,3 @@ ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); END { unlink "bad.spec" } } -sub rpm_is_jbj_version { - # checking for --yaml support - `rpm --help` =~ /yaml/; -} |