autodie/t/flock.t

30 my $flock_return = eval { flock($self_fh, LOCK_EX | LOCK_NB); };
36 my $flock_return2 = flock($self_fh2, LOCK_EX | LOCK_NB);
53 ok( flock($self_fh, LOCK_EX | LOCK_NB), "Test file locked");
59     $return = flock($self_fh2, LOCK_EX | LOCK_NB);
78     flock($self_fh2, LOCK_EX | LOCK_NB);
84 like($@,   qr/LOCK_EX/, "error message contains LOCK_EX switch");
90     flock(SELF, LOCK_EX | LOCK_NB);
96 like($@,   qr/LOCK_EX/, "error message contains LOCK_EX switch");