view release on metacpan or  search on metacpan

t/procedural.t  view on Meta::CPAN

use 5.010;
use strict;
use warnings;

use Test::More;

BEGIN { use_ok("Lingua::EN::BioLemmatizer", "biolemma") };

# return first whitespace-separated "word" in argument string
sub fw($) {
    my($string) = @_;
    my @words = split /\s+/, $string;
    return $words[0];
} 

ok defined(&biolemma) => "import of biolemma as function call";

is fw(biolemma("theses")), 	    	fw("thesis NNS PennPOS");
is fw(biolemma("these")), 	    	fw("these d NUPOS");
is fw(biolemma("are")), 	    	fw("be vbb NUPOS");