diff options
author | Nicholas Clark <nick@ccl4.org> | 2004-12-29 19:47:12 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2004-12-29 19:47:12 +0000 |
commit | 8c51517677f7444669d829b895c0ed1364734bbc (patch) | |
tree | cda4a459045038d1362b0a0451df0e706e42a288 /t | |
parent | 1dd30107ebac37cf465e5225a00d367454a7cb84 (diff) | |
download | perl-8c51517677f7444669d829b895c0ed1364734bbc.tar.gz |
Oops. Forgot to uncomment the last set of Unicode values for
testing.
p4raw-id: //depot/perl@23704
Diffstat (limited to 't')
-rwxr-xr-x | t/op/read.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/read.t b/t/op/read.t index 6aab395ac9..58190113a3 100755 --- a/t/op/read.t +++ b/t/op/read.t @@ -9,7 +9,7 @@ BEGIN { } use strict; -plan tests => 1732; +plan tests => 2564; 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: $!"; @@ -31,7 +31,7 @@ my $tmpfile = 'Op_read.tmp'; my (@values, @buffers) = ('', ''); -foreach (65, 161, 253) { # 9786) { +foreach (65, 161, 253, 9786) { push @values, join "", map {chr $_} $_ .. $_ + 4; push @buffers, join "", map {chr $_} $_ + 5 .. $_ + 20; } |