Koha-clms/t/Koha/wait.pl

#!/usr/bin/perl

use Modern::Perl;

use Koha::Script;

# # Lock execution
my $script = Koha::Script->new( { script => 'sleep.pl' } );

$script->lock_exec( { wait => 1 } );

print STDOUT "YAY!";

# Normal exit
1;