Bugzilla – Attachment 20407 Details for
Bug 10481
No enrollment fee when changing patron category
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 10481: Unit tests for C4::Members::AddEnrolmentFeeIfNeeded
Bug-10481-Unit-tests-for-C4MembersAddEnrolmentFeeI.patch (text/plain), 2.69 KB, created by
Kyle M Hall
on 2013-08-16 13:01:38 UTC
(
hide
)
Description:
Bug 10481: Unit tests for C4::Members::AddEnrolmentFeeIfNeeded
Filename:
MIME Type:
Creator:
Kyle M Hall
Created:
2013-08-16 13:01:38 UTC
Size:
2.69 KB
patch
obsolete
>From 845c99840a30c96e8ed6c69d79a7a1b8e94db7f3 Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@biblibre.com> >Date: Thu, 11 Jul 2013 11:45:06 +0200 >Subject: [PATCH] Bug 10481: Unit tests for C4::Members::AddEnrolmentFeeIfNeeded > >prove t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t >t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t .. ok >All tests successful. >Files=1, Tests=3, 0 wallclock secs ( 0.02 usr 0.00 sys + 0.38 cusr >0.01 csys = 0.41 CPU) >Result: PASS > >Signed-off-by: Srdjan <srdjan@catalyst.net.nz> >Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> >--- > t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t | 56 ++++++++++++++++++++++ > 1 files changed, 56 insertions(+), 0 deletions(-) > create mode 100644 t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t > >diff --git a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t >new file mode 100644 >index 0000000..46d9ec1 >--- /dev/null >+++ b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t >@@ -0,0 +1,56 @@ >+use Modern::Perl; >+use Test::More tests => 3; >+ >+use C4::Context; >+use C4::Members; >+ >+my $dbh = C4::Context->dbh; >+$dbh->{AutoCommit} = 0; >+$dbh->{RaiseError} = 1; >+ >+my $enrolmentfee_K = 5; >+my $enrolmentfee_J = 10; >+my $enrolmentfee_YA = 20; >+ >+$dbh->do(q{ >+ UPDATE categories >+ SET enrolmentfee=? >+ WHERE categorycode=? >+}, {}, $enrolmentfee_K, 'K' ); >+ >+$dbh->do(q{ >+ UPDATE categories >+ SET enrolmentfee=? >+ WHERE categorycode=? >+}, {}, $enrolmentfee_J, 'J' ); >+ >+$dbh->do(q{ >+ UPDATE categories >+ SET enrolmentfee=? >+ WHERE categorycode=? >+}, {}, $enrolmentfee_YA, 'YA' ); >+ >+my %borrower_data = ( >+ firstname => 'my firstname', >+ surname => 'my surname', >+ categorycode => 'K', >+ branchcode => 'CPL', >+); >+ >+my $borrowernumber = C4::Members::AddMember( %borrower_data ); >+$borrower_data{borrowernumber} = $borrowernumber; >+ >+my ( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); >+is( $total, $enrolmentfee_K, "New kid pay $enrolmentfee_K" ); >+ >+$borrower_data{categorycode} = 'J'; >+C4::Members::ModMember( %borrower_data ); >+( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); >+is( $total, $enrolmentfee_K + $enrolmentfee_J, "Kid growing and become a juvenile, he should pay " . ( $enrolmentfee_K + $enrolmentfee_J ) ); >+ >+# Check with calling directly AddEnrolmentFeeIfNeeded >+C4::Members::AddEnrolmentFeeIfNeeded( 'YA', $borrowernumber ); >+( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); >+is( $total, $enrolmentfee_K + $enrolmentfee_J + $enrolmentfee_YA, "Juvenile growing and become an young adult, he should pay " . ( $enrolmentfee_K + $enrolmentfee_J + $enrolmentfee_YA ) ); >+ >+$dbh->rollback; >-- >1.7.2.5
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 10481
:
19071
|
19556
|
19557
|
19694
|
19787
|
19797
|
20406
| 20407