view release on metacpan or  search on metacpan

t/01_lock.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;

use File::Spec;
use File::Temp 'tempdir';

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;