The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!/usr/bin/env perl
use strict;
use Treex::Core::Run q(treex);
use Test::More tests => 1;
foreach my $i (1..3) {
my $doc = Treex::Core::Document->new();
$doc->save("dummy$i.treex");
}
my $cmdline_arguments = "-q Util::Eval document='print 1' -g 'dummy?.treex'";
stdout_is( sub { treex $cmdline_arguments },'111',"checking Util::Eval: treex $cmdline_arguments");
unlink glob "dummy*";