From 4cca0d24be6d8e467188528572f2570284a01b7d Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Fri, 12 Dec 2014 15:42:47 -0500 Subject: [PATCH] Bug 13455: Members/AddEnrolmentFeeIfNeeded.t requires sample data TEST PLAN --------- 1) Make sure there are no 'J', 'K', nor 'YA' patron category codes. 2) Make sure there are no 'CPL' nor 'MPL' branch codes. 3) prove t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t -- dies horribly 4) apply patch 5) prove t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t -- passes 6) Run koha qa test tools --- t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t index 46d9ec1..d530a1c 100644 --- a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t +++ b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t @@ -3,11 +3,33 @@ use Test::More tests => 3; use C4::Context; use C4::Members; +use C4::Branch; my $dbh = C4::Context->dbh; $dbh->{AutoCommit} = 0; $dbh->{RaiseError} = 1; +# Add branches if they don't exist +if (not defined GetBranchDetail('CPL')) { + ModBranch({add => 1, branchcode => 'CPL', branchname => 'Centerville'}); +} +if (not defined GetBranchDetail('MPL')) { + ModBranch({add => 1, branchcode => 'MPL', branchname => 'Midway'}); +} + +# Add default categories. +$dbh->do("DELETE FROM categories WHERE categorycode='K';"); +$dbh->do("DELETE FROM categories WHERE categorycode='J';"); +$dbh->do("DELETE FROM categories WHERE categorycode='YA';"); +my $sql = "INSERT INTO categories (categorycode, description, + enrolmentperiod, upperagelimit, dateofbirthrequired, finetype, + bulk, enrolmentfee, overduenoticerequired, issuelimit, + reservefee, category_type) VALUES +('K','Kid',99,17,5,NULL,NULL,'0.000000',1,NULL,'0.000000','C'), +('J','Juvenile',99,17,5,NULL,NULL,'0.000000',1,NULL,'0.000000','C'), +('YA','Young Adult',99,17,5,NULL,NULL,'0.000000',1,NULL,'0.000000','C');"; +$dbh->do($sql); + my $enrolmentfee_K = 5; my $enrolmentfee_J = 10; my $enrolmentfee_YA = 20; -- 1.7.9.5