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