diff options
author | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2023-12-24 11:16:21 +0000 |
---|---|---|
committer | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2023-12-24 11:16:21 +0000 |
commit | 0a2e8722a68e5eebc8a403c750120b2fb28add8b (patch) | |
tree | f9c78ca57511a078b53bc15dfc1b8c381299fda6 /Build/source/texk/web2c/tests | |
parent | f0e782337e501b5504b9ce5ee022c56fc3201008 (diff) |
{pdf,xe,ep,eup}tex: Avoid errors on parallel test processing
git-svn-id: svn://tug.org/texlive/trunk@69208 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tests')
-rwxr-xr-x | Build/source/texk/web2c/tests/fn-generate.perl | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/tests/fn-generate.perl b/Build/source/texk/web2c/tests/fn-generate.perl index 11829c66da3..9d9ec66001d 100755 --- a/Build/source/texk/web2c/tests/fn-generate.perl +++ b/Build/source/texk/web2c/tests/fn-generate.perl @@ -10,6 +10,7 @@ use Encode; my $st = 0; our $windows; # option -windows +our $randgen; # option -randgen foreach $_ (<DATA>) { chomp; @@ -27,11 +28,13 @@ exit($st ? 239 : 0); sub make_str ($$;$) { my ($encname, $fname0, $fname1) = @_; - my ($src); + my ($src, $rand) = ('', ''); my ($fnameT) = $fname0; my $cmnt = $windows ? '%' : ''; # comment out if option -windows - $fnameT =~ s/\.tex$/-tmp.tex/; + + $rand= '\rnd' if (!$fname1 && $randgen); + $fnameT =~ s/\.tex$/-tmp$rand.tex/; $src = <<END; \% $fname0 @@ -44,6 +47,14 @@ $src = <<END; \\immediate\\openout0=\\jobname.txt \\immediate\\write0{abc αβγ абв あア※¥ 天地人} \\immediate\\closeout0 +END + +$src .= <<END if (!$fname1 && $randgen); + +\\edef\\rnd{\\the\\numexpr\\${randgen}900000+100000\\relax} +END + +$src .= <<END; \\immediate\\openout1=$fnameT \\immediate\\write1{\\relax} |