(f-1): Add test for option-processing of `-f -n 1'.

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/tail/Test.pm b/tests/tail/Test.pm
index 79d361beb..37bc5201a 100755
--- a/tests/tail/Test.pm
+++ b/tests/tail/Test.pm
@@ -66,6 +66,9 @@ my @tv = (
 ['n-5',  '-n -0', "y\n" x 5, '', 0],
 ['n-5a', '-n -1', "y\n" x 5, "y\n", 0],
 ['n-5b', '-n  0', "y\n" x 5, '', 0],
+
+# With textutils-1.22, this failed.
+['f-1', '-f -n 1', "a\nb\n", "b\n", 0],
 );
 
 sub test_vector
@@ -80,6 +83,11 @@ sub test_vector
 	{
 	  $Test::input_via{$test_name} = {REDIR => 0, PIPE => 0};
 	}
+      elsif ($test_name eq 'f-1')
+	{
+	  # Using redirection or a file would make this hang.
+	  $Test::input_via{$test_name} = {PIPE => 0};
+	}
       else
 	{
 	  $Test::input_via{$test_name} = {REDIR => 0, FILE => 0, PIPE => 0}