root/tags/rel0_48/t/36_supersearch_order.t

use strict;
use CGI::Wiki::Setup::SQLite;
use OpenGuides::Config;
use OpenGuides::SuperSearch;
use Test::More;

eval { require DBD::SQLite; };
if ( $@ ) {
    plan skip_all => "DBD::SQLite not installed";
    exit 0;
}

eval { require CGI::Wiki::Search::Plucene; };
if ( $@ ) {
    plan skip_all => "Plucene not installed";
    exit 0;
}

plan tests => 9;

# Clear out the database from any previous runs.
unlink "t/node.db";
unlink <t/indexes/*>;

CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
my $config = OpenGuides::Config->new(
       vars => {
                 dbtype             => "sqlite",
                 dbname             => "t/node.db",
                 indexing_directory => "t/indexes",
                 script_name        => "wiki.cgi",
                 script_url         => "http://example.com/",
                 site_name          => "Test Site",
                 template_path      => "./templates",
                 use_plucene        => 1
               }
);

my $search = OpenGuides::SuperSearch->new( config => $config );
isa_ok( $search, "OpenGuides::SuperSearch" );

# Write some data.
my $wiki = $search->{wiki};
$wiki->write_node( "Parks", "A page about parks." )
    or die "Can't write node";
$wiki->write_node( "Wandsworth Common", "A common.", undef,
                   { category => "Parks" } )
    or die "Can't write node";
$wiki->write_node( "Kake", "I like walking in parks." )
    or die "Can't write node";

my %tt_vars = $search->run(
                            return_tt_vars => 1,
                            vars           => { search => "parks" },
                          );
foreach my $result ( @{ $tt_vars{results} || [] } ) {
    print "# $result->{name} scores $result->{score}\n";
}
my %scores = map { $_->{name} => $_->{score} } @{$tt_vars{results} || []};
ok( $scores{Kake} < $scores{'Wandsworth Common'},
    "content match scores less than category match" );
ok( $scores{'Wandsworth Common'} < $scores{Parks},
    "title match scores more than category match" );

# Now test locales.
$wiki->write_node( "Hammersmith", "A page about Hammersmith." )
    or die "Can't write node";
$wiki->write_node( "The Gate", "A restaurant.", undef,
                   { locale => "Hammersmith" } )
    or die "Can't write node";
$wiki->write_node( "Kake Pugh", "I live in Hammersmith." )
    or die "Can't write node";

%tt_vars = $search->run(
                         return_tt_vars => 1,
                         vars           => { search => "hammersmith" },
                       );
foreach my $result ( @{ $tt_vars{results} || [] } ) {
    print "# $result->{name} scores $result->{score}\n";
}
%scores = map { $_->{name} => $_->{score} } @{$tt_vars{results} || []};
ok( $scores{'Kake Pugh'} < $scores{'The Gate'},
    "content match scores less than locale match" );
ok( $scores{'The Gate'} < $scores{Hammersmith},
    "locale match scores less than title match" );

# Check that two words in the title beats one in the title and
# one in the content.
$wiki->write_node( "Putney Tandoori", "Indian food" )
  or die "Couldn't write node";
$wiki->write_node( "Putney", "There is a tandoori restaurant here" )
  or die "Couldn't write node";

%tt_vars = $search->run(
                         return_tt_vars => 1,
                         vars           => { search => "putney tandoori" },
                       );
foreach my $result ( @{ $tt_vars{results} || [] } ) {
    print "# $result->{name} scores $result->{score}\n";
}
%scores = map { $_->{name} => $_->{score} } @{$tt_vars{results} || []};
ok( $scores{Putney} < $scores{'Putney Tandoori'},
   "two words in title beats one in title and one in content" );

SKIP: {
   skip "Word proximity not yet taken into account", 1;
# Check that in an AND match words closer together get higher priority.
$wiki->write_node( "Spitalfields Market",
                   "Mango juice from the Indian stall" )
  or die "Can't write node";
$wiki->write_node( "Borough Market", "dried mango and real apple juice" )
  or die "Can't write node";

%tt_vars = $search->run(
                         return_tt_vars => 1,
                         vars           => { search => "mango juice" },
                       );
foreach my $result ( @{ $tt_vars{results} || [] } ) {
    print "# $result->{name} scores $result->{score}\n";
}
%scores = map { $_->{name} => $_->{score} } @{$tt_vars{results} || []};
ok( $scores{'Borough Market'} < $scores{'Spitalfields Market'},
    "words closer together gives higher score" );
} # end of SKIP

# Check that the number of occurrences of the search term is significant.

$wiki->write_node( "Pub Crawls", "The basic premise of the pub crawl is to visit a succession of pubs, rather than spending the entire evening or day in a single establishment. London offers an excellent choice of themes for your pub crawl.", undef, { category => "Pubs" } ) or die "Can't write node";
$wiki->write_node( "The Pub", "A pub.", undef, { category => "Pubs" } ) or die "Can't write node";

%tt_vars = $search->run(
                         return_tt_vars => 1,
                         vars           => { search => "pub" }
                       );
foreach my $result ( @{ $tt_vars{results} || [] } ) {
    print "# $result->{name} scores $result->{score}\n";
}
is( $tt_vars{results}[0]{name}, "Pub Crawls",
    "node with two mentions of search term comes top" );
ok( $tt_vars{results}[0]{score} > $tt_vars{results}[1]{score},
    "...with a score strictly greater than node with one mention" );