view release on metacpan or  search on metacpan

t/2-tokenisation.t  view on Meta::CPAN

my %config;
my $def_config;
my $doc_xml;
eval { use Alvis::NLPPlatform; };
eval { use Config::General; };
eval { use Data::Dumper; };
eval { (%config = Alvis::NLPPlatform::load_config("etc/alvis-nlpplatform/nlpplatform-test.rc")) && ($def_config=1)  };
ok(defined $def_config);
eval {
     *STDERR=*STDOUT;
     local $/ ="";
     open DATAFILE, "lib/Alvis/NLPPlatform/data/pmid10788508-v2-3.xml";
     $doc_xml = <DATAFILE>;
     close DATAFILE;
     print STDERR "\n";
};

ok(Alvis::NLPPlatform::standalone_main(\%config, $doc_xml, \*STDOUT) != 0);