xapian-bindings/perl/t/collapse.t

   1 use strict;
   2 # Before 'make install' is performed this script should be runnable with
   3 # 'make test'. After 'make install' it should work as 'perl test.pl'
   4
   5 #########################
   6
   7 # change 'tests => 1' to 'tests => last_test_to_print';
   8
   9 # Make warnings fatal
  10 use warnings;
  11 BEGIN {$SIG{__WARN__} = sub { die "Terminating test due to warning: $_[0]" } };
  12
  13 use Test::More;
  14 BEGIN { plan tests => 8 };
  15 use Xapian qw(:all);
  16
  17 #########################
  18
  19 # Insert your test code below, the Test module is use()ed here so read
  20 # its man page ( perldoc Test ) for help writing this test script.
  21
  22 sub mset_expect_order (\@@) {
  23     my ($m, @a) = @_;
  24     my @m = map { $_->get_docid() } @{$m};
  25     is( scalar @m, scalar @a );
  26     for my $j (0 .. (scalar @a - 1)) {
  27         is( $m[$j], $a[$j] );
  28     }
  29 }
  30
  31 my $db;
  32 ok( $db = Xapian::WritableDatabase->new(), "test db opened ok" );
  33
  34 my $enquire;
  35 ok( $enquire = Xapian::Enquire->new( $db ), "enquire object created" );
  36
  37 my $doc;
  38 ok( $doc = Xapian::Document->new() );
  39 $doc->add_value(0, "A");
  40 $doc->add_term("foo");
  41 $db->add_document($doc);
  42 $doc->add_term("foo");
  43 $db->add_document($doc);
  44 $doc->add_term("foo");
  45 $db->add_document($doc);
  46 $doc->add_term("foo");
  47 $db->add_document($doc);
  48 $doc->add_term("foo");
  49 $db->add_document($doc);
  50
  51 $enquire->set_query(Xapian::Query->new("foo"));
  52
  53 {
  54     $enquire->set_collapse_key(0);
  55     my @matches = $enquire->matches(0, 3);
  56     mset_expect_order(@matches, (5));
  57 }
  58
  59 {
  60     $enquire->set_collapse_key(0, 2);
  61     my @matches = $enquire->matches(0, 3);
  62     mset_expect_order(@matches, (5, 4));
  63 }
  64
  65 1;