diff options
author | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2010-10-13 20:37:29 +0000 |
---|---|---|
committer | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2010-10-13 20:37:29 +0000 |
commit | 84b66758a7c5b57ea82a1a73c80d55bd873696fc (patch) | |
tree | 09abdaaa630a4ac55d6c7420f1e1659fbdf290bf | |
parent | e28acd9663f712b5b4ff73dd5ba2c9f2e52c40dd (diff) | |
download | perl-URPM-84b66758a7c5b57ea82a1a73c80d55bd873696fc.tar perl-URPM-84b66758a7c5b57ea82a1a73c80d55bd873696fc.tar.gz perl-URPM-84b66758a7c5b57ea82a1a73c80d55bd873696fc.tar.bz2 perl-URPM-84b66758a7c5b57ea82a1a73c80d55bd873696fc.tar.xz perl-URPM-84b66758a7c5b57ea82a1a73c80d55bd873696fc.zip |
expose rpmEVRcompare() through URPM::rpmEVRcmp()
-rw-r--r-- | URPM.xs | 16 | ||||
-rw-r--r-- | t/parse.t | 10 |
2 files changed, 20 insertions, 6 deletions
@@ -190,6 +190,7 @@ get_nvra(Header h) { return NVRA; } +/* TODO: behaviour of rpmEVRcmp() & rpmEVRcompare() differs, is this correct? */ static int do_rpmEVRcmp(const char *a, const char *b) { int compare; @@ -3348,7 +3349,20 @@ int rpmvercmp(one, two) char *one char *two - + +int +rpmEVRcmp(one, two) + char *one + char *two + PREINIT: + int compare; + CODE: + compare = do_rpmEVRcmp(one, two); + RETVAL = compare; + OUTPUT: + RETVAL + + int Urpm_ranges_overlap(a, b) char *a @@ -81,11 +81,11 @@ is("$start $end", "2 2", 'parse_headers'); # Version comparison -ok(URPM::rpmvercmp("1-1mdk", "1-1mdk") == 0, "Same value = 0"); -ok(URPM::rpmvercmp("0:1-1mdk", "1-1mdk") == -1, "Same value, epoch 0 on left = 1"); -ok(URPM::rpmvercmp("1-1mdk", "1-2mdk") == -1, "Right value win = -1"); -ok(URPM::rpmvercmp("1-2mdk", "1-1mdk") == 1, "Left value win = 1"); -ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); +ok(URPM::rpmEVRcmp("1-1mdk", "1-1mdk") == 0, "Same value = 0"); +ok(URPM::rpmEVRcmp("0:1-1mdk", "1-1mdk") == 0, "Same value, epoch 0 on left = 0"); +ok(URPM::rpmEVRcmp("1-1mdk", "1-2mdk") == -1, "Right value win = -1"); +ok(URPM::rpmEVRcmp("1-2mdk", "1-1mdk") == 1, "Left value win = 1"); +ok(URPM::rpmEVRcmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); { open(my $hdfh, "zcat hdlist.cz 2>/dev/null |") or die $!; |