Bug 31634: Add part_number and part_name in opac result browser
[koha.git] / t / Koha / Script.t
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
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.
9 #
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.
14 #
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>.
17
18 use Modern::Perl;
19
20 use Test::More tests => 4;
21 use Test::Exception;
22
23 BEGIN { use_ok('Koha::Script') }
24
25 use File::Basename;
26
27 use C4::Context;
28
29 my $userenv = C4::Context->userenv;
30 is_deeply(
31     $userenv,
32     {
33         'surname'       => 'CLI',
34         'id'            => undef,
35         'flags'         => undef,
36         'cardnumber'    => undef,
37         'firstname'     => 'CLI',
38         'branchname'    => undef,
39         'emailaddress'  => undef,
40         'number'        => undef,
41         'shibboleth'    => undef,
42         'branch'        => undef,
43         'desk_id'       => undef,
44         'desk_name'     => undef,
45         'register_id'   => undef,
46         'register_name' => undef,
47     },
48     "Context userenv set correctly with no flags"
49 );
50
51 my $interface = C4::Context->interface;
52 is( $interface, 'commandline', "Context interface set correctly with no flags" );
53
54 subtest 'lock_exec() tests' => sub {
55
56     plan tests => 3;
57
58     # Launch the sleep script
59     my $pid = fork();
60     if ( $pid == 0 ) {
61         system( dirname(__FILE__) . '/sleep.pl 2>&1' );
62         exit;
63     }
64
65     sleep 1; # Make sure we start after the fork
66     my $command = dirname(__FILE__) . '/sleep.pl';
67     my $result  = `$command 2>&1`;
68
69     like( $result, qr{Unable to acquire the lock.*}, 'Exception found' );
70
71     $pid = fork();
72     if ( $pid == 0 ) {
73         system( dirname(__FILE__) . '/sleep.pl 2>&1' );
74         exit;
75     }
76
77     sleep 1; # Make sure we start after the fork
78     $command = dirname(__FILE__) . '/wait.pl';
79     $result  = `$command 2>&1`;
80
81     is( $result, 'YAY!', 'wait.pl successfully waits for the lock' );
82
83     throws_ok
84         { Koha::Script->new({ lock_name => 'blah' }); }
85         'Koha::Exceptions::MissingParameter',
86         'Not passing the "script" parameter makes it raise an exception';
87 };
88
89 1;