From: Pádraig Brady <P@draigBrady.com>
Date: Fri, 20 Mar 2026 19:25:59 +0000 (+0000)
Subject: tests: cut: ensure multi-byte delimiter is rejected in uni-byte locales
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d017f83bc77ce14cae1f3ec10f07d6eb1857d81;p=thirdparty%2Fcoreutils.git

tests: cut: ensure multi-byte delimiter is rejected in uni-byte locales

tests/cut/cut.pl: Check the appropriate diagnostic is presented.
---

diff --git a/tests/cut/cut.pl b/tests/cut/cut.pl
index 186142e239..8c3c06653e 100755
--- a/tests/cut/cut.pl
+++ b/tests/cut/cut.pl
@@ -37,6 +37,19 @@ my $no_endpoint = "$prog: invalid range with no endpoint: -\n$try";
 my $nofield = "$prog: an input delimiter makes sense\n\tonly when " .
               "operating on fields\n$try";
 my $mutual_dw = "$prog: -d and -w are mutually exclusive\n$try";
+my $single_char = "$prog: the delimiter must be a single character\n$try";
+my $single_byte_locale = 'C';
+
+{
+  my $codeset = qx(LC_ALL=C locale charmap 2>/dev/null);
+  chomp $codeset;
+  if ($codeset eq 'UTF-8')
+    {
+      my $fr_locale = $ENV{LOCALE_FR};
+      $single_byte_locale
+        = defined $fr_locale && $fr_locale ne 'none' ? $fr_locale : undef;
+    }
+}
 
 my @Tests =
  (
@@ -329,6 +342,12 @@ if ($mb_locale ne 'C')
        {ENV => "LC_ALL=$mb_locale"}];
   }
 
+defined $single_byte_locale
+  and push @Tests,
+    ['mb-delim-C', '-d', "\xc3\xa9", '-f1',
+     {EXIT=>1}, {ERR=>$single_char},
+     {ENV => "LC_ALL=$single_byte_locale"}];
+
 
 @Tests = triple_test \@Tests;