#!perl -T

use Lingua::FreeLing3::Utils qw/word_analysis/;
use Test::More tests => 13;

use Data::Dumper;

my $cavalo = [
              {
               'tag' => 'VMIP1S0',
               'lemma' => 'cavalar'
              },
              {
               'tag' => 'NCMS000',
               'lemma' => 'cavalo'
              }
             ];

my $analysis = word_analysis({l=>'pt'},"cavalo");
isa_ok $analysis => "ARRAY";
is_deeply($analysis => $cavalo);

my @analysis = word_analysis({l=>'pt'},"cavalo", "alado");
is scalar(@analysis) => 2;
isa_ok $analysis[0] => "ARRAY";
isa_ok $analysis[1] => "ARRAY";
is_deeply($analysis[0] => $cavalo);

my @analysis2 = word_analysis({l=>'pt'},"hdjfhsdf cavalo sdasdas");
is scalar(@analysis2) => 3;
isa_ok $analysis2[0] => "ARRAY";
isa_ok $analysis2[1] => "ARRAY";
isa_ok $analysis2[2] => "ARRAY";

is_deeply $analysis2[0] => [];
is_deeply $analysis2[2] => [];
is_deeply $analysis2[1] => $cavalo;