* tests/misc/paste.pl: Test all supported POSIX and GNU
backslash escape sequences.
---
tests/misc/paste.pl | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/tests/misc/paste.pl b/tests/misc/paste.pl
index e02ed5ddf..c7101ecfd 100755
--- a/tests/misc/paste.pl
+++ b/tests/misc/paste.pl
@@ -65,6 +65,17 @@ 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"} ],
+
+ # 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"}],
);
my $save_temps = $ENV{DEBUG};
--
2.52.0
