From a0cec995fae00d3c9992c5761cd9144abc60929e Mon Sep 17 00:00:00 2001
From: Collin Funk <collin.funk1@gmail.com>
Date: Sun, 4 Oct 2026 22:55:08 -0700
Subject: [PATCH] tests: sum,cp: disable Unicode when executing Perl

* tests/local.mk (TESTS_ENVIRONMENT): Set PERL_UNICODE to 0.
* tests/cksum/sum-sysv.sh: Call binmode on STDOUT.
* tests/cp/copy-FMR.sh: Likewise.
* tests/cp/sparse-extents-2.sh: Likewise.
Fixes https://bugs.gnu.org/81994
---
 tests/cksum/sum-sysv.sh      | 6 ++++--
 tests/cp/copy-FMR.sh         | 2 +-
 tests/cp/sparse-extents-2.sh | 2 +-
 tests/local.mk               | 1 +
 4 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/tests/cksum/sum-sysv.sh b/tests/cksum/sum-sysv.sh
index 854870018..76e85dc49 100755
--- a/tests/cksum/sum-sysv.sh
+++ b/tests/cksum/sum-sysv.sh
@@ -30,7 +30,8 @@ require_perl_
 # FYI, 16843009 is floor (2^32 / 255).
 
 # aka: perl -e 'print chr(255) x 16843009'
-$PERL -e '$s = chr(255) x 65537; foreach (1..257) {print $s}' \
+$PERL -e 'binmode STDOUT;
+$s = chr(255) x 65537; foreach (1..257) {print $s}' \
   | sum -s > out || fail=1
 cat > exp <<\EOF
 65535 32897
@@ -40,7 +41,8 @@ compare exp out || fail=1
 rm -f out exp
 
 # aka: perl -e 'print chr(255) x 16843010'
-$PERL -e '$s = chr(255) x 65537; foreach (1..257) {print $s}; print chr(255)' \
+$PERL -e 'binmode STDOUT;
+$s = chr(255) x 65537; foreach (1..257) {print $s}; print chr(255)' \
   | sum -s > out || fail=1
 cat > exp <<\EOF
 254 32897
diff --git a/tests/cp/copy-FMR.sh b/tests/cp/copy-FMR.sh
index 7312562e0..ca5df58bd 100755
--- a/tests/cp/copy-FMR.sh
+++ b/tests/cp/copy-FMR.sh
@@ -23,7 +23,7 @@ require_valgrind_
 require_perl_
 
 # Trigger FMR in fiemap logic from v8.11..v8.19
-$PERL -e 'for (1..600) { sysseek (*STDOUT, 4096, 1)' \
+$PERL -e 'binmode STDOUT; for (1..600) { sysseek (*STDOUT, 4096, 1)' \
   -e '&& syswrite (*STDOUT, "a" x 1024) or die "$!"}' > j || fail=1
 valgrind --quiet --error-exitcode=3 cp --reflink=never j j2 || fail=1
 cmp j j2 || fail=1
diff --git a/tests/cp/sparse-extents-2.sh b/tests/cp/sparse-extents-2.sh
index e7740ae65..3dc1cac2c 100755
--- a/tests/cp/sparse-extents-2.sh
+++ b/tests/cp/sparse-extents-2.sh
@@ -68,7 +68,7 @@ f()
 
 for i in $(seq 1 2 21); do
   for j in 1 2 31 100; do
-    $PERL -e '$n = '$i' * 1024; *F = *STDOUT;' \
+    $PERL -e 'binmode STDOUT; $n = '$i' * 1024; *F = *STDOUT;' \
           -e 'for (1..'$j') { sysseek (*F, $n, 1)' \
           -e '&& syswrite (*F, chr($_)x$n) or die "$!"}' > j1 || fail=1
 
diff --git a/tests/local.mk b/tests/local.mk
index 9b9d25a4d..c513c0756 100644
--- a/tests/local.mk
+++ b/tests/local.mk
@@ -79,6 +79,7 @@ TESTS_ENVIRONMENT =				\
   MAKE=$(MAKE)					\
   PACKAGE_VERSION=$(PACKAGE_VERSION)		\
   PERL='$(PERL)'				\
+  PERL_UNICODE=0				\
   SHELL='$(PREFERABLY_POSIX_SHELL)'		\
   ; test -d /usr/xpg4/bin && PATH='/usr/xpg4/bin$(PATH_SEPARATOR)'"$$PATH"; \
   PATH='$(abs_top_builddir)/src$(PATH_SEPARATOR)'"$$PATH" \