t/op/read.t: test with zero-length buffer

This test file had:

    my (@values, @buffers) = ('', '');

which isn't doing what the author probably intended. Instead it's testing
twice for the same zero-length value, and not testing at all for a zero
length buffer.

diff --git a/t/op/read.t b/t/op/read.t
index c5b616a..a4ddc0d 100644 (file)
--- a/t/op/read.t
+++ b/t/op/read.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 use strict;
 
-plan tests => 2564;
+plan tests => 2116;
 
 open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || open(FOO,':op:read.t') || die "Can't open op.read";
 seek(FOO,4,0) or die "Seek failed: $!";
@@ -33,7 +33,8 @@ my $has_perlio = !eval {
 
 my $tmpfile = tempfile();
 
-my (@values, @buffers) = ('', '');
+my @values  = ('');
+my @buffers = ('');
 
 foreach (65, 161, 253, 9786) {
     push @values, join "", map {chr $_} $_ .. $_ + 4;
@@ -59,6 +60,7 @@ foreach my $value (@values) {
            print FH $value;
            close FH;
            foreach my $offset (@offsets) {
+                next if !length($initial_buffer) && $offset != 0;
                foreach my $length (@lengths) {
                    # Will read the lesser of the length of the file and the
                    # read length