summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTakuji Tanaka <ttk@t-lab.opal.ne.jp>2022-11-27 10:02:50 +0000
committerTakuji Tanaka <ttk@t-lab.opal.ne.jp>2022-11-27 10:02:50 +0000
commitf0b47c91953ce00f2f581cca6330af608c765144 (patch)
treef1f1cf0be1530b7d5cde54c5bc5e9fed765657b8
parentceed678ddb71c600877bc341854908b499367df6 (diff)
(u)ptex: use perl instead of sed for test scripts
git-svn-id: svn://tug.org/texlive/trunk@65116 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/source/texk/web2c/ptexdir/yokotate.test3
-rwxr-xr-xBuild/source/texk/web2c/uptexdir/yokotate.test2
2 files changed, 3 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/ptexdir/yokotate.test b/Build/source/texk/web2c/ptexdir/yokotate.test
index 380fa4cc623..24a42cacee2 100755
--- a/Build/source/texk/web2c/ptexdir/yokotate.test
+++ b/Build/source/texk/web2c/ptexdir/yokotate.test
@@ -40,8 +40,9 @@ for enc in utf8 euc sjis jis; do
./ptftopl -kanji=$enc $testdir/$font.tfm ptests/x$font-$enc.pl && \
if [ $enc = utf8 ]; then \
- sed -i".bak" -e "y/―~∥-¢£¬/—〜‖−¢£¬/" ptests/x$font-$enc.pl; fi && \
+ perl -i".bak" -CD -pe "use utf8; tr/―~∥-¢£¬/—〜‖−¢£¬/" ptests/x$font-$enc.pl; fi && \
diff $testdir/$font-$enc.pl ptests/x$font-$enc.pl && echo || exit 6
+
done
done
diff --git a/Build/source/texk/web2c/uptexdir/yokotate.test b/Build/source/texk/web2c/uptexdir/yokotate.test
index 87f32eb1ea6..5edd8eee3c9 100755
--- a/Build/source/texk/web2c/uptexdir/yokotate.test
+++ b/Build/source/texk/web2c/uptexdir/yokotate.test
@@ -43,7 +43,7 @@ for enc in utf8 euc sjis jis; do
./uptftopl -kanji=$enc $testdir/$font.tfm uptests/x$font-$enc.pl && \
if [ $enc = utf8 ]; then \
- sed -i".bak" -e "y/―~∥-¢£¬/—〜‖−¢£¬/" uptests/x$font-$enc.pl; fi && \
+ perl -i".bak" -CD -pe "use utf8; tr/―~∥-¢£¬/—〜‖−¢£¬/" uptests/x$font-$enc.pl; fi && \
diff $testdir/$font-$enc.pl uptests/x$font-$enc.pl && echo || exit 6
done