r56164 - in /branches/upstream/libsearch-xapian-perl/current: Changes META.yml README XS/Document.xs Xapian.pm Xapian/Document.pm t/document.t

[olly at users.alioth.debian.org]

Author: olly
Date: Fri Apr 16 07:22:59 2010
New Revision: 56164

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56164
Log:
[svn-upgrade] Integrating new upstream version, libsearch-xapian-perl (1.0.19.0)

Modified:
    branches/upstream/libsearch-xapian-perl/current/Changes
    branches/upstream/libsearch-xapian-perl/current/META.yml
    branches/upstream/libsearch-xapian-perl/current/README
    branches/upstream/libsearch-xapian-perl/current/XS/Document.xs
    branches/upstream/libsearch-xapian-perl/current/Xapian.pm
    branches/upstream/libsearch-xapian-perl/current/Xapian/Document.pm
    branches/upstream/libsearch-xapian-perl/current/t/document.t

Modified: branches/upstream/libsearch-xapian-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/Changes?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/Changes (original)
+++ branches/upstream/libsearch-xapian-perl/current/Changes Fri Apr 16 07:22:59 2010
@@ -1,4 +1,9 @@
 Revision history for Perl extension Search::Xapian.
+
+1.0.19.0  Thu Apr 15 03:55:04 UTC 2010
+	[Changes contributed by Olly Betts]
+	- Wrap Document::add_boolean_term() (new in C++ API in 1.0.18).
+	- Add test coverage for Document::remove_term().
 
 1.0.18.0  Sun Feb 14 10:22:53 UTC 2010
 	[Changes contributed by Henry Combrinck]

Modified: branches/upstream/libsearch-xapian-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/META.yml?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/META.yml (original)
+++ branches/upstream/libsearch-xapian-perl/current/META.yml Fri Apr 16 07:22:59 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Search-Xapian
-version:             1.0.18.0
+version:             1.0.19.0
 abstract:            Perl XS frontend to the Xapian C++ search library.
 license:             ~
 author:              

Modified: branches/upstream/libsearch-xapian-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/README?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/README (original)
+++ branches/upstream/libsearch-xapian-perl/current/README Fri Apr 16 07:22:59 2010
@@ -1,4 +1,4 @@
-Search::Xapian version 1.0.18.0
+Search::Xapian version 1.0.19.0
 ===============================
 
 This is Search::Xapian, a Perl XS frontend to the Xapian C++ search library.

Modified: branches/upstream/libsearch-xapian-perl/current/XS/Document.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/XS/Document.xs?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/XS/Document.xs (original)
+++ branches/upstream/libsearch-xapian-perl/current/XS/Document.xs Fri Apr 16 07:22:59 2010
@@ -95,6 +95,16 @@
 	    } else {
 		THIS->add_term(tname);
 	    }
+	} catch (const Error &error) {
+	    croak("Exception: %s", error.get_msg().c_str());
+	}
+
+void
+Document::add_boolean_term(tname)
+    string	tname
+    CODE:
+	try {
+	    THIS->add_boolean_term(tname);
 	} catch (const Error &error) {
 	    croak("Exception: %s", error.get_msg().c_str());
 	}

Modified: branches/upstream/libsearch-xapian-perl/current/Xapian.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/Xapian.pm?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/Xapian.pm (original)
+++ branches/upstream/libsearch-xapian-perl/current/Xapian.pm Fri Apr 16 07:22:59 2010
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.0.18.0';
+our $VERSION = '1.0.19.0';
 
 use Exporter 'import';
 

Modified: branches/upstream/libsearch-xapian-perl/current/Xapian/Document.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/Xapian/Document.pm?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/Xapian/Document.pm (original)
+++ branches/upstream/libsearch-xapian-perl/current/Xapian/Document.pm Fri Apr 16 07:22:59 2010
@@ -103,6 +103,10 @@
 
 Adds a term without positional information. weight defaults to 1.
 
+=item add_boolean_term <term>
+
+Adds a term intended for boolean filtering (its wdf contribution will be 0).
+
 =item remove_term <term>
 
 Removes a term without positional information.

Modified: branches/upstream/libsearch-xapian-perl/current/t/document.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsearch-xapian-perl/current/t/document.t?rev=56164&op=diff
==============================================================================
--- branches/upstream/libsearch-xapian-perl/current/t/document.t (original)
+++ branches/upstream/libsearch-xapian-perl/current/t/document.t Fri Apr 16 07:22:59 2010
@@ -7,7 +7,7 @@
 
 use Test;
 use Devel::Peek;
-BEGIN { plan tests => 22 };
+BEGIN { plan tests => 24 };
 use Search::Xapian qw(:standard);
 ok(1); # If we made it this far, we're ok.
 
@@ -79,4 +79,14 @@
 ++$it;
 ok( $it eq $doc->termlist_end());
 
+$doc->add_boolean_term( "b" );
+$database->add_document($doc);
+
+ok( $database->get_doclength(4) == 101 );
+
+$doc->remove_term( "a" );
+$database->add_document($doc);
+
+ok( $database->get_doclength(5) == 0 );
+
 1;