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

(-)a/t/db_dependent/SIP/Message.t (-2 / +58 lines)
Lines 21-27 Link Here
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
use Test::More tests => 8;
24
use Test::More tests => 9;
25
use Test::MockObject;
25
use Test::MockObject;
26
use Test::MockModule;
26
use Test::MockModule;
27
use Test::Warn;
27
use Test::Warn;
Lines 198-203 subtest "Test build_additional_item_fields_string" => sub { Link Here
198
    $schema->storage->txn_rollback;
198
    $schema->storage->txn_rollback;
199
};
199
};
200
200
201
subtest "Test cr_item_field" => sub {
202
    plan tests => 1;
203
204
    my $builder = t::lib::TestBuilder->new();
205
    my $branchcode  = $builder->build({ source => 'Branch' })->{branchcode};
206
    my $branchcode2 = $builder->build({ source => 'Branch' })->{branchcode};
207
    my ( $response, $findpatron );
208
    my $mocks = create_mocks( \$response, \$findpatron, \$branchcode );
209
210
    # create some data
211
    my $patron1 = $builder->build({
212
        source => 'Borrower',
213
        value  => {
214
            password => hash_password( PATRON_PW ),
215
        },
216
    });
217
    my $card1 = $patron1->{cardnumber};
218
    my $sip_patron1 = C4::SIP::ILS::Patron->new( $card1 );
219
    $findpatron = $sip_patron1;
220
    my $item_object = $builder->build_sample_item({
221
        damaged => 0,
222
        withdrawn => 0,
223
        itemlost => 0,
224
        restricted => 0,
225
        homebranch => $branchcode,
226
        holdingbranch => $branchcode,
227
    });
228
229
    my $mockILS = $mocks->{ils};
230
    my $server = { ils => $mockILS, account => {} };
231
    $mockILS->mock( 'institution', sub { $branchcode; } );
232
    $mockILS->mock( 'supports', sub { return; } );
233
    $mockILS->mock( 'checkin', sub {
234
        shift;
235
        return C4::SIP::ILS->checkin(@_);
236
    });
237
    my $today = dt_from_string;
238
239
    my $respcode;
240
241
    # Not checked out, toggle option checked_in_ok
242
    my $siprequest = CHECKIN . 'N' . 'YYYYMMDDZZZZHHMMSS' .
243
        siprequestdate( $today->clone->add( days => 1) ) .
244
        FID_INST_ID . $branchcode . '|'.
245
        FID_ITEM_ID . $item_object->barcode . '|' .
246
        FID_TERMINAL_PWD . 'ignored' . '|';
247
    undef $response;
248
    my $msg = C4::SIP::Sip::MsgType->new( $siprequest, 0 );
249
250
    $server->{account}->{cr_item_field} = 'itemnumber';
251
252
    $msg->handle_checkin( $server );
253
254
    my $id = $item_object->id;
255
    ok( $response =~ m/CR$id/, "Found correct CR field in response");
256
};
257
201
subtest 'Patron info summary > 5 should not crash server' => sub {
258
subtest 'Patron info summary > 5 should not crash server' => sub {
202
259
203
    my $schema = Koha::Database->new->schema;
260
    my $schema = Koha::Database->new->schema;
204
- 

Return to bug 21979