|
Lines 18-24
Link Here
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
use utf8; |
19 |
use utf8; |
| 20 |
|
20 |
|
| 21 |
use Test::More tests => 126; |
21 |
use Test::More tests => 127; |
| 22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
| 23 |
|
23 |
|
| 24 |
use Data::Dumper; |
24 |
use Data::Dumper; |
|
Lines 888-893
my ( $reused_itemnumber_1, $reused_itemnumber_2 );
Link Here
|
| 888 |
LostItem( $item_3->itemnumber, 'test', 0 ); |
888 |
LostItem( $item_3->itemnumber, 'test', 0 ); |
| 889 |
my $accountline = Koha::Account::Lines->find( { itemnumber => $item_3->itemnumber } ); |
889 |
my $accountline = Koha::Account::Lines->find( { itemnumber => $item_3->itemnumber } ); |
| 890 |
is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" ); |
890 |
is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" ); |
|
|
891 |
is( |
| 892 |
$accountline->description, |
| 893 |
sprintf( "%s %s %s", |
| 894 |
$item_3->biblio->title || '', |
| 895 |
$item_3->barcode || '', |
| 896 |
$item_3->itemcallnumber || '' ), |
| 897 |
"Account line description must not contain 'Lost Items ', but be title, barcode, itemcallnumber" |
| 898 |
); |
| 891 |
} |
899 |
} |
| 892 |
|
900 |
|
| 893 |
{ |
901 |
{ |
| 894 |
- |
|
|