- move to trunk

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

1 files changed, 27 insertions, 0 deletions

diff --git a/RPM4/t/09hdlist.t b/RPM4/t/09hdlist.t
new file mode 100644
index 0000000..17d32f4
--- /dev/null
+++ b/RPM4/t/09hdlist.t
@@ -0,0 +1,27 @@
+# $Id$
+
+use strict;
+use Test::More tests => 6;
+use FindBin qw($Bin);
+use File::Temp qw(tempdir);
+use File::Glob;
+
+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 = <$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");