Branch for updates

1 files changed, 46 insertions, 0 deletions

diff --git a/t/rpmdb.t b/t/rpmdb.t
new file mode 100644
index 0000000..b263013
--- /dev/null
+++ b/t/rpmdb.t
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+use strict ;
+use warnings ;
+use Test::More tests => 7;
+use URPM;
+
+my ($count, @all_pkgs_extern, @all_pkgs);
+my ($pkg_perl, $count_perl, $pkg_perl_extern);
+{
+    my $db;
+    ok($db = URPM::DB::open, 'DB opened');
+
+    @all_pkgs_extern = sort { $a cmp $b } split /\n/ => qx(rpm -qa --nosignature --qf '%{name}-%{version}-%{release}\n');
+    ok(@all_pkgs_extern > 0, 'There are RPMs');
+
+    $count = $db->traverse(sub {
+	    my ($pkg) = @_;
+	    my ($name, $version, $release, $arch) = $pkg->fullname;
+	    #- arch is void for -pubkey- package.
+	    my $fullname = "$name-$version-$release";
+	    push @all_pkgs, $fullname;
+	    if ($name eq 'perl') { $pkg_perl_extern = $fullname }
+	});
+
+    $count_perl = $db->traverse_tag('name', ['perl'], sub {
+	    my ($pkg) = @_;
+	    my ($name, $version, $release) = $pkg->fullname;
+	    $pkg_perl = "$name-$version-$release";
+	});
+}
+is($count, @all_pkgs_extern,
+    'traversed same num of packages than given by rpm -qa');
+is($count, @all_pkgs,
+    'traversed each package once');
+is($count_perl, 1, q(there's exactly 1 "perl" package));
+is($pkg_perl, $pkg_perl_extern, '... with the correct fullname');
+
+my @all_pkgs_sorted = sort { $a cmp $b } @all_pkgs;
+my $bad_pkgs = 0;
+foreach (0..$#all_pkgs_sorted) {
+    $all_pkgs_sorted[$_] eq $all_pkgs_extern[$_] and next;
+    diag($all_pkgs_extern[$_] . " vs " . $all_pkgs_sorted[$_]);
+    ++$bad_pkgs;
+}
+is($bad_pkgs, 0, 'no mismatch between package lists');