* tests/fmt/basic (pfx-only, pfx-of-pfx): New tests,

based on examples from G.P. Halkes in
<http://article.gmane.org/gmane.comp.gnu.core-utils.bugs/9388>.

2 files changed, 18 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 7fcccc15d..2ac01ae57 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-06  Jim Meyering  <jim@meyering.net>
+
+	* tests/fmt/basic (pfx-only, pfx-of-pfx): New tests,
+	based on examples from G.P. Halkes in
+	<http://article.gmane.org/gmane.comp.gnu.core-utils.bugs/9388>.
+
 2007-01-06  G.P. Halkes  <buscom@ghalkes.nl>
 
 	* src/fmt.c (copy_rest): Correct prefix handling.
diff --git a/tests/fmt/basic b/tests/fmt/basic
index 04938b860..66abe1305 100755
--- a/tests/fmt/basic
+++ b/tests/fmt/basic
@@ -64,6 +64,18 @@ my @Tests =
      ['pfx-1', qw (-p '>'),
       {IN=>  " 1\n  2\n\t3\n\t\t4\n> quoted\n> text\n"},
       {OUT=> " 1\n  2\n\t3\n\t\t4\n> quoted text\n"}],
+
+     # Don't remove prefix from a prefix-only line.
+     ['pfx-only', qw (-p '>'),
+      {IN=>  ">\n"},
+      {OUT=> ">\n"}],
+
+     # With a multi-byte prefix, say, "foo", don't empty a line that
+     # starts with a strict prefix (e.g. "fo") of that prefix.
+     # With fmt from coreutils-6.7, it would mistakenly output an empty line.
+     ['pfx-of-pfx', qw (-p 'foo'),
+      {IN=>  "fo\n"},
+      {OUT=> "fo\n"}],
 );
 
 my $save_temps = $ENV{DEBUG};