#!/usr/bin/env perl
BEGIN {
    unless ( $ENV{AUTHOR_TESTING} and $ENV{EXPENSIVE_TESTING} ) {
        require Test::More;
        Test::More::plan( skip_all => 'these tests are expensive and only for testing by the author' );
    }
}
use strict;
use warnings;
use Treex::Core::Config;
use Treex::Core::Run qw(treex);
use Test::More;
#plan skip_all => 'Takes too much time, maybe infinite loop';
eval { use Test::Output; 1 } or plan skip_all => 'Test::Output required to test parallelism';
plan tests => 1;
my $number_of_files = 5;
my $number_of_jobs  = 2;
foreach my $i ( 1 .. $number_of_files ) {
    my $doc = Treex::Core::Document->new();
    $doc->save("paratest$i.treex");
}
my $cmdline_arguments = "-q -p --jobs=$number_of_jobs --local " .
    "Util::Eval document='print \"1\";' -g 'paratest*.treex'";
stdout_is(
    sub { treex $cmdline_arguments },
    '1' x $number_of_files,
    "running parallelized treex locally"
);
unlink glob "paratest*";