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 {
53 # Launch the sleep script
56 system( dirname(__FILE__) . '/sleep.pl 2>&1' );
60 sleep 1; # Make sure we start after the fork
61 my $command = dirname(__FILE__) . '/sleep.pl';
62 my $result = `$command 2>&1`;
64 like( $result, qr{Unable to acquire the lock.*}, 'Exception found' );
67 { Koha::Script->new({ lock_name => 'blah' }); }
68 'Koha::Exceptions::MissingParameter',
69 'Not passing the "script" parameter makes it raise an exception';