8e86b5e093
This Commit is at the heart of adding an interlibrary loans framework for Koha. The framework does not prescribe a particular workflow. Instead it provides a general framework that can be extended & implemented by individual backends whose responsibility it is to implement a specific workflow. The module is largely self-sufficient: it adds new tables to the Koha database and touches only a few files in the Koha source tree. Primarily, we add our files to the Makefile and the koha-conf.xml, define ill paths for the REST API, and introduce links from the main intranet, opac pages & user permissions. Outside of this we simply add new files & functionality. Signed-off-by: Magnus Enger <magnus@libriotech.no> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Benjamin Rokseth <benjamin.rokseth@kul.oslo.kommune.no> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
63 lines
1.9 KiB
Perl
63 lines
1.9 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# 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 2 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.
|
|
#
|
|
# 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
|
|
#
|
|
|
|
use Modern::Perl;
|
|
|
|
use File::Basename qw/basename/;
|
|
use Koha::Database;
|
|
use Koha::Patrons;
|
|
use t::lib::TestBuilder;
|
|
|
|
use Test::More tests => 3;
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
use_ok('Koha::Illrequestattribute');
|
|
use_ok('Koha::Illrequestattributes');
|
|
|
|
subtest 'Basic object tests' => sub {
|
|
|
|
plan tests => 5;
|
|
|
|
$schema->storage->txn_begin;
|
|
|
|
my $builder = t::lib::TestBuilder->new;
|
|
|
|
my $illrqattr = $builder->build({ source => 'Illrequestattribute' });
|
|
|
|
my $illrqattr_obj = Koha::Illrequestattributes->find(
|
|
$illrqattr->{illrequest_id},
|
|
$illrqattr->{type}
|
|
);
|
|
isa_ok($illrqattr_obj, 'Koha::Illrequestattribute',
|
|
"Correctly create and load an illrequestattribute object.");
|
|
is($illrqattr_obj->illrequest_id, $illrqattr->{illrequest_id},
|
|
"Illrequest_id getter works.");
|
|
is($illrqattr_obj->type, $illrqattr->{type},
|
|
"Type getter works.");
|
|
is($illrqattr_obj->value, $illrqattr->{value},
|
|
"Value getter works.");
|
|
|
|
$illrqattr_obj->delete;
|
|
|
|
is(Koha::Illrequestattributes->search->count, 0,
|
|
"No attributes found after delete.");
|
|
|
|
$schema->storage->txn_rollback;
|
|
};
|
|
|
|
1;
|