|
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 => 124; |
21 |
use Test::More tests => 125; |
| 22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
| 23 |
|
23 |
|
| 24 |
use Data::Dumper; |
24 |
use Data::Dumper; |
|
Lines 881-886
my ( $reused_itemnumber_1, $reused_itemnumber_2 );
Link Here
|
| 881 |
LostItem( $item_3->itemnumber, 'test', 0 ); |
881 |
LostItem( $item_3->itemnumber, 'test', 0 ); |
| 882 |
my $accountline = Koha::Account::Lines->find( { itemnumber => $item_3->itemnumber } ); |
882 |
my $accountline = Koha::Account::Lines->find( { itemnumber => $item_3->itemnumber } ); |
| 883 |
is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" ); |
883 |
is( $accountline->issue_id, $checkout->id, "Issue id added for lost replacement fee charge" ); |
|
|
884 |
is( |
| 885 |
$accountline->description, |
| 886 |
sprintf( "%s %s %s", |
| 887 |
$item_3->biblio->title || '', |
| 888 |
$item_3->barcode || '', |
| 889 |
$item_3->itemcallnumber || '' ), |
| 890 |
"Account line description must not contain 'Lost Items ', but be title, barcode, itemcallnumber" |
| 891 |
); |
| 884 |
} |
892 |
} |
| 885 |
|
893 |
|
| 886 |
{ |
894 |
{ |
| 887 |
- |
|
|