summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/tests
diff options
context:
space:
mode:
authorTakuji Tanaka <ttk@t-lab.opal.ne.jp>2023-12-24 11:16:21 +0000
committerTakuji Tanaka <ttk@t-lab.opal.ne.jp>2023-12-24 11:16:21 +0000
commit0a2e8722a68e5eebc8a403c750120b2fb28add8b (patch)
treef9c78ca57511a078b53bc15dfc1b8c381299fda6 /Build/source/texk/web2c/tests
parentf0e782337e501b5504b9ce5ee022c56fc3201008 (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-xBuild/source/texk/web2c/tests/fn-generate.perl15
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}