blob: d889d38ec541ee64f0519c23cb66369b938d2c01 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
# $Id$
use strict;
use Test::More;
use FindBin qw($Bin);
use File::Temp qw(tempdir);
use File::Glob;
if (-e '/etc/debian_version' || `uname -a` =~ /BSD/i) {
plan skip_all => "*BSD/Debian/Ubuntu do not have a system wide rpmdb";
} else {
plan tests => 6;
}
my $testdir = tempdir(CLEANUP => 1);
use_ok('RPM4');
use_ok('RPM4::Index');
my @headers;
my $callback = sub { my %arg = @_; defined($arg{header}) and push(@headers, $arg{header}) };
my @rpms = glob("$Bin/*.rpm");
RPM4::parserpms(callback => $callback, rpms => [ @rpms ]);
ok(scalar(@headers) == 4, "RPM4::parserpms works");
ok(RPM4::Index::buildhdlist(hdlist => "$testdir/hdlist.cz", rpms => [ @rpms ]),
"Creating a hdlist");
ok(RPM4::Index::buildsynthesis(synthesis => "$testdir/synthesis.hdlist.cz", rpms => [ @rpms ]),
"Creating a synthesis");
ok(RPM4::Index::buildindex(list => "$testdir/list", rpms => [ @rpms ]),
"Creating a list file");
|
