t/Borrower.t

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  17
  18 use Modern::Perl;
  19
  20 use Test::More tests => 18;
  21 use Test::Warn;
  22 use Koha::Database;
  23
  24 BEGIN {
  25     use_ok('Koha::Object');
  26     use_ok('Koha::Borrower');
  27 }
  28
  29 my $object = Koha::Borrower->new( { surname => 'Test Borrower' } );
  30 is( $object->surname(), 'Test Borrower', "Accessor returns correct value" );
  31 $object->surname('Test Borrower Surname');
  32 is( $object->surname(), 'Test Borrower Surname', "Accessor returns correct value after set" );
  33
  34 my $object2 = Koha::Borrower->new( { surname => 'Test Borrower 2' } );
  35 is( $object2->surname(), 'Test Borrower 2', "Accessor returns correct value" );
  36 $object2->surname('Test Borrower Surname 2');
  37 is( $object2->surname(), 'Test Borrower Surname 2', "Accessor returns correct value after set" );
  38
  39 my $ret;
  40 $ret = $object2->set({ surname => "Test Borrower Surname 3", firstname => "Test Firstname" });
  41 ok( ref($ret) eq 'Koha::Borrower', "Set returns object on success" );
  42 is( $object2->surname(), "Test Borrower Surname 3", "Set sets first field correctly" );
  43 is( $object2->firstname(), "Test Firstname", "Set sets second field correctly" );
  44
  45 warning_is { $ret = $object->set({ surname => "Test Borrower Surname 4", bork => "bork" }) } "No property bork!", "Expected 'No property bork!' caught";
  46 is( $object2->surname(), "Test Borrower Surname 3", "Bad Set does not set field" );
  47 is( $ret, 0, "Set returns 0 when passed a bad property" );
  48
  49 warning_is { $ret = $object->bork() } 'No method bork!', "Expected 'No method bork!' caught for getter.";
  50 ok( ! defined $ret, 'Bad getter returns undef' );
  51 warning_is { $ret = $object->bork('bork') } 'No method bork!', "Expected 'No method bork!' caught for setter.";
  52 ok( ! defined $ret, 'Bad setter returns undef' );
  53
  54 my $borrower = Koha::Borrower->new({
  55         borrowernumber => '12345',
  56         cardnumber => '1234567890',
  57         surname => 'mySurname',
  58         firstname => 'myFirstname',
  59         title => 'Mr.',
  60         othernames => 'myOthernames',
  61         initials => 'MM',
  62         streetnumber => '100',
  63         streettype => 'Blvd',
  64         address => 'my personnal address',
  65         address2 => 'my adress2',
  66         city => 'Marseille',
  67         state => 'mystate',
  68         zipcode => '13006',
  69         country => 'France',
  70         email => 'mySurname.myFirstname@email.com',
  71         phone => '0402872934',
  72         mobile => '0627884632',
  73         fax => '0402872935',
  74         emailpro => 'myEmailPro@email.com',
  75         phonepro => '0402873334',
  76         B_streetnumber => '101',
  77         B_streettype => 'myB_streettype',
  78         B_address => 'myB_address',
  79         B_address2 => 'myB_address2',
  80         B_city => 'myB_city',
  81         B_state => 'myB_state',
  82         B_zipcode => '23456',
  83         B_country => 'myB_country',
  84         B_email => 'myB_email',
  85         B_phone => '0678353935',
  86         dateofbirth => '1990-07-16',
  87         branchcode => 'myBranCode',
  88         categorycode => 'myCatCode',
  89         dateenrolled => '2015-03-19',
  90         dateexpiry => '2016-03-19',
  91         gonenoaddress => '0',
  92         lost => '0',
  93         debarred => '2015-04-19',
  94         debarredcomment => 'You are debarred',
  95         contactname => 'myContactname',
  96         contactfirstname => 'myContactfirstname',
  97         contacttitle => 'myContacttitle',
  98         guarantorid => '123454321',
  99         borrowernotes => 'borrowernotes',
 100         relationship => 'myRelationship',
 101         ethnicity => undef,
 102         ethnotes => undef,
 103         sex => 'M',
 104         password => 'hfkurhfe976634èj!',
 105         flags => '55555',
 106         userid => '87987',
 107         opacnote => 'myOpacnote',
 108         contactnote => 'myContactnote',
 109         sort1 => 'mySort1',
 110         sort2 => 'mySort2',
 111         altcontactfirstname => 'myAltcontactfirstname',
 112         altcontactsurname => 'myAltcontactsurname',
 113         altcontactaddress1 => 'myAltcontactaddress1',
 114         altcontactaddress2 => 'myAltcontactaddress2',
 115         altcontactaddress3 => 'myAltcontactaddress3',
 116         altcontactstate => 'myAltcontactstate',
 117         altcontactzipcode => '465843',
 118         altcontactcountry => 'myOtherCountry',
 119         altcontactphone => 'myOtherphone',
 120         smsalertnumber => '0683027346',
 121         privacy => '667788',
 122 });
 123
 124 #borrower Accessor tests
 125 subtest 'Accessor tests' => sub{
 126         plan tests => 67;
 127         is( $borrower->borrowernumber, '12345', 'borrowernumber accessor returns correct value' );
 128         is( $borrower->cardnumber, '1234567890', 'cardnumber accessor returns correct value');
 129         is( $borrower->surname, 'mySurname', 'surname accessor returns correct value');
 130         is( $borrower->firstname, 'myFirstname', 'firstname accessor returns correct value');
 131         is( $borrower->title, 'Mr.', 'title accessor returns correct value');
 132         is( $borrower->othernames, 'myOthernames', 'othernames accessor returns correct value');
 133         is( $borrower->initials, 'MM', 'initials accessor returns correct value');
 134         is( $borrower->streetnumber, '100', 'streetnumber accessor returns correct value');
 135         is( $borrower->streettype, 'Blvd', 'streettype accessor returns correct value');
 136         is( $borrower->address, 'my personnal address', 'address accessor returns correct value');
 137         is( $borrower->address2, 'my adress2', 'address2 accessor returns correct value');
 138         is( $borrower->city, 'Marseille', 'city accessor returns correct value');
 139         is( $borrower->state, 'mystate', 'state accessor returns correct value');
 140         is( $borrower->zipcode, '13006', 'zipcode accessor returns correct value');
 141         is( $borrower->country, 'France', 'country accessor returns correct value');
 142         is( $borrower->email, 'mySurname.myFirstname@email.com', 'email accessor returns correct value');
 143         is( $borrower->phone, '0402872934', 'phone accessor returns correct value');
 144         is( $borrower->mobile, '0627884632', 'mobile accessor returns correct value');
 145         is( $borrower->fax, '0402872935', 'fax accessor returns correct value');
 146         is( $borrower->emailpro, 'myEmailPro@email.com', 'emailpro accessor returns correct value');
 147         is( $borrower->phonepro, '0402873334', 'phonepro accessor returns correct value');
 148         is( $borrower->B_streetnumber, '101', 'B_streetnumber accessor returns correct value');
 149         is( $borrower->B_streettype, 'myB_streettype', 'B_streettype accessor returns correct value');
 150         is( $borrower->B_address, 'myB_address', 'B_address accessor returns correct value');
 151         is( $borrower->B_address2, 'myB_address2', 'B_address2 accessor returns correct value');
 152         is( $borrower->B_city, 'myB_city', 'B_city accessor returns correct value');
 153         is( $borrower->B_state, 'myB_state', 'B_state accessor returns correct value');
 154         is( $borrower->B_zipcode, '23456', 'B_zipcode accessor returns correct value');
 155         is( $borrower->B_country, 'myB_country', 'B_country accessor returns correct value');
 156         is( $borrower->B_email, 'myB_email', 'B_email accessor returns correct value');
 157         is( $borrower->B_phone, '0678353935', 'B_phone accessor returns correct value');
 158         is( $borrower->dateofbirth, '1990-07-16', 'dateofbirth accessor returns correct value');
 159         is( $borrower->branchcode, 'myBranCode', 'branchcode accessor returns correct value');
 160         is( $borrower->categorycode, 'myCatCode', 'categorycode accessor returns correct value');
 161         is( $borrower->dateenrolled, '2015-03-19', 'dateenrolled accessor returns correct value');
 162         is( $borrower->dateexpiry, '2016-03-19', 'dateexpiry accessor returns correct value');
 163         is( $borrower->gonenoaddress, '0', 'gonenoaddress accessor returns correct value');
 164         is( $borrower->lost, '0', 'lost accessor returns correct value');
 165         is( $borrower->debarred, '2015-04-19', 'debarred accessor returns correct value');
 166         is( $borrower->debarredcomment, 'You are debarred', 'debarredcomment accessor returns correct value');
 167         is( $borrower->contactname, 'myContactname', 'contactname accessor returns correct value');
 168         is( $borrower->contactfirstname, 'myContactfirstname', 'contactfirstname accessor returns correct value');
 169         is( $borrower->contacttitle, 'myContacttitle', 'contacttitle accessor returns correct value');
 170         is( $borrower->guarantorid, '123454321', 'guarantorid accessor returns correct value');
 171         is( $borrower->borrowernotes, 'borrowernotes', 'borrowernotes accessor returns correct value');
 172         is( $borrower->relationship, 'myRelationship', 'relationship accessor returns correct value');
 173         is( $borrower->ethnicity, undef, 'ethnicity accessor returns correct value');
 174         is( $borrower->ethnotes, undef, 'ethnotes accessor returns correct value');
 175         is( $borrower->sex, 'M', 'sex accessor returns correct value');
 176         is( $borrower->password, 'hfkurhfe976634èj!', 'password accessor returns correct value');
 177         is( $borrower->flags, '55555', 'flags accessor returns correct value');
 178         is( $borrower->userid, '87987', 'userid accessor returns correct value');
 179         is( $borrower->opacnote, 'myOpacnote', 'opacnote accessor returns correct value');
 180         is( $borrower->contactnote, 'myContactnote', 'contactnote accessor returns correct value');
 181         is( $borrower->sort1, 'mySort1', 'sort1 accessor returns correct value');
 182         is( $borrower->sort2, 'mySort2', 'sort2 accessor returns correct value');
 183         is( $borrower->altcontactfirstname, 'myAltcontactfirstname', 'altcontactfirstname accessor returns correct value');
 184         is( $borrower->altcontactsurname, 'myAltcontactsurname', 'altcontactsurname accessor returns correct value');
 185         is( $borrower->altcontactaddress1, 'myAltcontactaddress1', 'altcontactaddress1 accessor returns correct value');
 186         is( $borrower->altcontactaddress2, 'myAltcontactaddress2', 'altcontactaddress2 accessor returns correct value');
 187         is( $borrower->altcontactaddress3, 'myAltcontactaddress3', 'altcontactaddress3 accessor returns correct value');
 188         is( $borrower->altcontactstate, 'myAltcontactstate', 'altcontactstate accessor returns correct value');
 189         is( $borrower->altcontactzipcode, '465843', 'altcontactzipcode accessor returns correct value');
 190         is( $borrower->altcontactcountry, 'myOtherCountry', 'altcontactcountry accessor returns correct value');
 191         is( $borrower->altcontactphone, 'myOtherphone', 'altcontactphone accessor returns correct value');
 192         is( $borrower->smsalertnumber, '0683027346', 'smsalertnumber accessor returns correct value');
 193         is( $borrower->privacy, '667788', 'privacy accessor returns correct value');
 194 };
 195
 196
 197 #borrower Set tests
 198 subtest 'Set tests' => sub{
 199         plan tests => 67;
 200
 201         $borrower->set({
 202                 borrowernumber => '12346',
 203                 cardnumber => '1234567891',
 204                 surname => 'SmySurname',
 205                 firstname => 'SmyFirstname',
 206                 title => 'Mme.',
 207                 othernames => 'SmyOthernames',
 208                 initials => 'SS',
 209                 streetnumber => '200',
 210                 streettype => 'Rue',
 211                 address => 'Smy personnal address',
 212                 address2 => 'Smy adress2',
 213                 city => 'Lyon',
 214                 state => 'Smystate',
 215                 zipcode => '69000',
 216                 country => 'France',
 217                 email => 'SmySurname.myFirstname@email.com',
 218                 phone => '0402872935',
 219                 mobile => '0627884633',
 220                 fax => '0402872936',
 221                 emailpro => 'SmyEmailPro@email.com',
 222                 phonepro => '0402873335',
 223                 B_streetnumber => '102',
 224                 B_streettype => 'SmyB_streettype',
 225                 B_address => 'SmyB_address',
 226                 B_address2 => 'SmyB_address2',
 227                 B_city => 'SmyB_city',
 228                 B_state => 'SmyB_state',
 229                 B_zipcode => '12333',
 230                 B_country => 'SmyB_country',
 231                 B_email => 'SmyB_email',
 232                 B_phone => '0678353936',
 233                 dateofbirth => '1991-07-16',
 234                 branchcode => 'SmyBranCode',
 235                 categorycode => 'SmyCatCode',
 236                 dateenrolled => '2014-03-19',
 237                 dateexpiry => '2017-03-19',
 238                 gonenoaddress => '1',
 239                 lost => '1',
 240                 debarred => '2016-04-19',
 241                 debarredcomment => 'You are still debarred',
 242                 contactname => 'SmyContactname',
 243                 contactfirstname => 'SmyContactfirstname',
 244                 contacttitle => 'SmyContacttitle',
 245                 guarantorid => '223454321',
 246                 borrowernotes => 'Sborrowernotes',
 247                 relationship => 'SmyRelationship',
 248                 ethnicity => undef,
 249                 ethnotes => undef,
 250                 sex => 'F',
 251                 password => 'zerzerzer#',
 252                 flags => '666666',
 253                 userid => '98233',
 254                 opacnote => 'SmyOpacnote',
 255                 contactnote => 'SmyContactnote',
 256                 sort1 => 'SmySort1',
 257                 sort2 => 'SmySort2',
 258                 altcontactfirstname => 'SmyAltcontactfirstname',
 259                 altcontactsurname => 'SmyAltcontactsurname',
 260                 altcontactaddress1 => 'SmyAltcontactaddress1',
 261                 altcontactaddress2 => 'SmyAltcontactaddress2',
 262                 altcontactaddress3 => 'SmyAltcontactaddress3',
 263                 altcontactstate => 'SmyAltcontactstate',
 264                 altcontactzipcode => '565843',
 265                 altcontactcountry => 'SmyOtherCountry',
 266                 altcontactphone => 'SmyOtherphone',
 267                 smsalertnumber => '0683027347',
 268                 privacy => '667789'
 269         });
 270
 271         is( $borrower->borrowernumber, '12346', 'borrowernumber field set ok');
 272         is( $borrower->cardnumber, '1234567891', 'cardnumber field set ok');
 273         is( $borrower->surname, 'SmySurname', 'surname field set ok');
 274         is( $borrower->firstname, 'SmyFirstname', 'firstname field set ok');
 275         is( $borrower->title, 'Mme.', 'title field set ok');
 276         is( $borrower->othernames, 'SmyOthernames', 'othernames field set ok');
 277         is( $borrower->initials, 'SS', 'initials field set ok');
 278         is( $borrower->streetnumber, '200', 'streetnumber field set ok');
 279         is( $borrower->streettype, 'Rue', 'streettype field set ok');
 280         is( $borrower->address, 'Smy personnal address', 'address field set ok');
 281         is( $borrower->address2, 'Smy adress2', 'address2 field set ok');
 282         is( $borrower->city, 'Lyon', 'city field set ok');
 283         is( $borrower->state, 'Smystate', 'state field set ok');
 284         is( $borrower->zipcode, '69000', 'zipcode field set ok');
 285         is( $borrower->country, 'France', 'country field set ok');
 286         is( $borrower->email, 'SmySurname.myFirstname@email.com', 'email field set ok');
 287         is( $borrower->phone, '0402872935', 'phone field set ok');
 288         is( $borrower->mobile, '0627884633', 'mobile field set ok');
 289         is( $borrower->fax, '0402872936', 'fax field set ok');
 290         is( $borrower->emailpro, 'SmyEmailPro@email.com', 'emailpro field set ok');
 291         is( $borrower->phonepro, '0402873335', 'phonepro field set ok');
 292         is( $borrower->B_streetnumber, '102', 'B_streetnumber field set ok');
 293         is( $borrower->B_streettype, 'SmyB_streettype', 'B_streettype field set ok');
 294         is( $borrower->B_address, 'SmyB_address', 'B_address field set ok');
 295         is( $borrower->B_address2, 'SmyB_address2', 'B_address2 field set ok');
 296         is( $borrower->B_city, 'SmyB_city', 'B_city field set ok');
 297         is( $borrower->B_state, 'SmyB_state', 'B_state field set ok');
 298         is( $borrower->B_zipcode, '12333', 'B_zipcode field set ok');
 299         is( $borrower->B_country, 'SmyB_country', 'B_country field set ok');
 300         is( $borrower->B_email, 'SmyB_email', 'B_email field set ok');
 301         is( $borrower->B_phone, '0678353936', 'B_phone field set ok');
 302         is( $borrower->dateofbirth, '1991-07-16', 'dateofbirth field set ok');
 303         is( $borrower->branchcode, 'SmyBranCode', 'branchcode field set ok');
 304         is( $borrower->categorycode, 'SmyCatCode', 'categorycode field set ok');
 305         is( $borrower->dateenrolled, '2014-03-19', 'dateenrolled field set ok');
 306         is( $borrower->dateexpiry, '2017-03-19', 'dateexpiry field set ok');
 307         is( $borrower->gonenoaddress, '1', 'gonenoaddress field set ok');
 308         is( $borrower->lost, '1', 'lost field set ok');
 309         is( $borrower->debarred, '2016-04-19', 'debarred field set ok');
 310         is( $borrower->debarredcomment, 'You are still debarred', 'debarredcomment field set ok');
 311         is( $borrower->contactname, 'SmyContactname', 'contactname field set ok');
 312         is( $borrower->contactfirstname, 'SmyContactfirstname', 'contactfirstname field set ok');
 313         is( $borrower->contacttitle, 'SmyContacttitle', 'contacttitle field set ok');
 314         is( $borrower->guarantorid, '223454321', 'guarantorid field set ok');
 315         is( $borrower->borrowernotes, 'Sborrowernotes', 'borrowernotes field set ok');
 316         is( $borrower->relationship, 'SmyRelationship', 'relationship field set ok');
 317         is( $borrower->ethnicity, undef, 'ethnicity field set ok');
 318         is( $borrower->ethnotes, undef, 'ethnotes field set ok');
 319         is( $borrower->sex, 'F', 'sex field set ok');
 320         is( $borrower->password, 'zerzerzer#', 'password field set ok');
 321         is( $borrower->flags, '666666', 'flags field set ok');
 322         is( $borrower->userid, '98233', 'userid field set ok');
 323         is( $borrower->opacnote, 'SmyOpacnote', 'opacnote field set ok');
 324         is( $borrower->contactnote, 'SmyContactnote', 'contactnote field set ok');
 325         is( $borrower->sort1, 'SmySort1', 'sort1 field set ok');
 326         is( $borrower->sort2, 'SmySort2', 'sort2 field set ok');
 327         is( $borrower->altcontactfirstname, 'SmyAltcontactfirstname', 'altcontactfirstname field set ok');
 328         is( $borrower->altcontactsurname, 'SmyAltcontactsurname', 'altcontactsurname field set ok');
 329         is( $borrower->altcontactaddress1, 'SmyAltcontactaddress1', 'altcontactaddress1 field set ok');
 330         is( $borrower->altcontactaddress2, 'SmyAltcontactaddress2', 'altcontactaddress2 field set ok');
 331         is( $borrower->altcontactaddress3, 'SmyAltcontactaddress3', 'altcontactaddress3 field set ok');
 332         is( $borrower->altcontactstate, 'SmyAltcontactstate', 'altcontactstate field set ok');
 333         is( $borrower->altcontactzipcode, '565843', 'altcontactzipcode field set ok');
 334         is( $borrower->altcontactcountry, 'SmyOtherCountry', 'altcontactcountry field set ok');
 335         is( $borrower->altcontactphone, 'SmyOtherphone', 'altcontactphone field set ok');
 336         is( $borrower->smsalertnumber, '0683027347', 'smsalertnumber field set ok');
 337         is( $borrower->privacy, '667789', 'privacy field set ok');
 338 };
 339
 340 1;