# This file is part of Koha.
#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 3 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Test::More tests => 1;
+
use Test::MockModule;
use Test::MockObject;
use Test::Mojo;
-use Test::Warn;
use t::lib::TestBuilder;
use t::lib::Mocks;
-use C4::Auth;
use Koha::Illrequests;
+use Koha::DateUtils qw( format_sqldatetime );
my $schema = Koha::Database->new->schema;
my $builder = t::lib::TestBuilder->new;
-t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' );
+t::lib::Mocks::mock_preference( 'RESTBasicAuth', 1 );
-my $remote_address = '127.0.0.1';
-my $t = Test::Mojo->new('Koha::REST::V1');
+my $t = Test::Mojo->new('Koha::REST::V1');
subtest 'list() tests' => sub {
- plan tests => 18;
+ plan tests => 30;
# Mock ILLBackend (as object)
my $backend = Test::MockObject->new;
$schema->storage->txn_begin;
Koha::Illrequests->search->delete;
- # ill => 22 (userflags.sql)
- my ( $borrowernumber, $session_id ) = create_user_and_session({ authorized => 22 });
+
+ # create an authorized user
+ my $patron = $builder->build_object({
+ class => 'Koha::Patrons',
+ value => { flags => 2 ** 22 } # 22 => ill
+ });
+ my $password = 'thePassword123';
+ $patron->set_password({ password => $password, skip_validation => 1 });
+ my $userid = $patron->userid;
## Authorized user tests
# No requests, so empty array should be returned
- my $tx = $t->ua->build_tx( GET => '/api/v1/illrequests' );
- $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
- $tx->req->env( { REMOTE_ADDR => $remote_address } );
- $t->request_ok($tx)->status_is(200)->json_is( [] );
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests" )
+ ->status_is(200)
+ ->json_is( [] );
- my $library = $builder->build_object( { class => 'Koha::Libraries' } );
- my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
+ my $library = $builder->build_object( { class => 'Koha::Libraries' } );
+ my $patron_1 = $builder->build_object( { class => 'Koha::Patrons' } );
+ my $patron_2 = $builder->build_object( { class => 'Koha::Patrons' } );
# Create an ILL request
my $illrequest = $builder->build_object(
value => {
backend => 'Mock',
branchcode => $library->branchcode,
- borrowernumber => $patron->borrowernumber
+ borrowernumber => $patron_1->borrowernumber,
+ status => 'STATUS1',
}
}
);
my $response = $illrequest->unblessed;
$response->{id_prefix} = $illrequest->id_prefix;
+ my $req_formatted = add_formatted($response);
+
# One illrequest created, should get returned
- $tx = $t->ua->build_tx( GET => '/api/v1/illrequests' );
- $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
- $tx->req->env( { REMOTE_ADDR => $remote_address } );
- $t->request_ok($tx)->status_is(200)->json_is( [$response] );
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests" )
+ ->status_is(200)
+ ->json_is( [ $req_formatted ] );
# One illrequest created, returned with augmented data
- $tx = $t->ua->build_tx( GET =>
- '/api/v1/illrequests?embed=patron,library,capabilities,metadata' );
- $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
- $tx->req->env( { REMOTE_ADDR => $remote_address } );
- $t->request_ok($tx)->status_is(200)
- ->json_has( '/0/patron', 'patron embedded' )
- ->json_has( '/0/capabilities', 'capabilities embedded' )
- ->json_has( '/0/library', 'library embedded' )
- ->json_has( '/0/metadata', 'metadata embedded' );
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests?embed=patron,library,capabilities,metadata,requested_partners" )
+ ->status_is(200)
+ ->json_has( '/0/patron', 'patron embedded' )
+ ->json_is( '/0/patron/patron_id', $patron_1->borrowernumber, 'The right patron is embeded')
+ ->json_has( '/0/requested_partners', 'requested_partners embedded' )
+ ->json_has( '/0/capabilities', 'capabilities embedded' )
+ ->json_has( '/0/library', 'library embedded' )
+ ->json_has( '/0/metadata', 'metadata embedded' )
+ ->json_hasnt( '/1', 'Only one request was created' );
# Create another ILL request
my $illrequest2 = $builder->build_object(
value => {
backend => 'Mock',
branchcode => $library->branchcode,
- borrowernumber => $patron->borrowernumber
+ borrowernumber => $patron_2->borrowernumber,
+ status => 'STATUS2',
}
}
);
my $response2 = $illrequest2->unblessed;
$response2->{id_prefix} = $illrequest2->id_prefix;
+ my $req2_formatted = add_formatted($response2);
+
# Two illrequest created, should get returned
- $tx = $t->ua->build_tx( GET => '/api/v1/illrequests' );
- $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
- $tx->req->env( { REMOTE_ADDR => $remote_address } );
- $t->request_ok($tx)->status_is(200)
- ->json_is( [ $response, $response2 ] );
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests" )
+ ->status_is(200)
+ ->json_is( [ $req_formatted, $req2_formatted ] );
# Warn on unsupported query parameter
- $tx = $t->ua->build_tx( GET => '/api/v1/illrequests?request_blah=blah' );
- $tx->req->cookies( { name => 'CGISESSID', value => $session_id } );
- $tx->req->env( { REMOTE_ADDR => $remote_address } );
- $t->request_ok($tx)->status_is(400)->json_is(
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests?request_blah=blah" )
+ ->status_is(400)
+ ->json_is(
[{ path => '/query/request_blah', message => 'Malformed query string'}]
);
- $schema->storage->txn_rollback;
-};
+ # Test the borrowernumber parameter
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests?borrowernumber=" . $patron_2->borrowernumber )
+ ->status_is(200)
+ ->json_is( [ $response2 ] );
-sub create_user_and_session {
+ # Test the ILLHiddenRequestStatuses syspref
+ t::lib::Mocks::mock_preference( 'ILLHiddenRequestStatuses', 'STATUS1' );
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests" )
+ ->status_is(200)
+ ->json_is( [ $req2_formatted ] );
- my $args = shift;
- my $dbh = C4::Context->dbh;
+ t::lib::Mocks::mock_preference( 'ILLHiddenRequestStatuses', 'STATUS2' );
+ $t->get_ok( "//$userid:$password@/api/v1/illrequests" )
+ ->status_is(200)
+ ->json_is( [ $req_formatted ] );
- my $flags = ( $args->{authorized} ) ? 2**$args->{authorized} : 0;
+ $schema->storage->txn_rollback;
+};
- my $user = $builder->build(
- {
- source => 'Borrower',
- value => {
- flags => $flags
- }
+sub add_formatted {
+ my $req = shift;
+ my @format_dates = ( 'placed', 'updated', 'completed' );
+ # We need to embellish the request with properties that the API
+ # controller calculates on the fly
+ # Create new "formatted" columns for each date column
+ # that needs formatting
+ foreach my $field(@format_dates) {
+ if (defined $req->{$field}) {
+ $req->{$field . "_formatted"} = format_sqldatetime(
+ $req->{$field},
+ undef,
+ undef,
+ 1
+ );
}
- );
-
- # Create a session for the authorized user
- my $session = C4::Auth::get_session('');
- $session->param( 'number', $user->{borrowernumber} );
- $session->param( 'id', $user->{userid} );
- $session->param( 'ip', '127.0.0.1' );
- $session->param( 'lasttime', time() );
- $session->flush;
-
- return ( $user->{borrowernumber}, $session->id );
+ }
+ return $req;
}
-
-1;