summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2003-05-04 14:06:52 +0000
committerJim Meyering <jim@meyering.net>2003-05-04 14:06:52 +0000
commit8a79d3d630b7991f58bc078f7db0382ceba72680 (patch)
tree0ae79e765a68306d26a4cf12ba6cf43681f7cc89
parent0a8019497eef097a0321efcb0dfb606a0b00bd42 (diff)
downloadcoreutils-8a79d3d630b7991f58bc078f7db0382ceba72680.tar.xz
Remove tests of --bytes=-N; using that framework
caused the addition of thousands of small files to the tar archive.
-rw-r--r--tests/head/Test.pm33
1 files changed, 0 insertions, 33 deletions
diff --git a/tests/head/Test.pm b/tests/head/Test.pm
index 5b03eebb6..370a409ef 100644
--- 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;