#!/usr/bin/perl -w

use strict;
use warnings;

use Test::More;
use lib 'lib';
use File::Lock::ParentLock;

my $locker= File::Lock::ParentLock->new();
ok (!$locker->is_locked);
ok ($locker->can_lock);
my $status=$locker->lock;
#print "# status=$status\n";
ok ($status==1);
ok ($locker->is_locked);
ok ($locker->can_lock);
$locker->unlock;
ok (!$locker->is_locked);
ok ($locker->can_lock);
done_testing();
