use
strict;
use
warnings;
use
Test::More;
use
File::Spec;
use
ExclusiveLock::Guard;
my
$tmpdir
= tempdir(
CLEANUP
=> 1 );
my
$tmpfile
= File::Spec->catfile(
$tmpdir
,
'test.lock'
);
do
{
my
$lock
= ExclusiveLock::Guard->new(
$tmpfile
);
ok(
$lock
->is_locked);
ok( -f
$tmpfile
);
};
ok( not -f
$tmpfile
);
done_testing;