- add URPM::DB::verify()

2 files changed, 15 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index b82bd0e..881137e 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- add URPM::DB::verify()
+
 Version 3.00 - 11 December 2007, by Pascal "Pixel" Rigaux
 
 - replace ->import_needed_pubkeys and ->import_pubkey in favor of
diff --git a/URPM.xs b/URPM.xs
index 0a4af7d..a634990 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2780,6 +2780,19 @@ Db_rebuild(prefix="")
   OUTPUT:
   RETVAL
 
+int
+Db_verify(prefix="")
+  char *prefix
+  PREINIT:
+  rpmts ts;
+  CODE:
+  ts = rpmtsCreate();
+  rpmtsSetRootDir(ts, prefix);
+  RETVAL = rpmtsVerifyDB(ts) == 0;
+  ts = rpmtsFree(ts);
+  OUTPUT:
+  RETVAL
+
 void
 Db_DESTROY(db)
   URPM::DB db