Lines 30-36
use Koha::Database;
Link Here
|
30 |
|
30 |
|
31 |
use t::lib::TestBuilder; |
31 |
use t::lib::TestBuilder; |
32 |
|
32 |
|
33 |
use Test::More tests => 83; |
33 |
use Test::More tests => 84; |
34 |
|
34 |
|
35 |
BEGIN { |
35 |
BEGIN { |
36 |
use_ok('C4::Circulation'); |
36 |
use_ok('C4::Circulation'); |
Lines 870-873
C4::Context->dbh->do("DELETE FROM accountlines");
Link Here
|
870 |
is( $error, 'onsite_checkout', 'A correct error code should be returned by CanBookBeRenewed for on-site checkout' ); |
870 |
is( $error, 'onsite_checkout', 'A correct error code should be returned by CanBookBeRenewed for on-site checkout' ); |
871 |
} |
871 |
} |
872 |
|
872 |
|
|
|
873 |
{ |
874 |
my $library = $builder->build({ source => 'Branch' }); |
875 |
|
876 |
my $biblio = MARC::Record->new(); |
877 |
my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, ''); |
878 |
|
879 |
my $barcode = 'just a barcode'; |
880 |
my ( undef, undef, $itemnumber ) = AddItem( |
881 |
{ |
882 |
homebranch => $library->{branchcode}, |
883 |
holdingbranch => $library->{branchcode}, |
884 |
barcode => $barcode, |
885 |
}, |
886 |
$biblionumber, |
887 |
); |
888 |
|
889 |
my $patron = $builder->build({ source => 'Borrower', value => { branchcode => $library->{branchcode} } } ); |
890 |
|
891 |
my $issue = AddIssue( GetMember( borrowernumber => $patron->{borrowernumber} ), $barcode ); |
892 |
UpdateFine( |
893 |
{ |
894 |
issue_id => $issue->id(), |
895 |
itemnumber => $itemnumber, |
896 |
borrowernumber => $patron->{borrowernumber}, |
897 |
amount => 1, |
898 |
} |
899 |
); |
900 |
UpdateFine( |
901 |
{ |
902 |
issue_id => $issue->id(), |
903 |
itemnumber => $itemnumber, |
904 |
borrowernumber => $patron->{borrowernumber}, |
905 |
amount => 2, |
906 |
} |
907 |
); |
908 |
is( Koha::Account::Lines->search({ issue_id => $issue->id })->count, 1, 'UpdateFine should not create a new accountline when updating an existing fine'); |
909 |
} |
910 |
|
873 |
1; |
911 |
1; |
874 |
- |
|
|