view release on metacpan or  search on metacpan

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

# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 0-creation.t'

#########################

use strict;
use warnings;

# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 3;

BEGIN { use_ok('Alvis::NLPPlatform') }

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

# Instantiation of abstract subclass
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);