#!./perl
-# $RCSfile: read.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:17 $
-
BEGIN {
chdir 't';
@INC = '../lib';
!$Config::Config{useperlio}
};
-my $tmpfile = 'Op_read.tmp';
-
-1 while unlink $tmpfile;
+my $tmpfile = tempfile();
my (@values, @buffers) = ('', '');
skip "Needs :utf8 layer but no perlio", 2 * @offsets * @lengths
if $utf8 and !$has_perlio;
- 1 while unlink $tmpfile;
open FH, ">$tmpfile" or die "Can't open $tmpfile: $!";
binmode FH, "utf8" if $utf8;
print FH $value;
$got = read (FH, $buffer, $length, $offset);
is ($got, length $will_read, "got $what");
is ($buffer, $expect, "buffer $what");
+ close FH;
}
}
}