Attachment 57192 Details for Bug 15896 – Bug 15896 - Unit Tests

[patch] Bug 15896 - Unit Tests

Bug-15896---Unit-Tests.patch (text/plain), 2.51 KB, created by Marcel de Rooy on 2016-11-04 12:40:34 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2016-11-04 12:40:34 UTC

Size: 2.51 KB

patch

obsolete

>From 9dcedf2719ec88a0acf75f5e4a866e47ae890b1e Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>Date: Fri, 4 Nov 2016 10:40:38 +0000
>Subject: [PATCH] Bug 15896 - Unit Tests
>Content-Type: text/plain; charset=utf-8
>
>Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>---
> t/db_dependent/Accounts.t |   13 +++++++++++--
> 1 file changed, 11 insertions(+), 2 deletions(-)
>
>diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t
>index afbe8e9..508f353 100644
>--- a/t/db_dependent/Accounts.t
>+++ b/t/db_dependent/Accounts.t
>@@ -56,7 +56,7 @@ $schema->storage->txn_begin;
> my $dbh = C4::Context->dbh;
> 
> my $builder = t::lib::TestBuilder->new;
>-my $library = $builder->build({ source => 'Branch' });
>+my $library = $builder->build( { source => 'Branch' } );
> 
> $dbh->do(q|DELETE FROM accountlines|);
> $dbh->do(q|DELETE FROM issues|);
>@@ -138,7 +138,7 @@ $dbh->do(q|DELETE FROM accountlines|);
> 
> subtest "Koha::Account::pay tests" => sub {
> 
>-    plan tests => 10;
>+    plan tests => 12;
> 
>     # Create a borrower
>     my $categorycode = $builder->build({ source => 'Category' })->{ categorycode };
>@@ -225,6 +225,7 @@ subtest "Koha::Account::pay tests" => sub {
>         $amountleft += $line;
>     }
>     is($amountleft, 160, 'The account has $160 as expected' );
>+
>     # Is the payment note well registered
>     $sth = $dbh->prepare("SELECT note FROM accountlines WHERE borrowernumber=? ORDER BY accountlines_id DESC LIMIT 1");
>     $sth->execute($borrower->borrowernumber);
>@@ -244,11 +245,19 @@ subtest "Koha::Account::pay tests" => sub {
>         $amountleft += $line;
>     }
>     is($amountleft, -40, 'The account has -$40 as expected, (credit situation)' );
>+
>     # Is the payment note well registered
>     $sth = $dbh->prepare("SELECT note FROM accountlines WHERE borrowernumber=? ORDER BY accountlines_id DESC LIMIT 1");
>     $sth->execute($borrower->borrowernumber);
>     $note = $sth->fetchrow_array;
>     is($note,'$200.00 payment note', '$200.00 payment note is registered');
>+
>+    my $line3 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amountoutstanding => 42 })->store();
>+    my $payment_id = $account->pay( { accountlines_id => $line3->id, amount => 42 } );
>+    my $payment = Koha::Account::Lines->find( $payment_id );
>+    is( $payment->amount(), '-42.000000', "Payment paid the specified fine" );
>+    $line3 = Koha::Account::Lines->find( $line3->id );
>+    is( $line3->amountoutstanding, '0.000000', "Specified fine is paid" );
> };
> 
> subtest "makepayment() tests" => sub {
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 15896: 48332 | 51920 | 52139 | 53314 | 53782 | 53783 | 53784 | 53785 | 53786 | 55924 | 55925 | 57175 | 57176 | 57177 | 57178 | 57182 | 57183 | 57184 | 57185 | 57186 | 57187 | 57188 | 57189 | 57190 | 57191 | 57192 | 57193