Ticket #422: close.patch

search-xapian/XS/WritableDatabase.xs

@@ -47 +47 @@
         }
 
 void
+WritableDatabase::close()
+   CODE:
+    try {
+            THIS->close();
+        }
+        catch (const Error &error) {
+            croak( "Exception: %s", error.get_msg().c_str() );
+        }
+
+void
 WritableDatabase::begin_transaction(flushed = NO_INIT)
     bool flushed
     CODE:

search-xapian/t/writabledatabase.t

@@ -186 +186 @@
 ok(!$write->term_exists($delterm), 'check term exists after deleting all documents');
 is($write->get_termfreq($delterm), 0, 'check term frequency after deleting all documents');
 
+$write->flush();
+$write->close();
+
 1;