### ----------------------------------------------------
### -- Lingua::StopwordsISO
### -- Licenses: Artistic-2.0
### -- Authors: Anton Antonov
### -- File: t/02-delete-stopwords.rakutest
### ----------------------------------------------------
use v6.d;
use Test;

use lib '.';
use lib './lib';

use Lingua::StopwordsISO;

plan 7;

#----------------------------------------------------------
# 1
my $text1 = qq:to/BGEND/;
Новите минимални размери на основните месечни работни заплати
на педагогическите специалисти са договорени с подписания на отраслово
ниво Анекс към Колективния трудов договор за системата на предучилищното
и училищното образование.
BGEND

my $res1 = q:to/BGEND/;
Новите минимални размери  основните месечни работни заплати
 педагогическите специалисти  договорени  подписания  отраслово
ниво Анекс  Колективния трудов договор  системата  предучилищното
 училищното образование.
BGEND

$res1 = $res1.subst(/ \s+ /, ' '):g;

is delete-stopwords('bg', $text1).subst(/ \s+ /, ' '):g,
        $res1,
        'Bulgarian text';

#----------------------------------------------------------
# 2
my $text2 = q:to/ENEND/;
Well, what fun is there in making self-plans for,
acquiring discipline in organizing thoughts,
devoting attention to detail,
and learning to be self-critical and right?
ENEND

my $res2 = qq:to/ENEND/;
,  fun     self-plans ,
acquiring discipline  organizing ,
devoting attention  ,
 learning   self-critical  ?
ENEND

$res2 = $res2.subst(/ \s+ /, ' '):g;

is delete-stopwords('en', $text2).subst(/ \s+ /, ' '):g,
        $res2,
        'English text';

#----------------------------------------------------------
# 3
is delete-stopwords('after').trim, '',
        'Whole text stop word';

#----------------------------------------------------------
# 4
is delete-stopwords('.after').trim, '.',
        '. <stop-word>';

#----------------------------------------------------------
# 5
is delete-stopwords('after.').trim, '.',
        '<stop-word> .';


#----------------------------------------------------------
# 6
is delete-stopwords('? after').trim, '?',
        '? \s+ <stop-word>';

#----------------------------------------------------------
# 7
is delete-stopwords(' after this ').trim, '',
        '\s+ <stop-word> \s+ <stop-word> \s+';

done-testing;


