From 0966b97bd1e8b07b07eff59ef3faed07227dd51d Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 24 Jan 1998 23:32:43 +0000
Subject: [PATCH] (f-1): Add test for option-processing of `-f -n 1'.

---
 tests/tail/Test.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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