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

diff --git a/tests/tail/Test.pm b/tests/tail/Test.pm
index 79d361b..37bc520 100755 (executable)
--- 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}