(22a): Add test.

diff --git a/tests/sort/Test.pm b/tests/sort/Test.pm
index a4678076209f6ee6c285188fa33363394f3d2e1f..8059a01f607e569c9ddb2c437cb48ec21b839d84 100755 (executable)
--- a/tests/sort/Test.pm
+++ b/tests/sort/Test.pm
@@ -194,6 +194,9 @@ my @tv = (
 ["21f", '-fs', "A\na\n_\n", "A\na\n_\n", 0],
 ["21g", '-fu', "a\n_\n", "a\n_\n", 0],
 
+# This test failed until 1.22f.  From Zvi Har'El.
+["22a", '-k 2,2fd -k 1,1r', "3 b\n4 B\n", "4 B\n3 b\n", 0],
+
 );
 
 sub test_vector