Attachment 37439 Details for Bug 13942 – Bug 13942 : Testing the 'recordpayment' function in C4::Accounts

[patch] Bug 13942 : Testing the 'recordpayment' function in C4::Accounts

Bug-13942--Testing-the-recordpayment-function-in-C.patch (text/plain), 7.13 KB, created by Mark Tompsett on 2015-04-02 13:53:25 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Mark Tompsett

Created: 2015-04-02 13:53:25 UTC

Size: 7.13 KB

patch

obsolete

>From 60c1e9ec08d44a3ad13cd084783d44f2f8444e8b Mon Sep 17 00:00:00 2001
>From: Julian FIOL <julian.fiol@biblibre.com>
>Date: Wed, 25 Mar 2015 11:57:57 +0100
>Subject: [PATCH] Bug 13942 : Testing the 'recordpayment' function in
> C4::Accounts
>
>TEST PLAN
>---------
>
>1. Apply patch
>2. prove -v t/db_dependent/Accounts.t
>-- All 15 tests should run successfully without any error or warning
>
>Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
>---
> t/db_dependent/Accounts.t | 174 ++++++++++++++++++++++++++++++++++++++++++++--
> 1 file changed, 170 insertions(+), 4 deletions(-)
>
>diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t
>index 1c2dd5a..9c4b331 100644
>--- a/t/db_dependent/Accounts.t
>+++ b/t/db_dependent/Accounts.t
>@@ -1,16 +1,182 @@
> #!/usr/bin/perl
>+
>+# Copyright 2015 BibLibre
>+#
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 3 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
> #
>-# This Koha test module is a stub!  
>-# Add more tests here!!!
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, see <http://www.gnu.org/licenses>.
> 
> use strict;
> use warnings;
> 
>-use Test::More tests => 1;
>+use Test::More tests => 15;
>+use Test::Warn;
> 
> BEGIN {
>-        use_ok('C4::Accounts');
>+    use_ok('C4::Accounts');
>+    use_ok('Koha::Object');
>+    use_ok('Koha::Borrower');
>+    use_ok('Data::Dumper');
> }
> 
>+can_ok(	'C4::Accounts',
>+	qw(	recordpayment
>+		makepayment
>+		getnextacctno
>+
>+		chargelostitem
>+		manualinvoice
>+		getcharges
>+		ModNote
>+		getcredits
>+		getrefunds
>+		ReversePayment
>+		recordpayment_selectaccts
>+		makepartialpayment
>+		WriteOffFee	)
>+);
>+
>+my $dbh = C4::Context->dbh;
>+$dbh->{RaiseError}=1;
>+$dbh->{AutoCommit}=0;
>+$dbh->do(q|DELETE FROM accountlines|);
>+$dbh->do(q|DELETE FROM borrowers|);
>+
>+# Mock userenv
>+local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
>+my $userenv;
>+*C4::Context::userenv = \&Mock_userenv;
>+$userenv = { flags => 1, id => 'my_userid', branch => 'CPL' };
>+
>+# A Borrower for the tests ----------------------
>+my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode();
>+my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode();
>+
>+my $borrower = Koha::Borrower->new( {
>+	cardnumber => '1234567890',
>+	surname => 'McFly',
>+	firstname => 'Marty',
>+} );
>+$borrower->categorycode( $categorycode );
>+$borrower->branchcode( $branchcode );
>+$borrower->store;
>+
>+my $sth = $dbh->prepare(
>+	"INSERT INTO accountlines (
>+		borrowernumber,
>+		amountoutstanding )
>+	VALUES ( ?, ? )"
>+);
>+$sth->execute($borrower->borrowernumber, '100');
>+$sth->execute($borrower->borrowernumber, '200');
>+
>+$sth = $dbh->prepare("SELECT count(*) FROM accountlines");
>+$sth->execute;
>+my $count = $sth->fetchrow_array;
>+is ($count, 2, 'There is 2 lines as expected');
>+
>+# Testing recordpayment -------------------------
>+# There is $100 in the account
>+$sth = $dbh->prepare("SELECT amountoutstanding FROM accountlines WHERE borrowernumber=?");
>+my $amountoutstanding = $dbh->selectcol_arrayref($sth, {}, $borrower->borrowernumber);
>+my $amountleft = 0;
>+for my $line ( @$amountoutstanding ) {
>+    $amountleft += $line;
>+}
>+ok($amountleft == 300, 'The account has 300$ as expected' );
>+
>+# We make a $20 payment
>+my $borrowernumber = $borrower->borrowernumber;
>+my $data = '20.00';
>+my $sys_paytype;
>+my $payment_note = '$20.00 payment note';
>+recordpayment($borrowernumber, $data, $sys_paytype, $payment_note);
>+# There is now $280 in the account
>+$sth = $dbh->prepare("SELECT amountoutstanding FROM accountlines WHERE borrowernumber=?");
>+$amountoutstanding = $dbh->selectcol_arrayref($sth, {}, $borrower->borrowernumber);
>+$amountleft = 0;
>+for my $line ( @$amountoutstanding ) {
>+    $amountleft += $line;
>+}
>+ok($amountleft == 280, 'The account has $280 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);
>+my $note = $sth->fetchrow_array;
>+is($note,'$20.00 payment note', '$20.00 payment note is registered');
>+
>+# We make a -$30 payment (a NEGATIVE payment)
>+$data = '-30.00';
>+$payment_note = '-$30.00 payment note';
>+recordpayment($borrowernumber, $data, $sys_paytype, $payment_note);
>+# There is now $310 in the account
>+$sth = $dbh->prepare("SELECT amountoutstanding FROM accountlines WHERE borrowernumber=?");
>+$amountoutstanding = $dbh->selectcol_arrayref($sth, {}, $borrower->borrowernumber);
>+$amountleft = 0;
>+for my $line ( @$amountoutstanding ) {
>+    $amountleft += $line;
>+}
>+ok($amountleft == 310, 'The account has $310 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);
>+$note = $sth->fetchrow_array;
>+is($note,'-$30.00 payment note', '-$30.00 payment note is registered');
>+
>+#We make a $150 payment ( > 1stLine )
>+$data = '150.00';
>+$payment_note = '$150.00 payment note';
>+recordpayment($borrowernumber, $data, $sys_paytype, $payment_note);
>+# There is now $160 in the account
>+$sth = $dbh->prepare("SELECT amountoutstanding FROM accountlines WHERE borrowernumber=?");
>+$amountoutstanding = $dbh->selectcol_arrayref($sth, {}, $borrower->borrowernumber);
>+$amountleft = 0;
>+for my $line ( @$amountoutstanding ) {
>+    $amountleft += $line;
>+}
>+ok($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);
>+$note = $sth->fetchrow_array;
>+is($note,'$150.00 payment note', '$150.00 payment note is registered');
>+
>+#We make a $200 payment ( > amountleft )
>+$data = '200.00';
>+$payment_note = '$200.00 payment note';
>+recordpayment($borrowernumber, $data, $sys_paytype, $payment_note);
>+# There is now -$40 in the account
>+$sth = $dbh->prepare("SELECT amountoutstanding FROM accountlines WHERE borrowernumber=?");
>+$amountoutstanding = $dbh->selectcol_arrayref($sth, {}, $borrower->borrowernumber);
>+$amountleft = 0;
>+for my $line ( @$amountoutstanding ) {
>+    $amountleft += $line;
>+}
>+ok($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');
>+
>+
>+
>+$dbh->rollback;
>+
> 
>+# Sub -------------------------------------------
> 
>+# C4::Context->userenv
>+sub Mock_userenv {
>+    return $userenv;
>+}
>\ No newline at end of file
>-- 
>1.9.1

Actions: View | Diff | Splinter Review

Attachments on bug 13942: 37430 | 37439 | 37600 | 37645