File: test.pl

package info (click to toggle)
liblingua-pt-stemmer-perl 0.01-3
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, lenny, squeeze, wheezy
  • size: 68 kB
  • ctags: 11
  • sloc: perl: 756; makefile: 51
file content (21 lines) | stat: -rw-r--r-- 625 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use Test;
BEGIN { plan tests => 12 };
use Lingua::PT::Stemmer;
use Lingua::GL::Stemmer;

##########################################################################
@ptword = Lingua::PT::Stemmer::stem(qw(bons chilena pezinho 
				    existencialista beberiam));
@ptstem = qw(bom chilen pe exist beb);

ok(1);
ok($ptword[$_], $ptstem[$_]) for (0..$#ptword);


##########################################################################
@glword = Lingua::GL::Stemmer::stem(qw(bons chilena cazola
				  preconceituoso chegou));
@glstem = qw(bon chilen caz preconceit cheg);

ok(1);
ok($glword[$_], $glstem[$_]) for (0..$#glword);