use strict;
use Test::More tests => 8;
BEGIN {
use_ok('Lingua::StopWords');
use_ok('Lingua::StopWords::EN');
use_ok('Lingua::StopWords::FR');
};
my $wordlist = Lingua::StopWords::getStopWords('en');
ok($wordlist->{me});
ok(!$wordlist->{moi});
my $wordlist3 = Lingua::StopWords::getStopWords('xx');
is($wordlist3, undef);
my $wordlist1 = Lingua::StopWords::getStopWords('fr');
my $wordlist2 = Lingua::StopWords::FR::getStopWords();
is_deeply($wordlist1, $wordlist2);
my $text = 'ceci est un texte avec des mots au hasard';
my @words = split / /, $text;
my $t = join ' ', grep { !$wordlist1->{$_} } @words;
is ($t, 'ceci texte mots hasard');