3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
20 use Test
::More tests
=> 4;
23 BEGIN { use_ok
('Koha::Script') }
29 my $userenv = C4
::Context
->userenv;
36 'cardnumber' => undef,
38 'branchname' => undef,
39 'emailaddress' => undef,
41 'shibboleth' => undef,
44 "Context userenv set correctly with no flags"
47 my $interface = C4
::Context
->interface;
48 is
( $interface, 'commandline', "Context interface set correctly with no flags" );
50 subtest
'lock_exec() tests' => sub {
54 # Launch the sleep script
57 system( dirname
(__FILE__
) . '/sleep.pl 2>&1' );
61 sleep 1; # Make sure we start after the fork
62 my $command = dirname
(__FILE__
) . '/sleep.pl';
63 my $result = `$command 2>&1`;
65 like
( $result, qr{Unable to acquire the lock.*}, 'Exception found' );
69 system( dirname
(__FILE__
) . '/sleep.pl 2>&1' );
73 sleep 1; # Make sure we start after the fork
74 $command = dirname
(__FILE__
) . '/wait.pl';
75 $result = `$command 2>&1`;
77 is
( $result, 'YAY!', 'wait.pl successfully waits for the lock' );
80 { Koha
::Script
->new({ lock_name
=> 'blah' }); }
81 'Koha::Exceptions::MissingParameter',
82 'Not passing the "script" parameter makes it raise an exception';