View | Details | Raw Unified | Return to bug 23019
Collapse All | Expand All

(-)a/t/db_dependent/ImportBatch.t (+4 lines)
Lines 68-73 delete $importbatch2->{upload_timestamp}; Link Here
68
delete $importbatch2->{import_batch_id};
68
delete $importbatch2->{import_batch_id};
69
delete $importbatch2->{num_records};
69
delete $importbatch2->{num_records};
70
delete $importbatch2->{num_items};
70
delete $importbatch2->{num_items};
71
delete $importbatch2->{profile_id};
72
delete $importbatch2->{profile};
71
73
72
is_deeply( $importbatch2, $sample_import_batch2,
74
is_deeply( $importbatch2, $sample_import_batch2,
73
    "GetImportBatch returns the right informations about $sample_import_batch2" );
75
    "GetImportBatch returns the right informations about $sample_import_batch2" );
Lines 77-82 delete $importbatch1->{upload_timestamp}; Link Here
77
delete $importbatch1->{import_batch_id};
79
delete $importbatch1->{import_batch_id};
78
delete $importbatch1->{num_records};
80
delete $importbatch1->{num_records};
79
delete $importbatch1->{num_items};
81
delete $importbatch1->{num_items};
82
delete $importbatch1->{profile_id};
83
delete $importbatch1->{profile};
80
84
81
is_deeply( $importbatch1, $sample_import_batch1,
85
is_deeply( $importbatch1, $sample_import_batch1,
82
    "GetImportBatch returns the right informations about $sample_import_batch1" );
86
    "GetImportBatch returns the right informations about $sample_import_batch1" );
(-)a/t/db_dependent/api/v1/import_batch_profiles.t (-1 / +178 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/env 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::Mojo;
22
use t::lib::TestBuilder;
23
use t::lib::Mocks;
24
25
use Koha::Database;
26
use Koha::ImportBatchProfiles;
27
28
my $schema  = Koha::Database->new->schema;
29
my $builder = t::lib::TestBuilder->new();
30
31
t::lib::Mocks::mock_preference( 'RESTBasicAuth', 1 );
32
33
my $t = Test::Mojo->new('Koha::REST::V1');
34
35
subtest 'list profiles' => sub {
36
    plan tests => 4;
37
38
    $schema->storage->txn_begin;
39
40
    Koha::ImportBatchProfiles->search()->delete;
41
42
    my $ibp1 = $builder->build_object({ class => 'Koha::ImportBatchProfiles', value => { name => 'a_ibp' } });
43
    my $ibp2 = $builder->build_object({ class => 'Koha::ImportBatchProfiles', value => { name => 'b_ibp' } });
44
45
    my $patron = $builder->build_object(
46
        {
47
            class => 'Koha::Patrons',
48
            value => {
49
                flags => 1
50
            }
51
        }
52
    );
53
54
    my $pwd = 'thePassword123';
55
    $patron->set_password( { password => $pwd, skip_validation => 1 } );
56
57
    my $uid = $patron->userid;
58
59
    $t->get_ok("//$uid:$pwd@/api/v1/import-batch-profiles?_order_by=+name")
60
      ->status_is(200)
61
      ->json_is('/0/name', $ibp1->name)
62
      ->json_is('/1/name', $ibp2->name);
63
64
65
    $schema->storage->txn_rollback;
66
67
};
68
69
subtest 'add profile' => sub {
70
    plan tests => 5;
71
72
    $schema->storage->txn_begin;
73
74
    Koha::ImportBatchProfiles->search()->delete;
75
76
    my $patron = $builder->build_object(
77
        {
78
            class => 'Koha::Patrons',
79
            value => {
80
                flags => 1
81
            }
82
        }
83
    );
84
85
    my $pwd = 'thePassword123';
86
    $patron->set_password( { password => $pwd, skip_validation => 1 } );
87
88
    my $uid = $patron->userid;
89
    my $post_data = {
90
        name => 'profileName',
91
        overlay_action => 'overlay_action'
92
    };
93
    $t->post_ok("//$uid:$pwd@/api/v1/import-batch-profiles", json => $post_data)
94
      ->status_is(201)
95
      ->json_has('/profile_id')
96
      ->json_is('/name', $post_data->{name})
97
      ->json_is('/overlay_action', $post_data->{overlay_action});
98
99
100
    $schema->storage->txn_rollback;
101
102
};
103
104
subtest 'edit profile' => sub {
105
    plan tests => 5;
106
107
    $schema->storage->txn_begin;
108
109
    Koha::ImportBatchProfiles->search()->delete;
110
111
    my $patron = $builder->build_object(
112
        {
113
            class => 'Koha::Patrons',
114
            value => {
115
                flags => 1
116
            }
117
        }
118
    );
119
120
    my $pwd = 'thePassword123';
121
    $patron->set_password( { password => $pwd, skip_validation => 1 } );
122
123
    my $uid = $patron->userid;
124
125
    my $ibp = $builder->build_object({class => 'Koha::ImportBatchProfiles', value => { name => 'someProfile' }});
126
127
    my $post_data = {
128
        name => 'theProfile'
129
    };
130
131
    $t->put_ok("//$uid:$pwd@/api/v1/import-batch-profiles/".$ibp->id, json => $post_data)
132
      ->status_is(200)
133
      ->json_is('/profile_id', $ibp->id)
134
      ->json_is('/name', $post_data->{name});
135
136
    $ibp->discard_changes;
137
138
    is($ibp->name, $post_data->{name}, 'profile name should be the updated one');
139
140
141
    $schema->storage->txn_rollback;
142
143
};
144
145
subtest 'delete profile' => sub {
146
    plan tests => 3;
147
148
    $schema->storage->txn_begin;
149
150
    Koha::ImportBatchProfiles->search()->delete;
151
152
    my $patron = $builder->build_object(
153
        {
154
            class => 'Koha::Patrons',
155
            value => {
156
                flags => 1
157
            }
158
        }
159
    );
160
161
    my $pwd = 'thePassword123';
162
    $patron->set_password( { password => $pwd, skip_validation => 1 } );
163
164
    my $uid = $patron->userid;
165
166
    my $ibp = $builder->build_object({class => 'Koha::ImportBatchProfiles'});
167
168
    $t->delete_ok("//$uid:$pwd@/api/v1/import-batch-profiles/".$ibp->id)
169
      ->status_is(204);
170
171
    my $search = Koha::ImportBatchProfiles->find($ibp->id);
172
173
    is($search, undef, 'profile should be erased');
174
175
176
    $schema->storage->txn_rollback;
177
178
};

Return to bug 23019