Bugzilla – Attachment 156130 Details for
Bug 34887
Merge Patron.t into t/db/Koha/Patron.t
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 34887: Merge with db_dependent Patron.t
Bug-34887-Merge-with-dbdependent-Patront.patch (text/plain), 43.27 KB, created by
Marcel de Rooy
on 2023-09-23 07:14:11 UTC
(
hide
)
Description:
Bug 34887: Merge with db_dependent Patron.t
Filename:
MIME Type:
Creator:
Marcel de Rooy
Created:
2023-09-23 07:14:11 UTC
Size:
43.27 KB
patch
obsolete
>From 4e93faef4e71e5f240c77dc608663b55c8cbfe9e Mon Sep 17 00:00:00 2001 >From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> >Date: Sat, 23 Sep 2023 07:08:27 +0000 >Subject: [PATCH] Bug 34887: Merge with db_dependent Patron.t >Content-Type: text/plain; charset=utf-8 > >Test plan: >Run t/db_dependent/Koha/Patron.t > >Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> >--- > t/Patron.t | 313 ----------------------------------- > t/db_dependent/Koha/Patron.t | 287 +++++++++++++++++++++++++++++++- > 2 files changed, 286 insertions(+), 314 deletions(-) > delete mode 100755 t/Patron.t > >diff --git a/t/Patron.t b/t/Patron.t >deleted file mode 100755 >index a0853a75c1..0000000000 >--- a/t/Patron.t >+++ /dev/null >@@ -1,313 +0,0 @@ >-#!/usr/bin/perl >- >-# 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. >-# >-# You should have received a copy of the GNU General Public License >-# along with Koha; if not, see <http://www.gnu.org/licenses>. >- >-use Modern::Perl; >- >-use Test::More tests => 3; >-use Test::Warn; >-use t::lib::Mocks; >-use t::lib::TestBuilder; >- >-use_ok('Koha::Object'); >-use_ok('Koha::Patron'); >- >-use Koha::Database; >- >-my $schema = Koha::Database->new->schema; >-my $builder = t::lib::TestBuilder->new; >- >-subtest 'Accessor tests' => sub { >- plan tests => 9; >- $schema->storage->txn_begin; >- >- my $object = Koha::Patron->new( { surname => 'Test Patron' } ); >- is( $object->surname(), 'Test Patron', "Accessor returns correct value" ); >- $object->surname('Test Patron Surname'); >- is( $object->surname(), 'Test Patron Surname', "Accessor returns correct value after set" ); >- >- my $object2 = Koha::Patron->new( { surname => 'Test Patron 2' } ); >- is( $object2->surname(), 'Test Patron 2', "Accessor returns correct value" ); >- $object2->surname('Test Patron Surname 2'); >- is( $object2->surname(), 'Test Patron Surname 2', "Accessor returns correct value after set" ); >- >- my $ret; >- $ret = $object2->set( { surname => "Test Patron Surname 3", firstname => "Test Firstname" } ); >- ok( ref($ret) eq 'Koha::Patron', "Set returns object on success" ); >- is( $object2->surname(), "Test Patron Surname 3", "Set sets first field correctly" ); >- is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" ); >- >- our $patron = Koha::Patron->new( >- { >- borrowernumber => '12345', >- cardnumber => '1234567890', >- surname => 'mySurname', >- firstname => 'myFirstname', >- title => 'Mr.', >- othernames => 'myOthernames', >- initials => 'MM', >- streetnumber => '100', >- streettype => 'Blvd', >- address => 'my personnal address', >- address2 => 'my adress2', >- city => 'Marseille', >- state => 'mystate', >- zipcode => '13006', >- country => 'France', >- email => 'mySurname.myFirstname@email.com', >- phone => '0402872934', >- mobile => '0627884632', >- fax => '0402872935', >- emailpro => 'myEmailPro@email.com', >- phonepro => '0402873334', >- B_streetnumber => '101', >- B_streettype => 'myB_streettype', >- B_address => 'myB_address', >- B_address2 => 'myB_address2', >- B_city => 'myB_city', >- B_state => 'myB_state', >- B_zipcode => '23456', >- B_country => 'myB_country', >- B_email => 'myB_email', >- B_phone => '0678353935', >- dateofbirth => '1990-07-16', >- branchcode => 'myBranCode', >- categorycode => 'myCatCode', >- dateenrolled => '2015-03-19', >- dateexpiry => '2016-03-19', >- gonenoaddress => '0', >- lost => '0', >- debarred => '2015-04-19', >- debarredcomment => 'You are debarred', >- borrowernotes => 'borrowernotes', >- sex => 'M', >- password => 'hfkurhfe976634èj!', >- flags => '55555', >- userid => '87987', >- opacnote => 'myOpacnote', >- contactnote => 'myContactnote', >- sort1 => 'mySort1', >- sort2 => 'mySort2', >- altcontactfirstname => 'myAltcontactfirstname', >- altcontactsurname => 'myAltcontactsurname', >- altcontactaddress1 => 'myAltcontactaddress1', >- altcontactaddress2 => 'myAltcontactaddress2', >- altcontactaddress3 => 'myAltcontactaddress3', >- altcontactstate => 'myAltcontactstate', >- altcontactzipcode => '465843', >- altcontactcountry => 'myOtherCountry', >- altcontactphone => 'myOtherphone', >- smsalertnumber => '0683027346', >- privacy => '667788', >- } >- ); >- >- subtest 'Accessor tests after new' => sub { >- plan tests => 60; >- is( $patron->borrowernumber, '12345', 'borrowernumber accessor returns correct value' ); >- is( $patron->cardnumber, '1234567890', 'cardnumber accessor returns correct value' ); >- is( $patron->surname, 'mySurname', 'surname accessor returns correct value' ); >- is( $patron->firstname, 'myFirstname', 'firstname accessor returns correct value' ); >- is( $patron->title, 'Mr.', 'title accessor returns correct value' ); >- is( $patron->othernames, 'myOthernames', 'othernames accessor returns correct value' ); >- is( $patron->initials, 'MM', 'initials accessor returns correct value' ); >- is( $patron->streetnumber, '100', 'streetnumber accessor returns correct value' ); >- is( $patron->streettype, 'Blvd', 'streettype accessor returns correct value' ); >- is( $patron->address, 'my personnal address', 'address accessor returns correct value' ); >- is( $patron->address2, 'my adress2', 'address2 accessor returns correct value' ); >- is( $patron->city, 'Marseille', 'city accessor returns correct value' ); >- is( $patron->state, 'mystate', 'state accessor returns correct value' ); >- is( $patron->zipcode, '13006', 'zipcode accessor returns correct value' ); >- is( $patron->country, 'France', 'country accessor returns correct value' ); >- is( $patron->email, 'mySurname.myFirstname@email.com', 'email accessor returns correct value' ); >- is( $patron->phone, '0402872934', 'phone accessor returns correct value' ); >- is( $patron->mobile, '0627884632', 'mobile accessor returns correct value' ); >- is( $patron->fax, '0402872935', 'fax accessor returns correct value' ); >- is( $patron->emailpro, 'myEmailPro@email.com', 'emailpro accessor returns correct value' ); >- is( $patron->phonepro, '0402873334', 'phonepro accessor returns correct value' ); >- is( $patron->B_streetnumber, '101', 'B_streetnumber accessor returns correct value' ); >- is( $patron->B_streettype, 'myB_streettype', 'B_streettype accessor returns correct value' ); >- is( $patron->B_address, 'myB_address', 'B_address accessor returns correct value' ); >- is( $patron->B_address2, 'myB_address2', 'B_address2 accessor returns correct value' ); >- is( $patron->B_city, 'myB_city', 'B_city accessor returns correct value' ); >- is( $patron->B_state, 'myB_state', 'B_state accessor returns correct value' ); >- is( $patron->B_zipcode, '23456', 'B_zipcode accessor returns correct value' ); >- is( $patron->B_country, 'myB_country', 'B_country accessor returns correct value' ); >- is( $patron->B_email, 'myB_email', 'B_email accessor returns correct value' ); >- is( $patron->B_phone, '0678353935', 'B_phone accessor returns correct value' ); >- is( $patron->dateofbirth, '1990-07-16', 'dateofbirth accessor returns correct value' ); >- is( $patron->branchcode, 'myBranCode', 'branchcode accessor returns correct value' ); >- is( $patron->categorycode, 'myCatCode', 'categorycode accessor returns correct value' ); >- is( $patron->dateenrolled, '2015-03-19', 'dateenrolled accessor returns correct value' ); >- is( $patron->dateexpiry, '2016-03-19', 'dateexpiry accessor returns correct value' ); >- is( $patron->gonenoaddress, '0', 'gonenoaddress accessor returns correct value' ); >- is( $patron->lost, '0', 'lost accessor returns correct value' ); >- is( $patron->debarred, '2015-04-19', 'debarred accessor returns correct value' ); >- is( $patron->debarredcomment, 'You are debarred', 'debarredcomment accessor returns correct value' ); >- is( $patron->borrowernotes, 'borrowernotes', 'borrowernotes accessor returns correct value' ); >- is( $patron->sex, 'M', 'sex accessor returns correct value' ); >- is( $patron->password, 'hfkurhfe976634èj!', 'password accessor returns correct value' ); >- is( $patron->flags, '55555', 'flags accessor returns correct value' ); >- is( $patron->userid, '87987', 'userid accessor returns correct value' ); >- is( $patron->opacnote, 'myOpacnote', 'opacnote accessor returns correct value' ); >- is( $patron->contactnote, 'myContactnote', 'contactnote accessor returns correct value' ); >- is( $patron->sort1, 'mySort1', 'sort1 accessor returns correct value' ); >- is( $patron->sort2, 'mySort2', 'sort2 accessor returns correct value' ); >- is( $patron->altcontactfirstname, 'myAltcontactfirstname', 'altcontactfirstname accessor returns correct value' ); >- is( $patron->altcontactsurname, 'myAltcontactsurname', 'altcontactsurname accessor returns correct value' ); >- is( $patron->altcontactaddress1, 'myAltcontactaddress1', 'altcontactaddress1 accessor returns correct value' ); >- is( $patron->altcontactaddress2, 'myAltcontactaddress2', 'altcontactaddress2 accessor returns correct value' ); >- is( $patron->altcontactaddress3, 'myAltcontactaddress3', 'altcontactaddress3 accessor returns correct value' ); >- is( $patron->altcontactstate, 'myAltcontactstate', 'altcontactstate accessor returns correct value' ); >- is( $patron->altcontactzipcode, '465843', 'altcontactzipcode accessor returns correct value' ); >- is( $patron->altcontactcountry, 'myOtherCountry', 'altcontactcountry accessor returns correct value' ); >- is( $patron->altcontactphone, 'myOtherphone', 'altcontactphone accessor returns correct value' ); >- is( $patron->smsalertnumber, '0683027346', 'smsalertnumber accessor returns correct value' ); >- is( $patron->privacy, '667788', 'privacy accessor returns correct value' ); >- }; >- >- subtest 'Accessor tests after set' => sub { >- plan tests => 60; >- >- $patron->set( >- { >- borrowernumber => '12346', >- cardnumber => '1234567891', >- surname => 'SmySurname', >- firstname => 'SmyFirstname', >- title => 'Mme.', >- othernames => 'SmyOthernames', >- initials => 'SS', >- streetnumber => '200', >- streettype => 'Rue', >- address => 'Smy personnal address', >- address2 => 'Smy adress2', >- city => 'Lyon', >- state => 'Smystate', >- zipcode => '69000', >- country => 'France', >- email => 'SmySurname.myFirstname@email.com', >- phone => '0402872935', >- mobile => '0627884633', >- fax => '0402872936', >- emailpro => 'SmyEmailPro@email.com', >- phonepro => '0402873335', >- B_streetnumber => '102', >- B_streettype => 'SmyB_streettype', >- B_address => 'SmyB_address', >- B_address2 => 'SmyB_address2', >- B_city => 'SmyB_city', >- B_state => 'SmyB_state', >- B_zipcode => '12333', >- B_country => 'SmyB_country', >- B_email => 'SmyB_email', >- B_phone => '0678353936', >- dateofbirth => '1991-07-16', >- branchcode => 'SmyBranCode', >- categorycode => 'SmyCatCode', >- dateenrolled => '2014-03-19', >- dateexpiry => '2017-03-19', >- gonenoaddress => '1', >- lost => '1', >- debarred => '2016-04-19', >- debarredcomment => 'You are still debarred', >- borrowernotes => 'Sborrowernotes', >- sex => 'F', >- password => 'zerzerzer#', >- flags => '666666', >- userid => '98233', >- opacnote => 'SmyOpacnote', >- contactnote => 'SmyContactnote', >- sort1 => 'SmySort1', >- sort2 => 'SmySort2', >- altcontactfirstname => 'SmyAltcontactfirstname', >- altcontactsurname => 'SmyAltcontactsurname', >- altcontactaddress1 => 'SmyAltcontactaddress1', >- altcontactaddress2 => 'SmyAltcontactaddress2', >- altcontactaddress3 => 'SmyAltcontactaddress3', >- altcontactstate => 'SmyAltcontactstate', >- altcontactzipcode => '565843', >- altcontactcountry => 'SmyOtherCountry', >- altcontactphone => 'SmyOtherphone', >- smsalertnumber => '0683027347', >- privacy => '667789' >- } >- ); >- >- is( $patron->borrowernumber, '12346', 'borrowernumber field set ok' ); >- is( $patron->cardnumber, '1234567891', 'cardnumber field set ok' ); >- is( $patron->surname, 'SmySurname', 'surname field set ok' ); >- is( $patron->firstname, 'SmyFirstname', 'firstname field set ok' ); >- is( $patron->title, 'Mme.', 'title field set ok' ); >- is( $patron->othernames, 'SmyOthernames', 'othernames field set ok' ); >- is( $patron->initials, 'SS', 'initials field set ok' ); >- is( $patron->streetnumber, '200', 'streetnumber field set ok' ); >- is( $patron->streettype, 'Rue', 'streettype field set ok' ); >- is( $patron->address, 'Smy personnal address', 'address field set ok' ); >- is( $patron->address2, 'Smy adress2', 'address2 field set ok' ); >- is( $patron->city, 'Lyon', 'city field set ok' ); >- is( $patron->state, 'Smystate', 'state field set ok' ); >- is( $patron->zipcode, '69000', 'zipcode field set ok' ); >- is( $patron->country, 'France', 'country field set ok' ); >- is( $patron->email, 'SmySurname.myFirstname@email.com', 'email field set ok' ); >- is( $patron->phone, '0402872935', 'phone field set ok' ); >- is( $patron->mobile, '0627884633', 'mobile field set ok' ); >- is( $patron->fax, '0402872936', 'fax field set ok' ); >- is( $patron->emailpro, 'SmyEmailPro@email.com', 'emailpro field set ok' ); >- is( $patron->phonepro, '0402873335', 'phonepro field set ok' ); >- is( $patron->B_streetnumber, '102', 'B_streetnumber field set ok' ); >- is( $patron->B_streettype, 'SmyB_streettype', 'B_streettype field set ok' ); >- is( $patron->B_address, 'SmyB_address', 'B_address field set ok' ); >- is( $patron->B_address2, 'SmyB_address2', 'B_address2 field set ok' ); >- is( $patron->B_city, 'SmyB_city', 'B_city field set ok' ); >- is( $patron->B_state, 'SmyB_state', 'B_state field set ok' ); >- is( $patron->B_zipcode, '12333', 'B_zipcode field set ok' ); >- is( $patron->B_country, 'SmyB_country', 'B_country field set ok' ); >- is( $patron->B_email, 'SmyB_email', 'B_email field set ok' ); >- is( $patron->B_phone, '0678353936', 'B_phone field set ok' ); >- is( $patron->dateofbirth, '1991-07-16', 'dateofbirth field set ok' ); >- is( $patron->branchcode, 'SmyBranCode', 'branchcode field set ok' ); >- is( $patron->categorycode, 'SmyCatCode', 'categorycode field set ok' ); >- is( $patron->dateenrolled, '2014-03-19', 'dateenrolled field set ok' ); >- is( $patron->dateexpiry, '2017-03-19', 'dateexpiry field set ok' ); >- is( $patron->gonenoaddress, '1', 'gonenoaddress field set ok' ); >- is( $patron->lost, '1', 'lost field set ok' ); >- is( $patron->debarred, '2016-04-19', 'debarred field set ok' ); >- is( $patron->debarredcomment, 'You are still debarred', 'debarredcomment field set ok' ); >- is( $patron->borrowernotes, 'Sborrowernotes', 'borrowernotes field set ok' ); >- is( $patron->sex, 'F', 'sex field set ok' ); >- is( $patron->password, 'zerzerzer#', 'password field set ok' ); >- is( $patron->flags, '666666', 'flags field set ok' ); >- is( $patron->userid, '98233', 'userid field set ok' ); >- is( $patron->opacnote, 'SmyOpacnote', 'opacnote field set ok' ); >- is( $patron->contactnote, 'SmyContactnote', 'contactnote field set ok' ); >- is( $patron->sort1, 'SmySort1', 'sort1 field set ok' ); >- is( $patron->sort2, 'SmySort2', 'sort2 field set ok' ); >- is( $patron->altcontactfirstname, 'SmyAltcontactfirstname', 'altcontactfirstname field set ok' ); >- is( $patron->altcontactsurname, 'SmyAltcontactsurname', 'altcontactsurname field set ok' ); >- is( $patron->altcontactaddress1, 'SmyAltcontactaddress1', 'altcontactaddress1 field set ok' ); >- is( $patron->altcontactaddress2, 'SmyAltcontactaddress2', 'altcontactaddress2 field set ok' ); >- is( $patron->altcontactaddress3, 'SmyAltcontactaddress3', 'altcontactaddress3 field set ok' ); >- is( $patron->altcontactstate, 'SmyAltcontactstate', 'altcontactstate field set ok' ); >- is( $patron->altcontactzipcode, '565843', 'altcontactzipcode field set ok' ); >- is( $patron->altcontactcountry, 'SmyOtherCountry', 'altcontactcountry field set ok' ); >- is( $patron->altcontactphone, 'SmyOtherphone', 'altcontactphone field set ok' ); >- is( $patron->smsalertnumber, '0683027347', 'smsalertnumber field set ok' ); >- is( $patron->privacy, '667789', 'privacy field set ok' ); >- }; >- >- $schema->storage->txn_rollback; >-}; >diff --git a/t/db_dependent/Koha/Patron.t b/t/db_dependent/Koha/Patron.t >index 32519eb689..92252562cd 100755 >--- a/t/db_dependent/Koha/Patron.t >+++ b/t/db_dependent/Koha/Patron.t >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use Test::More tests => 25; >+use Test::More tests => 26; > use Test::Exception; > use Test::Warn; > >@@ -37,6 +37,291 @@ use t::lib::Mocks; > my $schema = Koha::Database->new->schema; > my $builder = t::lib::TestBuilder->new; > >+subtest 'Accessor tests' => sub { >+ plan tests => 9; >+ $schema->storage->txn_begin; >+ >+ my $object = Koha::Patron->new( { surname => 'Test Patron' } ); >+ is( $object->surname(), 'Test Patron', "Accessor returns correct value" ); >+ $object->surname('Test Patron Surname'); >+ is( $object->surname(), 'Test Patron Surname', "Accessor returns correct value after set" ); >+ >+ my $object2 = Koha::Patron->new( { surname => 'Test Patron 2' } ); >+ is( $object2->surname(), 'Test Patron 2', "Accessor returns correct value" ); >+ $object2->surname('Test Patron Surname 2'); >+ is( $object2->surname(), 'Test Patron Surname 2', "Accessor returns correct value after set" ); >+ >+ my $ret; >+ $ret = $object2->set( { surname => "Test Patron Surname 3", firstname => "Test Firstname" } ); >+ ok( ref($ret) eq 'Koha::Patron', "Set returns object on success" ); >+ is( $object2->surname(), "Test Patron Surname 3", "Set sets first field correctly" ); >+ is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" ); >+ >+ our $patron = Koha::Patron->new( >+ { >+ borrowernumber => '12345', >+ cardnumber => '1234567890', >+ surname => 'mySurname', >+ firstname => 'myFirstname', >+ title => 'Mr.', >+ othernames => 'myOthernames', >+ initials => 'MM', >+ streetnumber => '100', >+ streettype => 'Blvd', >+ address => 'my personnal address', >+ address2 => 'my adress2', >+ city => 'Marseille', >+ state => 'mystate', >+ zipcode => '13006', >+ country => 'France', >+ email => 'mySurname.myFirstname@email.com', >+ phone => '0402872934', >+ mobile => '0627884632', >+ fax => '0402872935', >+ emailpro => 'myEmailPro@email.com', >+ phonepro => '0402873334', >+ B_streetnumber => '101', >+ B_streettype => 'myB_streettype', >+ B_address => 'myB_address', >+ B_address2 => 'myB_address2', >+ B_city => 'myB_city', >+ B_state => 'myB_state', >+ B_zipcode => '23456', >+ B_country => 'myB_country', >+ B_email => 'myB_email', >+ B_phone => '0678353935', >+ dateofbirth => '1990-07-16', >+ branchcode => 'myBranCode', >+ categorycode => 'myCatCode', >+ dateenrolled => '2015-03-19', >+ dateexpiry => '2016-03-19', >+ gonenoaddress => '0', >+ lost => '0', >+ debarred => '2015-04-19', >+ debarredcomment => 'You are debarred', >+ borrowernotes => 'borrowernotes', >+ sex => 'M', >+ password => 'hfkurhfe976634èj!', >+ flags => '55555', >+ userid => '87987', >+ opacnote => 'myOpacnote', >+ contactnote => 'myContactnote', >+ sort1 => 'mySort1', >+ sort2 => 'mySort2', >+ altcontactfirstname => 'myAltcontactfirstname', >+ altcontactsurname => 'myAltcontactsurname', >+ altcontactaddress1 => 'myAltcontactaddress1', >+ altcontactaddress2 => 'myAltcontactaddress2', >+ altcontactaddress3 => 'myAltcontactaddress3', >+ altcontactstate => 'myAltcontactstate', >+ altcontactzipcode => '465843', >+ altcontactcountry => 'myOtherCountry', >+ altcontactphone => 'myOtherphone', >+ smsalertnumber => '0683027346', >+ privacy => '667788', >+ } >+ ); >+ >+ subtest 'Accessor tests after new' => sub { >+ plan tests => 60; >+ is( $patron->borrowernumber, '12345', 'borrowernumber accessor returns correct value' ); >+ is( $patron->cardnumber, '1234567890', 'cardnumber accessor returns correct value' ); >+ is( $patron->surname, 'mySurname', 'surname accessor returns correct value' ); >+ is( $patron->firstname, 'myFirstname', 'firstname accessor returns correct value' ); >+ is( $patron->title, 'Mr.', 'title accessor returns correct value' ); >+ is( $patron->othernames, 'myOthernames', 'othernames accessor returns correct value' ); >+ is( $patron->initials, 'MM', 'initials accessor returns correct value' ); >+ is( $patron->streetnumber, '100', 'streetnumber accessor returns correct value' ); >+ is( $patron->streettype, 'Blvd', 'streettype accessor returns correct value' ); >+ is( $patron->address, 'my personnal address', 'address accessor returns correct value' ); >+ is( $patron->address2, 'my adress2', 'address2 accessor returns correct value' ); >+ is( $patron->city, 'Marseille', 'city accessor returns correct value' ); >+ is( $patron->state, 'mystate', 'state accessor returns correct value' ); >+ is( $patron->zipcode, '13006', 'zipcode accessor returns correct value' ); >+ is( $patron->country, 'France', 'country accessor returns correct value' ); >+ is( $patron->email, 'mySurname.myFirstname@email.com', 'email accessor returns correct value' ); >+ is( $patron->phone, '0402872934', 'phone accessor returns correct value' ); >+ is( $patron->mobile, '0627884632', 'mobile accessor returns correct value' ); >+ is( $patron->fax, '0402872935', 'fax accessor returns correct value' ); >+ is( $patron->emailpro, 'myEmailPro@email.com', 'emailpro accessor returns correct value' ); >+ is( $patron->phonepro, '0402873334', 'phonepro accessor returns correct value' ); >+ is( $patron->B_streetnumber, '101', 'B_streetnumber accessor returns correct value' ); >+ is( $patron->B_streettype, 'myB_streettype', 'B_streettype accessor returns correct value' ); >+ is( $patron->B_address, 'myB_address', 'B_address accessor returns correct value' ); >+ is( $patron->B_address2, 'myB_address2', 'B_address2 accessor returns correct value' ); >+ is( $patron->B_city, 'myB_city', 'B_city accessor returns correct value' ); >+ is( $patron->B_state, 'myB_state', 'B_state accessor returns correct value' ); >+ is( $patron->B_zipcode, '23456', 'B_zipcode accessor returns correct value' ); >+ is( $patron->B_country, 'myB_country', 'B_country accessor returns correct value' ); >+ is( $patron->B_email, 'myB_email', 'B_email accessor returns correct value' ); >+ is( $patron->B_phone, '0678353935', 'B_phone accessor returns correct value' ); >+ is( $patron->dateofbirth, '1990-07-16', 'dateofbirth accessor returns correct value' ); >+ is( $patron->branchcode, 'myBranCode', 'branchcode accessor returns correct value' ); >+ is( $patron->categorycode, 'myCatCode', 'categorycode accessor returns correct value' ); >+ is( $patron->dateenrolled, '2015-03-19', 'dateenrolled accessor returns correct value' ); >+ is( $patron->dateexpiry, '2016-03-19', 'dateexpiry accessor returns correct value' ); >+ is( $patron->gonenoaddress, '0', 'gonenoaddress accessor returns correct value' ); >+ is( $patron->lost, '0', 'lost accessor returns correct value' ); >+ is( $patron->debarred, '2015-04-19', 'debarred accessor returns correct value' ); >+ is( $patron->debarredcomment, 'You are debarred', 'debarredcomment accessor returns correct value' ); >+ is( $patron->borrowernotes, 'borrowernotes', 'borrowernotes accessor returns correct value' ); >+ is( $patron->sex, 'M', 'sex accessor returns correct value' ); >+ is( $patron->password, 'hfkurhfe976634èj!', 'password accessor returns correct value' ); >+ is( $patron->flags, '55555', 'flags accessor returns correct value' ); >+ is( $patron->userid, '87987', 'userid accessor returns correct value' ); >+ is( $patron->opacnote, 'myOpacnote', 'opacnote accessor returns correct value' ); >+ is( $patron->contactnote, 'myContactnote', 'contactnote accessor returns correct value' ); >+ is( $patron->sort1, 'mySort1', 'sort1 accessor returns correct value' ); >+ is( $patron->sort2, 'mySort2', 'sort2 accessor returns correct value' ); >+ is( >+ $patron->altcontactfirstname, 'myAltcontactfirstname', >+ 'altcontactfirstname accessor returns correct value' >+ ); >+ is( $patron->altcontactsurname, 'myAltcontactsurname', 'altcontactsurname accessor returns correct value' ); >+ is( $patron->altcontactaddress1, 'myAltcontactaddress1', 'altcontactaddress1 accessor returns correct value' ); >+ is( $patron->altcontactaddress2, 'myAltcontactaddress2', 'altcontactaddress2 accessor returns correct value' ); >+ is( $patron->altcontactaddress3, 'myAltcontactaddress3', 'altcontactaddress3 accessor returns correct value' ); >+ is( $patron->altcontactstate, 'myAltcontactstate', 'altcontactstate accessor returns correct value' ); >+ is( $patron->altcontactzipcode, '465843', 'altcontactzipcode accessor returns correct value' ); >+ is( $patron->altcontactcountry, 'myOtherCountry', 'altcontactcountry accessor returns correct value' ); >+ is( $patron->altcontactphone, 'myOtherphone', 'altcontactphone accessor returns correct value' ); >+ is( $patron->smsalertnumber, '0683027346', 'smsalertnumber accessor returns correct value' ); >+ is( $patron->privacy, '667788', 'privacy accessor returns correct value' ); >+ }; >+ >+ subtest 'Accessor tests after set' => sub { >+ plan tests => 60; >+ >+ $patron->set( >+ { >+ borrowernumber => '12346', >+ cardnumber => '1234567891', >+ surname => 'SmySurname', >+ firstname => 'SmyFirstname', >+ title => 'Mme.', >+ othernames => 'SmyOthernames', >+ initials => 'SS', >+ streetnumber => '200', >+ streettype => 'Rue', >+ address => 'Smy personnal address', >+ address2 => 'Smy adress2', >+ city => 'Lyon', >+ state => 'Smystate', >+ zipcode => '69000', >+ country => 'France', >+ email => 'SmySurname.myFirstname@email.com', >+ phone => '0402872935', >+ mobile => '0627884633', >+ fax => '0402872936', >+ emailpro => 'SmyEmailPro@email.com', >+ phonepro => '0402873335', >+ B_streetnumber => '102', >+ B_streettype => 'SmyB_streettype', >+ B_address => 'SmyB_address', >+ B_address2 => 'SmyB_address2', >+ B_city => 'SmyB_city', >+ B_state => 'SmyB_state', >+ B_zipcode => '12333', >+ B_country => 'SmyB_country', >+ B_email => 'SmyB_email', >+ B_phone => '0678353936', >+ dateofbirth => '1991-07-16', >+ branchcode => 'SmyBranCode', >+ categorycode => 'SmyCatCode', >+ dateenrolled => '2014-03-19', >+ dateexpiry => '2017-03-19', >+ gonenoaddress => '1', >+ lost => '1', >+ debarred => '2016-04-19', >+ debarredcomment => 'You are still debarred', >+ borrowernotes => 'Sborrowernotes', >+ sex => 'F', >+ password => 'zerzerzer#', >+ flags => '666666', >+ userid => '98233', >+ opacnote => 'SmyOpacnote', >+ contactnote => 'SmyContactnote', >+ sort1 => 'SmySort1', >+ sort2 => 'SmySort2', >+ altcontactfirstname => 'SmyAltcontactfirstname', >+ altcontactsurname => 'SmyAltcontactsurname', >+ altcontactaddress1 => 'SmyAltcontactaddress1', >+ altcontactaddress2 => 'SmyAltcontactaddress2', >+ altcontactaddress3 => 'SmyAltcontactaddress3', >+ altcontactstate => 'SmyAltcontactstate', >+ altcontactzipcode => '565843', >+ altcontactcountry => 'SmyOtherCountry', >+ altcontactphone => 'SmyOtherphone', >+ smsalertnumber => '0683027347', >+ privacy => '667789' >+ } >+ ); >+ >+ is( $patron->borrowernumber, '12346', 'borrowernumber field set ok' ); >+ is( $patron->cardnumber, '1234567891', 'cardnumber field set ok' ); >+ is( $patron->surname, 'SmySurname', 'surname field set ok' ); >+ is( $patron->firstname, 'SmyFirstname', 'firstname field set ok' ); >+ is( $patron->title, 'Mme.', 'title field set ok' ); >+ is( $patron->othernames, 'SmyOthernames', 'othernames field set ok' ); >+ is( $patron->initials, 'SS', 'initials field set ok' ); >+ is( $patron->streetnumber, '200', 'streetnumber field set ok' ); >+ is( $patron->streettype, 'Rue', 'streettype field set ok' ); >+ is( $patron->address, 'Smy personnal address', 'address field set ok' ); >+ is( $patron->address2, 'Smy adress2', 'address2 field set ok' ); >+ is( $patron->city, 'Lyon', 'city field set ok' ); >+ is( $patron->state, 'Smystate', 'state field set ok' ); >+ is( $patron->zipcode, '69000', 'zipcode field set ok' ); >+ is( $patron->country, 'France', 'country field set ok' ); >+ is( $patron->email, 'SmySurname.myFirstname@email.com', 'email field set ok' ); >+ is( $patron->phone, '0402872935', 'phone field set ok' ); >+ is( $patron->mobile, '0627884633', 'mobile field set ok' ); >+ is( $patron->fax, '0402872936', 'fax field set ok' ); >+ is( $patron->emailpro, 'SmyEmailPro@email.com', 'emailpro field set ok' ); >+ is( $patron->phonepro, '0402873335', 'phonepro field set ok' ); >+ is( $patron->B_streetnumber, '102', 'B_streetnumber field set ok' ); >+ is( $patron->B_streettype, 'SmyB_streettype', 'B_streettype field set ok' ); >+ is( $patron->B_address, 'SmyB_address', 'B_address field set ok' ); >+ is( $patron->B_address2, 'SmyB_address2', 'B_address2 field set ok' ); >+ is( $patron->B_city, 'SmyB_city', 'B_city field set ok' ); >+ is( $patron->B_state, 'SmyB_state', 'B_state field set ok' ); >+ is( $patron->B_zipcode, '12333', 'B_zipcode field set ok' ); >+ is( $patron->B_country, 'SmyB_country', 'B_country field set ok' ); >+ is( $patron->B_email, 'SmyB_email', 'B_email field set ok' ); >+ is( $patron->B_phone, '0678353936', 'B_phone field set ok' ); >+ is( $patron->dateofbirth, '1991-07-16', 'dateofbirth field set ok' ); >+ is( $patron->branchcode, 'SmyBranCode', 'branchcode field set ok' ); >+ is( $patron->categorycode, 'SmyCatCode', 'categorycode field set ok' ); >+ is( $patron->dateenrolled, '2014-03-19', 'dateenrolled field set ok' ); >+ is( $patron->dateexpiry, '2017-03-19', 'dateexpiry field set ok' ); >+ is( $patron->gonenoaddress, '1', 'gonenoaddress field set ok' ); >+ is( $patron->lost, '1', 'lost field set ok' ); >+ is( $patron->debarred, '2016-04-19', 'debarred field set ok' ); >+ is( $patron->debarredcomment, 'You are still debarred', 'debarredcomment field set ok' ); >+ is( $patron->borrowernotes, 'Sborrowernotes', 'borrowernotes field set ok' ); >+ is( $patron->sex, 'F', 'sex field set ok' ); >+ is( $patron->password, 'zerzerzer#', 'password field set ok' ); >+ is( $patron->flags, '666666', 'flags field set ok' ); >+ is( $patron->userid, '98233', 'userid field set ok' ); >+ is( $patron->opacnote, 'SmyOpacnote', 'opacnote field set ok' ); >+ is( $patron->contactnote, 'SmyContactnote', 'contactnote field set ok' ); >+ is( $patron->sort1, 'SmySort1', 'sort1 field set ok' ); >+ is( $patron->sort2, 'SmySort2', 'sort2 field set ok' ); >+ is( $patron->altcontactfirstname, 'SmyAltcontactfirstname', 'altcontactfirstname field set ok' ); >+ is( $patron->altcontactsurname, 'SmyAltcontactsurname', 'altcontactsurname field set ok' ); >+ is( $patron->altcontactaddress1, 'SmyAltcontactaddress1', 'altcontactaddress1 field set ok' ); >+ is( $patron->altcontactaddress2, 'SmyAltcontactaddress2', 'altcontactaddress2 field set ok' ); >+ is( $patron->altcontactaddress3, 'SmyAltcontactaddress3', 'altcontactaddress3 field set ok' ); >+ is( $patron->altcontactstate, 'SmyAltcontactstate', 'altcontactstate field set ok' ); >+ is( $patron->altcontactzipcode, '565843', 'altcontactzipcode field set ok' ); >+ is( $patron->altcontactcountry, 'SmyOtherCountry', 'altcontactcountry field set ok' ); >+ is( $patron->altcontactphone, 'SmyOtherphone', 'altcontactphone field set ok' ); >+ is( $patron->smsalertnumber, '0683027347', 'smsalertnumber field set ok' ); >+ is( $patron->privacy, '667789', 'privacy field set ok' ); >+ }; >+ >+ $schema->storage->txn_rollback; >+}; >+ > subtest 'add_guarantor() tests' => sub { > > plan tests => 6; >-- >2.30.2
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=156130">View the attachment on a separate page</a>.</b>
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 34887
:
156128
|
156129
|
156130
|
156207
|
156208
|
156209