BEGIN {use_ok(
'Lingua::BioYaTeA::PostProcessing'
) ;}
my
%options
= (
'configuration'
=>
't/bioyatea/post-processing-filtering-test.conf'
,
'input-file'
=>
't/sampleEN-bioyatea-out.xml'
,
'output-file'
=>
't/sampleEN-bioyatea-out-pp.xml'
,
'tmp-dir'
=>
't'
,
);
my
$postProc
= Lingua::BioYaTeA::PostProcessing->new(\
%options
);
ok(
defined
(
$postProc
) &&
ref
(
$postProc
) eq
'Lingua::BioYaTeA::PostProcessing'
,
'new() works'
);
$postProc
->_printOptions(\
*stderr
);
$postProc
->load_configuration;
ok(
scalar
(
keys
%{
$postProc
->reg_exps}) > 0,
'configuration loading works'
);
$postProc
->defineTwigParser;
ok(
defined
$postProc
->twig_parser,
'definition of the twig parser works'
);
ok(
$postProc
->filtering == 1,
'Filtering works'
);
$postProc
->rmlog;
unlink
(
"t/sampleEN-bioyatea-out-pp.xml"
);