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 => 125; |
21 |
use Test::More tests => 126; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
|
23 |
|
24 |
use Data::Dumper; |
24 |
use Data::Dumper; |
Lines 922-927
my ( $reused_itemnumber_1, $reused_itemnumber_2 );
Link Here
|
922 |
LostItem( $item_3->itemnumber, 'test', 0 ); |
922 |
LostItem( $item_3->itemnumber, 'test', 0 ); |
923 |
my $accountline = Koha::Account::Lines->find( { itemnumber => $item_3->itemnumber } ); |
923 |
my $accountline = Koha::Account::Lines->find( { itemnumber => $item_3->itemnumber } ); |
924 |
is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" ); |
924 |
is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" ); |
|
|
925 |
is( |
926 |
$accountline->description, |
927 |
sprintf( "%s %s %s", |
928 |
$item_3->biblio->title || '', |
929 |
$item_3->barcode || '', |
930 |
$item_3->itemcallnumber || '' ), |
931 |
"Account line description must not contain 'Lost Items ', but be title, barcode, itemcallnumber" |
932 |
); |
925 |
} |
933 |
} |
926 |
|
934 |
|
927 |
{ |
935 |
{ |
928 |
- |
|
|