tests: cut: check multi-byte output delimiter

* tests/cut/cut.pl: Add a test case.

diff --git a/tests/cut/cut.pl b/tests/cut/cut.pl
index 7f9325d31a212bfc69f9053923d0e0773eaea78e..d9dc0fc26bc569dd2ac2a9369af313d4924ba4c3 100755 (executable)
--- a/tests/cut/cut.pl
+++ b/tests/cut/cut.pl
@@ -264,7 +264,10 @@ if ($mb_locale ne 'C')
       ['mb-char-3', '-c1,3', '--output-d=:',
        {IN=>"\xc3\xa9a\xe2\x82\xacb\n"}, {OUT=>"\xc3\xa9:\xe2\x82\xac\n"},
        {ENV => "LC_ALL=$mb_locale"}],
-      ['mb-char-4', '-c1-2', {IN=>"\xc3x\n"}, {OUT=>"\xc3x\n"},
+      ['mb-char-4', '-c1,3', "--output-d='\xe2\x90\x9e'",
+       {IN=>"\xc3\xa9ab\n"}, {OUT=>"\xc3\xa9\xe2\x90\x9eb\n"},
+       {ENV => "LC_ALL=$mb_locale"}],
+      ['mb-char-5', '-c1-2', {IN=>"\xc3x\n"}, {OUT=>"\xc3x\n"},
        {ENV => "LC_ALL=$mb_locale"}],
       ['mb-delim-1', '-d', "\xc3\xa9", '-f2',
        {IN=>"a\xc3\xa9b\xc3\xa9c\n"}, {OUT=>"b\n"},