From c2dee8f09924d40edf35ad9701bbce02ceacaba1 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 15 Jun 2012 16:38:24 +0000 Subject: (platformscore) kill it (unimplemented for 5 years) git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@205 971eb68f-4bfb-0310-8326-d2484c010a4c --- RPM4/src/RPM4.xs | 10 ---------- RPM4/t/03rpmlib.t | 8 +------- 2 files changed, 1 insertion(+), 17 deletions(-) diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index 96a0ab1..f0eea94 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -768,16 +768,6 @@ archscore(arch, build = 0) OUTPUT: RETVAL -int -platformscore(platform) - const char * platform - PREINIT: - CODE: - RETVAL=0; - croak("platformscore exists only from rpm 4.4.8; unused anyway"); - OUTPUT: - RETVAL - void buildhost() PREINIT: diff --git a/RPM4/t/03rpmlib.t b/RPM4/t/03rpmlib.t index 996bfce..c462768 100755 --- a/RPM4/t/03rpmlib.t +++ b/RPM4/t/03rpmlib.t @@ -1,7 +1,7 @@ # $Id$ use strict; -use Test::More tests => 53; +use Test::More tests => 52; use FindBin qw($Bin); use RPM4; @@ -27,12 +27,6 @@ close($null); ok(length(RPM4::getosname), "Return OS name"); ok(length(RPM4::getarchname), "Return arch name"); ok(length(RPM4::buildhost), "Return buildhost"); -SKIP: { - eval { RPM4::platformscore(""); }; - skip "no RPM4::platformscore()", 1 if($@); - -ok(RPM4::platformscore("any-any-nonos") == 0, "can evaluate platform score"); -} # Playing with macros my $target_cpu = RPM4::expand("%_target_cpu"); -- cgit v1.2.1