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

(-)a/t/db_dependent/Circulation/ReturnClaims.t (-4 / +47 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 2;
20
use Test::More tests => 3;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::Warn;
22
use Test::Warn;
23
23
Lines 58-67 Koha::CirculationRules->set_rule( Link Here
58
58
59
$branch = $builder->build( { source => 'Branch' } )->{branchcode};
59
$branch = $builder->build( { source => 'Branch' } )->{branchcode};
60
60
61
subtest 'Test Koha::Checkout::claim_returned' => sub {
61
subtest 'Test Koha::Checkout::claim_returned, do not mark as returned' => sub {
62
    plan tests => 6;
62
    plan tests => 7;
63
63
64
    t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 );
64
    t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 );
65
    t::lib::Mocks::mock_preference( 'MarkLostItemsAsReturned', q{} );
65
    my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
66
    my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
66
    my $item   = $builder->build_object(
67
    my $item   = $builder->build_object(
67
        {
68
        {
Lines 90-95 subtest 'Test Koha::Checkout::claim_returned' => sub { Link Here
90
    is( $claim->notes, "Test note", "Claim notes match" );
91
    is( $claim->notes, "Test note", "Claim notes match" );
91
    is( $claim->created_by, $patron->id, "Claim created_by matches" );
92
    is( $claim->created_by, $patron->id, "Claim created_by matches" );
92
    ok( $claim->created_on, "Claim created_on is set" );
93
    ok( $claim->created_on, "Claim created_on is set" );
94
95
    my $checkout2 = Koha::Checkouts->find( $checkout->id );
96
    is( $checkout2->id, $checkout->id, "Item is still checked out to patron")
93
};
97
};
94
98
95
subtest 'Test Koha::Patronn::return_claims' => sub {
99
subtest 'Test Koha::Patronn::return_claims' => sub {
Lines 132-135 subtest 'Test Koha::Patronn::return_claims' => sub { Link Here
132
    ok( $claim->created_on, "Claim created_on is set" );
136
    ok( $claim->created_on, "Claim created_on is set" );
133
};
137
};
134
138
139
subtest 'Test Koha::Checkout::claim_returned, mark as returned' => sub {
140
    plan tests => 8;
141
142
    t::lib::Mocks::mock_preference( 'ClaimReturnedLostValue', 1 );
143
    t::lib::Mocks::mock_preference( 'MarkLostItemsAsReturned', q{claim_returned} );
144
    my $biblio = $builder->build_object( { class => 'Koha::Biblios' } );
145
    my $item   = $builder->build_object(
146
        {
147
            class => 'Koha::Items',
148
            value => {
149
                biblionumber => $biblio->biblionumber,
150
                notforloan   => 0,
151
                itemlost     => 0,
152
                withdrawn    => 0,
153
            }
154
        }
155
    );
156
    my $patron   = $builder->build_object( { class => 'Koha::Patrons' } );
157
    my $checkout = AddIssue( $patron->unblessed, $item->barcode );
158
159
    my $claim = $checkout->claim_returned(
160
        {
161
            created_by => $patron->id,
162
            notes      => "Test note",
163
        }
164
    );
165
166
    is( $claim->issue_id, $checkout->id, "Claim issue id matches" );
167
    is( $claim->itemnumber, $item->id, "Claim itemnumber matches" );
168
    is( $claim->borrowernumber, $patron->id, "Claim borrowernumber matches" );
169
    is( $claim->notes, "Test note", "Claim notes match" );
170
    is( $claim->created_by, $patron->id, "Claim created_by matches" );
171
    ok( $claim->created_on, "Claim created_on is set" );
172
173
    my $checkout2 = Koha::Checkouts->find( $checkout->id );
174
    is( $checkout2, undef, "Checkout is not longer in the issues table");
175
    $checkout2 = Koha::Old::Checkouts->find( $checkout->id );
176
    is( $checkout2->id, $checkout->id, "Checkout was foudn in the old_issues table");
177
};
178
135
$schema->storage->txn_rollback;
179
$schema->storage->txn_rollback;
136
- 

Return to bug 25552