From: Jim Meyering <jim@meyering.net>
Date: Thu, 3 Aug 1995 16:44:17 +0000 (+0000)
Subject: .
X-Git-Tag: textutils-1_12_1~18
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e799d19df822fb0c87dbc8f7bd797686d7f7eff5;p=thirdparty%2Fcoreutils.git

.
---

diff --git a/tests/sort/test.data.pl b/tests/sort/test.data.pl
index 8198edabe4..313fe889fb 100755
--- a/tests/sort/test.data.pl
+++ b/tests/sort/test.data.pl
@@ -1,3 +1,4 @@
+# -*-perl-*-
 #test   options   input   expected-output   expected-return-code
 #
 ("1a", '', "A\nB\nC\n", "A\nB\nC\n", 0);
@@ -37,3 +38,13 @@
 ("6d", '-k 2,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0);
 ("6e", '-k 2,2', "A B Z\nA A A\n", "A A A\nA B Z\n", 0);
 ("6f", '-k 2,2', "A B A\nA A Z\n", "A A Z\nA B A\n", 0);
+#
+("7a", '-k 2,3', "9 a b\n7 a a\n", "7 a a\n9 a b\n", 0);
+("7b", '-k 2,3', "a a b\nz a a\n", "z a a\na a b\n", 0);
+("7c", '-k 2,3', "y k b\nz k a\n", "z k a\ny k b\n", 0);
+("7d", '+1 -3', "y k b\nz k a\n", "z k a\ny k b\n", 0);
+#
+# FIXME: report an error for `.' but missing char spec
+("8a", '-k 2.,3', "", "", 1);
+# FIXME: report an error for `,' but missing POS2
+("8b", '-k 2,', "", "", 1);