Browse Source
Signed-off-by: Abbey Holt <aholt@dubuque.lib.ia.us> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>20.11.x
Agustin Moyano
4 years ago
committed by
Jonathan Druart
2 changed files with 182 additions and 0 deletions
@ -0,0 +1,178 @@ |
|||
#!/usr/bin/env 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 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. |
|||
# |
|||
# 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 => 4; |
|||
use Test::Mojo; |
|||
use t::lib::TestBuilder; |
|||
use t::lib::Mocks; |
|||
|
|||
use Koha::Database; |
|||
use Koha::ImportBatchProfiles; |
|||
|
|||
my $schema = Koha::Database->new->schema; |
|||
my $builder = t::lib::TestBuilder->new(); |
|||
|
|||
t::lib::Mocks::mock_preference( 'RESTBasicAuth', 1 ); |
|||
|
|||
my $t = Test::Mojo->new('Koha::REST::V1'); |
|||
|
|||
subtest 'list profiles' => sub { |
|||
plan tests => 4; |
|||
|
|||
$schema->storage->txn_begin; |
|||
|
|||
Koha::ImportBatchProfiles->search()->delete; |
|||
|
|||
my $ibp1 = $builder->build_object({ class => 'Koha::ImportBatchProfiles', value => { name => 'a_ibp' } }); |
|||
my $ibp2 = $builder->build_object({ class => 'Koha::ImportBatchProfiles', value => { name => 'b_ibp' } }); |
|||
|
|||
my $patron = $builder->build_object( |
|||
{ |
|||
class => 'Koha::Patrons', |
|||
value => { |
|||
flags => 1 |
|||
} |
|||
} |
|||
); |
|||
|
|||
my $pwd = 'thePassword123'; |
|||
$patron->set_password( { password => $pwd, skip_validation => 1 } ); |
|||
|
|||
my $uid = $patron->userid; |
|||
|
|||
$t->get_ok("//$uid:$pwd@/api/v1/import_batch_profiles?_order_by=+name") |
|||
->status_is(200) |
|||
->json_is('/0/name', $ibp1->name) |
|||
->json_is('/1/name', $ibp2->name); |
|||
|
|||
|
|||
$schema->storage->txn_rollback; |
|||
|
|||
}; |
|||
|
|||
subtest 'add profile' => sub { |
|||
plan tests => 5; |
|||
|
|||
$schema->storage->txn_begin; |
|||
|
|||
Koha::ImportBatchProfiles->search()->delete; |
|||
|
|||
my $patron = $builder->build_object( |
|||
{ |
|||
class => 'Koha::Patrons', |
|||
value => { |
|||
flags => 1 |
|||
} |
|||
} |
|||
); |
|||
|
|||
my $pwd = 'thePassword123'; |
|||
$patron->set_password( { password => $pwd, skip_validation => 1 } ); |
|||
|
|||
my $uid = $patron->userid; |
|||
my $post_data = { |
|||
name => 'profileName', |
|||
overlay_action => 'overlay_action' |
|||
}; |
|||
$t->post_ok("//$uid:$pwd@/api/v1/import_batch_profiles", json => $post_data) |
|||
->status_is(201) |
|||
->json_has('/profile_id') |
|||
->json_is('/name', $post_data->{name}) |
|||
->json_is('/overlay_action', $post_data->{overlay_action}); |
|||
|
|||
|
|||
$schema->storage->txn_rollback; |
|||
|
|||
}; |
|||
|
|||
subtest 'edit profile' => sub { |
|||
plan tests => 5; |
|||
|
|||
$schema->storage->txn_begin; |
|||
|
|||
Koha::ImportBatchProfiles->search()->delete; |
|||
|
|||
my $patron = $builder->build_object( |
|||
{ |
|||
class => 'Koha::Patrons', |
|||
value => { |
|||
flags => 1 |
|||
} |
|||
} |
|||
); |
|||
|
|||
my $pwd = 'thePassword123'; |
|||
$patron->set_password( { password => $pwd, skip_validation => 1 } ); |
|||
|
|||
my $uid = $patron->userid; |
|||
|
|||
my $ibp = $builder->build_object({class => 'Koha::ImportBatchProfiles', value => { name => 'someProfile' }}); |
|||
|
|||
my $post_data = { |
|||
name => 'theProfile' |
|||
}; |
|||
|
|||
$t->put_ok("//$uid:$pwd@/api/v1/import_batch_profiles/".$ibp->id, json => $post_data) |
|||
->status_is(200) |
|||
->json_is('/profile_id', $ibp->id) |
|||
->json_is('/name', $post_data->{name}); |
|||
|
|||
$ibp->discard_changes; |
|||
|
|||
is($ibp->name, $post_data->{name}, 'profile name should be the updated one'); |
|||
|
|||
|
|||
$schema->storage->txn_rollback; |
|||
|
|||
}; |
|||
|
|||
subtest 'delete profile' => sub { |
|||
plan tests => 3; |
|||
|
|||
$schema->storage->txn_begin; |
|||
|
|||
Koha::ImportBatchProfiles->search()->delete; |
|||
|
|||
my $patron = $builder->build_object( |
|||
{ |
|||
class => 'Koha::Patrons', |
|||
value => { |
|||
flags => 1 |
|||
} |
|||
} |
|||
); |
|||
|
|||
my $pwd = 'thePassword123'; |
|||
$patron->set_password( { password => $pwd, skip_validation => 1 } ); |
|||
|
|||
my $uid = $patron->userid; |
|||
|
|||
my $ibp = $builder->build_object({class => 'Koha::ImportBatchProfiles'}); |
|||
|
|||
$t->delete_ok("//$uid:$pwd@/api/v1/import_batch_profiles/".$ibp->id) |
|||
->status_is(204); |
|||
|
|||
my $search = Koha::ImportBatchProfiles->find($ibp->id); |
|||
|
|||
is($search, undef, 'profile should be erased'); |
|||
|
|||
|
|||
$schema->storage->txn_rollback; |
|||
|
|||
}; |
Loading…
Reference in new issue