# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test;
use Devel::Peek;
BEGIN { plan tests => 70 };
use Search::Xapian qw(:ops);

#########################

# Insert your test code below, the Test module is use()ed here so read
# its man page ( perldoc Test ) for help writing this test script.

# None of the following tests can be expected to succeed without first
# creating a test database in the directory testdb.

my $db;
ok( $db = Search::Xapian::Database->new( 'testdb' ) ); # test db opened ok

my $enq;
ok( $enq = $db->enquire() ); # db enquirable

my @subqueries;
my $query;
ok( $subqueries[0] = Search::Xapian::Query->new( 'test' ) ); # one-term queries ok
ok( $subqueries[0]->get_description, "Xapian::Query(test)", "query parsed correctly" );

# tests 5-14
foreach my $op (OP_OR, OP_AND, OP_NEAR, OP_PHRASE) {
  ok( $query = Search::Xapian::Query->new( $op, @subqueries ) ); # $Search::Xapian::OP_NAMES[$op] works with 1 object
  ok( $query = Search::Xapian::Query->new( $op, 'help' ) ); # $Search::Xapian::OP_NAMES[$op] works with 1 term
}
ok( $query->get_description, "Xapian::Query(help)", "query parsed correctly" );

# tests 15-32
$subqueries[1] = Search::Xapian::Query->new( 'help' );
foreach my $op (OP_OR, OP_AND, OP_NEAR, OP_PHRASE,
                OP_AND_NOT, OP_XOR, OP_AND_MAYBE, OP_FILTER, OP_ELITE_SET) {
  ok( $query = Search::Xapian::Query->new( $op, @subqueries ) ); # $Search::Xapian::OP_NAMES[$op] works with 2 objects
  ok( $query = Search::Xapian::Query->new( $op, 'test', 'help') ); # $Search::Xapian::OP_NAMES[$op] works with 2 terms
}
ok( $query->get_description, "Xapian::Query((test ELITE_SET 10 help))", "query parsed correctly" );

# tests 33-40
$subqueries[2] = Search::Xapian::Query->new( 'one' );
foreach my $op (OP_OR, OP_AND, OP_NEAR, OP_PHRASE ) {
  ok( $query = Search::Xapian::Query->new( $op, @subqueries ) ); # $Search::Xapian::OP_NAMES[$op] works with 3 objects
  ok( $query = Search::Xapian::Query->new( $op, 'test', 'help', 'one' ) ); # $Search::Xapian::OP_NAMES[$op] works with 3 terms
}
ok( $query->get_description, "Xapian::Query((test PHRASE 3 help PHRASE 3 one))", "query parsed correctly" );

ok( $enq = $db->enquire( $query ) ); # db queries return ok
ok( $enq = $db->enquire( OP_OR, 'test', 'help' ) ); # in-line db queries return ok

my $matches;
ok( $matches = $enq->get_mset( 0, 10 ) ); # match set returned ok
ok( $matches->get_matches_estimated(), 2, "match set contains correct number of results" );

my $match;
ok( $match = $matches->begin() ); # match set iterator returned ok
ok( $match, $matches->begin(), "match set returns consistent start point");
ok( $match++ ); # match set iterator can increment
ok( $match != $matches->begin() ); # match set iterator increments correctly
ok( $match->get_docid() ); # document id returned ok
ok( $match->get_percent() ); # percent relevance returned ok

my $doc;
ok( $doc = $match->get_document() ); # documents retrievable
ok( $doc->get_data() ); # data retrievable

for (2 .. $matches->size()) { $match++; }
ok( $match, $matches->end(), "match set returns correct endpoint");

my $rset;
ok( $rset = Search::Xapian::RSet->new() ); # relevance set returned ok
$rset->add_document( 1 );
ok( $rset->contains( 1 ) ); # document added to relevance setsuccessfully
ok( !$rset->contains( 2 ) ); # relevance set correctly fails to match document it does not contain
$rset->remove_document( 1 );
ok( !$rset->contains( 1 ) ); # document removed from relevance set successfully
$rset->add_document( 1 );

my $eset;
ok( $eset = $enq->get_eset( 10, $rset ) ); # can get expanded terms set
ok( $eset->size(), 1, "expanded terms set of correct size" );
my $eit;
ok( $eit = $eset->begin() ); # expanded terms set iterator retuns ok
ok( $eit->get_termname(), 'one', "expanded terms set contains correct terms");

# try an empty mset - this was giving begin != end
my ($noquery, $nomatches);
ok( $noquery = Search::Xapian::Query->new( OP_AND_NOT, 'test', 'test' ) ); # matchless query returns ok
$enq->set_query( $noquery );
ok( $nomatches = $enq->get_mset( 0, 10 ) ); # matchless query returns match set ok
ok( $nomatches->size(), 0, "matchless query's match set has zero size" );
ok( $nomatches->begin(), $nomatches->end(), "matchless query's match set's start point and endpoint are the same" );

ok( $matches->convert_to_percent(100) > 0 );
ok( $matches->convert_to_percent( $matches->begin() ) > 0 );

$match = $matches->back();
--$match;
++$match;
ok( $match eq $matches->back() );

ok( $match->get_collapse_count() == 0 );

1;