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

(-)a/t/db_dependent/Hold.t (-2 / +51 lines)
Lines 29-35 use Koha::Item; Link Here
29
use Koha::DateUtils qw( dt_from_string );
29
use Koha::DateUtils qw( dt_from_string );
30
use t::lib::TestBuilder;
30
use t::lib::TestBuilder;
31
31
32
use Test::More tests => 35;
32
use Test::More tests => 36;
33
use Test::Exception;
33
use Test::Exception;
34
use Test::Warn;
34
use Test::Warn;
35
35
Lines 386-388 subtest 'suspend() tests' => sub { Link Here
386
386
387
    $schema->storage->txn_rollback;
387
    $schema->storage->txn_rollback;
388
};
388
};
389
- 
389
390
subtest 'can_change_branch_opac() tests' => sub {
391
392
    plan tests => 8;
393
394
    $schema->storage->txn_begin;
395
396
    my $hold = $builder->build_object(
397
        {   class => 'Koha::Holds',
398
            value => { found => undef, suspend => 0, suspend_until => undef, waitingdate => undef }
399
        }
400
    );
401
402
    t::lib::Mocks::mock_preference( 'OPACAllowUserToChangeBranch', '' );
403
    $hold->found(undef);
404
    is( $hold->can_change_branch_opac, 0, "Pending hold pickup can't be changed (No change allowed)" );
405
406
    $hold->found('T');
407
    is( $hold->can_change_branch_opac, 0, "In transit hold pickup can't be changed (No change allowed)" );
408
409
    $hold->found('W');
410
    is( $hold->can_change_branch_opac, 0, "Waiting hold pickup can't be changed (No change allowed)" );
411
412
    $hold->found(undef);
413
    $dt = dt_from_string();
414
415
    $hold->suspend_hold( $dt );
416
    is( $hold->can_change_branch_opac, 0, "Suspended hold pickup can't be changed (No change allowed)" );
417
    $hold->resume();
418
419
    t::lib::Mocks::mock_preference( 'OPACAllowUserToChangeBranch', 'pending,intransit,suspended' );
420
    $hold->found(undef);
421
    is( $hold->can_change_branch_opac, 1, "Pending hold pickup can be changed (pending,intransit,suspended allowed)" );
422
423
    $hold->found('T');
424
    is( $hold->can_change_branch_opac, 1, "In transit hold pickup can be changed (pending,intransit,suspended allowed)" );
425
426
    $hold->found('W');
427
    is( $hold->can_change_branch_opac, 0, "Waiting hold pickup can't be changed (pending,intransit,suspended allowed)" );
428
429
    $hold->found(undef);
430
    $dt = dt_from_string();
431
    $hold->suspend_hold( $dt );
432
    is( $hold->can_change_branch_opac, 1, "Suspended hold pickup can be changed (pending,intransit,suspended allowed)" );
433
    $hold->resume();
434
435
436
    $schema->storage->txn_rollback;
437
438
};

Return to bug 14783