t/Koha/sleep.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Koha::Script;
   6 use Fcntl qw(:flock);
   7 use Try::Tiny;
   8
   9 # # Lock execution
  10 my $script = Koha::Script->new({ script => 'sleep.pl' });
  11
  12 $script->lock_exec;
  13
  14 # Sleep for a while, we need to force the concurrent access to the
  15 # lock file
  16 sleep 2;
  17
  18 # Normal exit
  19 1;