#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dump qw( dump );
use Test::More tests => 8;
use Search::Tools;
use_ok('Search::Tools::Query');
my $text = 'one two three four lobotomy';
my $html = 'one <b>t</b>wo three <strong>four</strong> lobotomy';
ok( my $query = Search::Tools->parser->parse('two'), "new query" );
is( $query->matches_text($text), 1, "one text match" );
is( $query->matches_html($html), 1, "one html match" );
ok( my $qp = Search::Tools->parser(
lang => 'en_us',
stemmer => sub {
#warn "$_[1]";
if ( $_[1] eq 'lobotomy' ) { return 'lobotomi'; }
return $_[1];
}
),
"new stemming parser"
);
ok( my $stem_query = $qp->parse('lobotomy'), "new stemmed query" );
is( $stem_query->matches_text($text), 1, "one stemmed text match" );
is( $stem_query->matches_html($html), 1, "one stemmed html match" );