From: Pádraig Brady <P@draigBrady.com>
Date: Mon, 12 Jan 2026 00:43:35 +0000 (+0000)
Subject: tests: paste -d: test supported escape sequences
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=49788a451055121f6e7178bc67fc3ce00b3a2148;p=thirdparty%2Fcoreutils.git

tests: paste -d: test supported escape sequences

* tests/misc/paste.pl: Test all supported POSIX and GNU
backslash escape sequences.
---

diff --git a/tests/misc/paste.pl b/tests/misc/paste.pl
index e02ed5ddf2..7ed710c545 100755
--- a/tests/misc/paste.pl
+++ b/tests/misc/paste.pl
@@ -65,6 +65,21 @@ my @Tests =
    # paste: 23^H^H^H.....@...@: No such file or directory$
    ['delim-bs2', q!-d'\'!, {IN=>{'123\b\b\b.....@'=>''}}, {EXIT => 1},
     {ERR => $msg . q!\\! . "\n"} ],
+
+   # \0 allows cycling thtough an empty delimiter (while "-d ''" does not)
+   ['delim-empty-1', q{-s -d '\0,'}, {IN=>"1\n2\n3\n"}, {OUT=>"12,3\n"}],
+
+   # POSIX escapes
+   ['delim-esc-0', q{-s -d '\0'},   {IN=>"1\n2\n"}, {OUT=>"12\n"}],
+   ['delim-esc-n', q{-s -d '\n'},   {IN=>"1\n2\n"}, {OUT=>"1\n2\n"}],
+   ['delim-esc-t', q{-s -d '\t'},   {IN=>"1\n2\n"}, {OUT=>"1\t2\n"}],
+   ['delim-esc-s', q{-s -d '\\\\'}, {IN=>"1\n2\n"}, {OUT=>"1\\2\n"}],
+   # GNU escapes
+   ['delim-esc-b', q{-s -d '\b'},   {IN=>"1\n2\n"}, {OUT=>"1\b2\n"}],
+   ['delim-esc-f', q{-s -d '\f'},   {IN=>"1\n2\n"}, {OUT=>"1\f2\n"}],
+   ['delim-esc-r', q{-s -d '\r'},   {IN=>"1\n2\n"}, {OUT=>"1\r2\n"}],
+   ['delim-esc-v', q{-s -d '\v'},   {IN=>"1\n2\n"}, {OUT=>"1\0132\n"}],
+   ['delim-esc-foo', q{-s -d '\q'}, {IN=>"1\n2\n"}, {OUT=>"1q2\n"}],
   );
 
 my $save_temps = $ENV{DEBUG};