unexpand: fix incorrect expansion, add test for it

function                                             old     new   delta
expand_main                                          676     656     -20

1 files changed, 30 insertions, 0 deletions

diff --git a/testsuite/unexpand.tests b/testsuite/unexpand.tests
new file mode 100755
index 000000000..e7f42c5fd
--- /dev/null
+++ b/testsuite/unexpand.tests
@@ -0,0 +1,30 @@
+#!/bin/sh
+# Copyright 2008 by Denys Vlasenko
+# Licensed under GPL v2, see file LICENSE for details.
+
+. testing.sh
+
+# testing "test name" "options" "expected result" "file input" "stdin"
+
+testing "unexpand case 1" "unexpand" \
+        "\t12345678\n" "" "        12345678\n" \
+
+testing "unexpand case 2" "unexpand" \
+        "\t 12345678\n" "" "         12345678\n" \
+
+testing "unexpand case 3" "unexpand" \
+        "\t  12345678\n" "" "          12345678\n" \
+
+testing "unexpand case 4" "unexpand" \
+        "\t12345678\n" "" "       \t12345678\n" \
+
+testing "unexpand case 5" "unexpand" \
+        "\t12345678\n" "" "      \t12345678\n" \
+
+testing "unexpand case 6" "unexpand" \
+        "\t12345678\n" "" "     \t12345678\n" \
+
+testing "unexpand case 7" "unexpand" \
+        "123\t 45678\n" "" "123 \t 45678\n" \
+
+exit $FAILCOUNT