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