search-xapian/t/facets.t

   1 use Test::More;
   2 BEGIN { plan tests => 12 };
   3 use Search::Xapian qw(:all);
   4
   5 my $db = Search::Xapian::WritableDatabase->new();
   6
   7 {
   8
   9     my $i = 0;
  10     for my $q (qw( low high high )) {
  11         my $doc = Search::Xapian::Document->new();
  12         $doc->set_data("test t$i $q");
  13         $doc->add_posting("test", 0);
  14         $doc->add_posting("t$i", 1);
  15         $doc->add_posting($q, 2);
  16         $doc->add_value(0, $q);
  17         $db->add_document($doc);
  18         $i++;
  19     }
  20
  21     my $spy;
  22     ok( $spy = Search::Xapian::ValueCountMatchSpy->new(0), "ValueCountMatchSpy created ok" );
  23
  24     my $enq;
  25     ok( $enq = $db->enquire('test'), "db enquirable" );
  26
  27     $enq->add_matchspy($spy);
  28
  29     is( $spy->name(), "Xapian::ValueCountMatchSpy", "match spy corretly identified as Xapian::ValueCountMatchSpy" );
  30
  31     my $mset = $enq->get_mset(0, 10, 10000);
  32
  33     note $spy->get_description();
  34
  35     is( $spy->get_total(), 3, "match spy went through correct number of documents" );
  36
  37     my $ref = [
  38         { name => "high", freq => 2 },
  39         { name => "low" , freq => 1 },
  40     ];
  41
  42     my $it;
  43     ok( $it = $spy->values_begin(), "values iterator properly returned from match spy" );
  44
  45     $i = 0;
  46     for (my $it = $spy->values_begin(); $it != $spy->values_end(); $it++) {
  47         is( $it->get_termname(), $ref->[$i]->{name}, "Term iterator index $i was '" . $ref->[$i]->{name} . "' as expected" );
  48         is( $it->get_termfreq(), $ref->[$i]->{freq}, "Correct frequency for index $i");
  49         $i++;
  50     }
  51
  52     ok( $it = $spy->top_values_begin(1), "top values iterator properly returned from match spy" );
  53     is( $it->get_termname(), $ref->[0]->{name}, "top value is indeed '" . $ref->[0]->{name} . "' as returned by top values iterator" );
  54
  55     $enq->clear_matchspies();
  56     is( $spy->get_total(), 3, "clearing matchspies doesn't kill our spy reference?" );
  57 }
  58