3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 use Test::More tests => 1;
24 use t::lib::TestBuilder;
28 use Koha::StockRotationStages;
30 my $schema = Koha::Database->new->schema;
31 my $builder = t::lib::TestBuilder->new;
33 # FIXME: sessionStorage defaults to mysql, but it seems to break transaction handling
34 # this affects the other REST api tests
35 t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' );
37 my $remote_address = '127.0.0.1';
38 my $t = Test::Mojo->new('Koha::REST::V1');
40 subtest 'move() tests' => sub {
44 $schema->storage->txn_begin;
46 my ( $unauthorized_borrowernumber, $unauthorized_session_id ) =
47 create_user_and_session( { authorized => 0 } );
48 my ( $authorized_borrowernumber, $authorized_session_id ) =
49 create_user_and_session( { authorized => 1 } );
51 my $library1 = $builder->build({ source => 'Branch' });
52 my $library2 = $builder->build({ source => 'Branch' });
53 my $rota = $builder->build({ source => 'Stockrotationrota' });
54 my $stage1 = $builder->build({
55 source => 'Stockrotationstage',
57 branchcode_id => $library1->{branchcode},
58 rota_id => $rota->{rota_id},
61 my $stage2 = $builder->build({
62 source => 'Stockrotationstage',
64 branchcode_id => $library2->{branchcode},
65 rota_id => $rota->{rota_id},
68 my $rota_id = $rota->{rota_id};
69 my $stage1_id = $stage1->{stage_id};
71 # Unauthorized attempt to update
72 my $tx = $t->ua->build_tx(
73 PUT => "/api/v1/rotas/$rota_id/stages/$stage1_id/position" =>
77 { name => 'CGISESSID', value => $unauthorized_session_id } );
78 $tx->req->env( { REMOTE_ADDR => $remote_address } );
79 $t->request_ok($tx)->status_is(403);
81 # Invalid attempt to move a stage on a non-existant rota
82 $tx = $t->ua->build_tx(
83 PUT => "/api/v1/rotas/99999999/stages/$stage1_id/position" =>
87 { name => 'CGISESSID', value => $authorized_session_id } );
88 $tx->req->env( { REMOTE_ADDR => $remote_address } );
89 $t->request_ok($tx)->status_is(404)
90 ->json_is( '/error' => "Not found - Invalid rota or stage ID" );
92 # Invalid attempt to move an non-existant stage
93 $tx = $t->ua->build_tx(
94 PUT => "/api/v1/rotas/$rota_id/stages/999999999/position" =>
98 { name => 'CGISESSID', value => $authorized_session_id } );
99 $tx->req->env( { REMOTE_ADDR => $remote_address } );
100 $t->request_ok($tx)->status_is(404)
101 ->json_is( '/error' => "Not found - Invalid rota or stage ID" );
103 # Invalid attempt to move stage to current position
104 my $curr_position = $stage1->{position};
105 $tx = $t->ua->build_tx(
106 PUT => "/api/v1/rotas/$rota_id/stages/$stage1_id/position" =>
107 json => $curr_position
110 { name => 'CGISESSID', value => $authorized_session_id } );
111 $tx->req->env( { REMOTE_ADDR => $remote_address } );
112 $t->request_ok($tx)->status_is(400)
113 ->json_is( '/error' => "Bad request - new position invalid" );
115 # Invalid attempt to move stage to invalid position
116 $tx = $t->ua->build_tx(
117 PUT => "/api/v1/rotas/$rota_id/stages/$stage1_id/position" =>
121 { name => 'CGISESSID', value => $authorized_session_id } );
122 $tx->req->env( { REMOTE_ADDR => $remote_address } );
123 $t->request_ok($tx)->status_is(400)
124 ->json_is( '/error' => "Bad request - new position invalid" );
126 # Valid, authorised move
127 $tx = $t->ua->build_tx(
128 PUT => "/api/v1/rotas/$rota_id/stages/$stage1_id/position" =>
132 { name => 'CGISESSID', value => $authorized_session_id } );
133 $tx->req->env( { REMOTE_ADDR => $remote_address } );
134 $t->request_ok($tx)->status_is(200);
136 $schema->storage->txn_rollback;
139 sub create_user_and_session {
142 my $flags = ( $args->{authorized} ) ? $args->{authorized} : 0;
143 my $dbh = C4::Context->dbh;
145 my $user = $builder->build(
147 source => 'Borrower',
154 # Create a session for the authorized user
155 my $session = C4::Auth::get_session('');
156 $session->param( 'number', $user->{borrowernumber} );
157 $session->param( 'id', $user->{userid} );
158 $session->param( 'ip', '127.0.0.1' );
159 $session->param( 'lasttime', time() );
162 if ( $args->{authorized} ) {
164 INSERT INTO user_permissions (borrowernumber,module_bit,code)
165 VALUES (?,3,'parameters_remaining_permissions')", undef,
166 $user->{borrowernumber} );
169 return ( $user->{borrowernumber}, $session->id );