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

(-)a/t/db_dependent/Items.t (-1 / +75 lines)
Lines 147-152 subtest 'ModItem tests' => sub { Link Here
147
147
148
};
148
};
149
149
150
subtest 'ModItemTransfer tests' => sub {
151
    plan tests => 8;
152
153
    $schema->storage->txn_begin;
154
155
    my $builder = t::lib::TestBuilder->new;
156
    my $item    = $builder->build_object(
157
        {
158
            class => 'Koha::Items',
159
            value  => {
160
                itemlost     => 0,
161
                damaged      => 0,
162
                withdrawn    => 0,
163
                itemlost_on  => undef,
164
                damaged_on   => undef,
165
                withdrawn_on => undef,
166
            }
167
        }
168
    )->store;
169
170
    my $library1 = $builder->build(
171
        {
172
            source => 'Branch',
173
        }
174
    );
175
    my $library2 = $builder->build(
176
        {
177
            source => 'Branch',
178
        }
179
    );
180
181
    ModItemTransfer( $item->itemnumber, $library1->{branchcode},
182
        $library2->{branchcode} );
183
184
    my $transfers = Koha::Item::Transfers->search(
185
        {
186
            itemnumber => $item->itemnumber
187
        }
188
    );
189
190
    is( $transfers->count, 1, "One transfer created with ModItemTransfer" );
191
    $item->discard_changes;
192
    is($item->holdingbranch, $library1->{branchcode}, "Items holding branch was updated to frombranch");
193
194
    ModItemTransfer( $item->itemnumber, $library2->{branchcode},
195
        $library1->{branchcode} );
196
    $transfers = Koha::Item::Transfers->search(
197
        { itemnumber => $item->itemnumber, },
198
        { order_by   => { '-asc' => 'branchtransfer_id' } }
199
    );
200
201
    is($transfers->count, 2, "Second transfer recorded on second call of ModItemTransfer");
202
    my $transfer1 = $transfers->next;
203
    my $transfer2 = $transfers->next;
204
    isnt($transfer1->datearrived, undef, "First transfer marked as completed by ModItemTransfer");
205
    like($transfer1->comments,qr/^Canceled/, "First transfer contains 'Canceled' comment");
206
    is($transfer2->datearrived, undef, "Second transfer is now the active transfer");
207
    $item->discard_changes;
208
    is($item->holdingbranch, $library2->{branchcode}, "Items holding branch was updated to frombranch");
209
210
    # Check 'reason' is populated when passed
211
    ModItemTransfer( $item->itemnumber, $library2->{branchcode},
212
        $library1->{branchcode}, "Manual" );
213
214
    $transfers = Koha::Item::Transfers->search(
215
        { itemnumber => $item->itemnumber, },
216
        { order_by   => { '-desc' => 'branchtransfer_id' } }
217
    );
218
219
    my $transfer3 = $transfers->next;
220
    is($transfer3->reason, 'Manual', "Reason set via ModItemTransfer");
221
222
    $schema->storage->txn_rollback;
223
};
224
150
subtest 'GetHiddenItemnumbers tests' => sub {
225
subtest 'GetHiddenItemnumbers tests' => sub {
151
226
152
    plan tests => 11;
227
    plan tests => 11;
153
- 

Return to bug 24298