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 |
- |
|
|