open.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
# $RCSfile$
$| = 1;
use warnings;
print "1..66\n";
my $test = 1;
# my $file tests
# 1..9
{
ok;
binmode $f;
ok;
ok;
ok;
ok;
$b = <$f>;
ok;
ok;
# warn $@;
ok;
ok;
}
# 10..12
{
ok;
print $f "a row\n";
ok;
ok;
}
# 13..15
{
ok;
print $f "a row\n";
ok;
ok;
}
# 16..18
{
ok;
@rows = <$f>;
ok;
ok;
}
# 19..23
{
ok;
ok;
@rows = <$f>;
ok;
seek $f, 0, 1;
print $f "yet another row\n";
ok;
ok;
}
# 24..26
}
else {
./perl -e "print qq(a row\n); print qq(another row\n)"
ok;
@rows = <$f>;
ok;
ok;
}
# 27..30
}
else {
ok;
@rows = <$f>;
sleep 1;
ok;
}
# 31..32
1;
ok;
ok;
# local $file tests
# 33..41
{
ok;
binmode $f;
ok;
ok;
ok;
ok;
$b = <$f>;
ok;
ok;
# warn $@;
ok;
ok;
}
# 42..44
{
ok;
print $f "a row\n";
ok;
ok;
}
# 45..47
{
ok;
print $f "a row\n";
ok;
ok;
}
# 48..50
{
ok;
@rows = <$f>;
ok;
ok;
}
# 51..55
{
ok;
ok;
@rows = <$f>;
ok;
seek $f, 0, 1;
print $f "yet another row\n";
ok;
ok;
}
# 56..58
}
else {
./perl -e "print qq(a row\n); print qq(another row\n)"
ok;
@rows = <$f>;
ok;
ok;
}
# 59..62
}
else {
ok;
@rows = <$f>;
sleep 1;
ok;
}
# 63..64
1;
ok;
ok;
# 65..66
{
local *F;
for (1..2) {
} else {
}
print <F>;
close F;
}
ok;
for (1..2) {
} else {
}
print <F>;
close F;
}
ok;
}