From fc2c5fcbfd9645638db179000ad03e272dae9187 Mon Sep 17 00:00:00 2001 From: nanardon Date: Tue, 3 Jul 2007 18:11:08 +0000 Subject: - add platformscore() function git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@127 971eb68f-4bfb-0310-8326-d2484c010a4c --- RPM4/t/03rpmlib.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'RPM4/t') diff --git a/RPM4/t/03rpmlib.t b/RPM4/t/03rpmlib.t index c462768..996bfce 100755 --- a/RPM4/t/03rpmlib.t +++ b/RPM4/t/03rpmlib.t @@ -1,7 +1,7 @@ # $Id$ use strict; -use Test::More tests => 52; +use Test::More tests => 53; use FindBin qw($Bin); use RPM4; @@ -27,6 +27,12 @@ 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