- 

#!/usr/bin/perl

use Modern::Perl;

use C4::Members;

use C4::Biblio;

use C4::Items;

use Test::More tests => 3;

BEGIN {

    use_ok('C4::Overdues');

}

my $dbh = C4::Context->dbh;

# Start transaction

$dbh->{AutoCommit} = 0;

$dbh->{RaiseError} = 1;

#Populate database

my $biblio = MARC::Record->new();

my $title = 'Title to add';

$biblio->append_fields(

    MARC::Field->new('100', ' ', ' ', a => 'Anonymous'),

    MARC::Field->new('245', ' ', ' ', a => $title),

);

my ($biblionumber, $biblioitemnumber) = AddBiblio($biblio, '');

my ( $item_bibnum, $item_bibitemnum, $itemnumber ) = AddItem(

    {

        homebranch       => 'CPL',

        holdingbranch    => 'CPL',

        barcode          => 'T000001',

    },

    $biblionumber

);

my ( $item_bibnum2, $item_bibitemnum2, $itemnumber2 ) = AddItem(

    {

        homebranch       => 'CPL',

        holdingbranch    => 'CPL',

        barcode          => 'T000002',

    },

    $biblionumber

);

my $borrowernumber = AddMember(

    firstname =>  'my firstname',

    surname => 'my surname',

    categorycode => 'S',

    branchcode => 'CPL',

);

my $insertdb = q/

    INSERT INTO accountlines (

        borrowernumber, itemnumber, amount,

        accounttype, amountoutstanding, timestamp )

    VALUES ( ?, ?, ?, ?, ?, CURRENT_TIMESTAMP )/;

my @data = (

            [$borrowernumber, $itemnumber, 123.50, 'F', 123.45],

            [$borrowernumber, $itemnumber, 12.34, 'FU', 123.45],

            [$borrowernumber, $itemnumber, 123.45, 'Rent', 12.34],

            [$borrowernumber, $itemnumber, 567.89, 'F', 89.01],

            [$borrowernumber, $itemnumber2, 543.21, 'F', 543.21],

            );

my $sth = $dbh->prepare($insertdb);

foreach my $loop (@data) {

    $sth->execute(@$loop);

}

ok(GetItemCharges($itemnumber, $borrowernumber) == 348.25, "GetItemCharges returns all outstanding charges for item");

my $anotheritemnumber = $itemnumber + 999999;

my $anotherborrowernumber = $borrowernumber + 999999;

ok(GetItemCharges($anotheritemnumber, $anotherborrowernumber) == 0, "There's no charges for item");

$dbh->rollback;