14_lock.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#
# Check flock() feature
#
# This isn't a real test; it just checks to make sure we can call the method.
# It doesn't even check to make sure that the default behavior
# (LOCK_EX) is occurring. This is because I don't know how to write a good
# portable test for flocking. I checked the Perl core distribution,
# and found that Perl doesn't test flock either!
BEGIN {
print "1..0\n";
exit;
}
}
my ($o, $n);
my @a;
print "1..4\n";
my $N = 1;
print "ok $N\n"; $N++;
# 2-4 Who the heck knows?
close F;
print $o ? "ok $N\n" : "not ok $N\n";
$N++;
$N++;
$N++;
END {
undef $o;
untie @a;
}