xapian-bindings/perl/t/stem.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 # Make warnings fatal
   8 use warnings;
   9 BEGIN {$SIG{__WARN__} = sub { die "Terminating test due to warning: $_[0]" } };
  10
  11 use Test::More;
  12 BEGIN { plan tests => 5 };
  13 use Xapian qw(:standard);
  14
  15 ok(1); # If we made it this far, we're ok.
  16
  17 #########################
  18
  19 foreach my $l (split(/ /, Xapian::Stem::get_available_languages())) {
  20     my $s = new Xapian::Stem($l);
  21 }
  22
  23 # Test user-specified stemmers, using the naive "truncate to 3 characters"
  24 # stemmer.
  25 my $stemmer;
  26 ok( $stemmer = new Xapian::Stem(sub {substr($_[0], 0, 3)}) );
  27 is( $stemmer->stem_word("honey"), "hon" );
  28 is( $stemmer->stem_word("b"), "b" );
  29
  30 ok(1);