# -*- cperl -*-

use Test::More tests => 11;
use Lingua::PT::PLN;

my %o = oco({from=>"file"},"t/00_oco.ex");

is( $o{primeiro}  , 5   ,"oco from file");
is( $o{dos}       , 38  ,"oco from file");
is( $o{"roll-off"}, 2   ,"oco from file");

%o = oco({from=>"string"},
          "era era era uma vez, lindo um gato maltês, um lindo gato");

is( $o{era}       , 3  ,"oco from string");
is( $o{uma}       , 1  ,"oco from string");
is( $o{vez}       , 1  ,"oco from string");
is( $o{lindo}     , 2  ,"oco from string");
is( $o{um}        , 2  ,"oco from string");
is( $o{gato}      , 2  ,"oco from string");
is( $o{"maltês"}  , 1  ,"oco from string");
is( $o{rum}       , undef  ,"oco from string");


1;