- add platformscore() function

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@127 971eb68f-4bfb-0310-8326-d2484c010a4c

1 files changed, 7 insertions, 1 deletions

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");