Remove tests of --bytes=-N; using that framework

caused the addition of thousands of small files to the tar archive.

diff --git a/tests/head/Test.pm b/tests/head/Test.pm
index 5b03eebb64cdff613795ffd8b0dbf07f807512b5..370a409efbf3495b8e48c7600ba826cbffdd394e 100644 (file)
--- a/tests/head/Test.pm
+++ b/tests/head/Test.pm
@@ -5,9 +5,6 @@ use strict;
 # Tell head to accept old-style options like `-1'.
 $Test::env_default = ['_POSIX2_VERSION=199209'];
 
-# This should match the definition in head.c.
-my $READ_BUFSIZE = 4096;
-
 my @tv = (
 # test name, options, input, expected output, expected return code
 #
@@ -54,38 +51,8 @@ my @tv = (
 ['no-oct-3', '-n 08', "\n"x12, "\n"x8, 0],
 ['no-oct-4', '-c 08', "\n"x12, "\n"x8, 0],
 
-# Elide the exact size of the file.
-['elide-1', "--bytes=-2", "a\n", '', 0],
-# Elide more than the size of the file.
-['elide-2', "--bytes=-2", "a", '', 0],
-# Leave just one byte.
-['elide-3', "--bytes=-2", "abc", 'a', 0],
-# Make it so the elided bytes straddle the end of the first $READ_BUFSIZE block.
-['elide-4', "--bytes=-2",
- 'a' x ($READ_BUFSIZE-3) . "\nbcd",
- 'a' x ($READ_BUFSIZE-3) . "\nb", 0],
-# Make it so the elided bytes straddle the end of the 2nd $READ_BUFSIZE block.
-['elide-5', "--bytes=-2",
- 'a' x (2 * $READ_BUFSIZE - 2) . 'bcd',
- 'a' x (2 * $READ_BUFSIZE - 2) . 'b', 0],
 );
 
-# Brute force: use all combinations of file sizes [0..20] and
-# number of bytes to elide [0..20].
-my $s = "abcdefghijklmnopqrst";
-for my $file_size (0..20)
-  {
-    for my $n_elide (0..20)
-      {
-       my $input = substr $s, 0, $file_size;
-       my $out_len = $n_elide < $file_size ? $file_size - $n_elide : 0;
-       my $output = substr $input, 0, $out_len;
-       push @tv, ["elide-$file_size-$n_elide", "--bytes=-$n_elide",
-                  $input, $output, 0];
-
-      }
-  }
-
 sub test_vector
 {
   my @derived_tests;