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" }) }
  46             "No property bork!",
  47             "Expected 'No property bork!' caught";
  48 is( $object2->surname(), "Test Borrower Surname 3", "Bad Set does not set field" );
  49 is( $ret, 0, "Set returns 0 when passed a bad property" );
  50
  51 warning_is { $ret = $object->bork() }
  52             "No method bork!",
  53             "Expected 'No method bork!' caught for getter.";
  54 ok( ! defined $ret, 'Bad getter returns undef' );
  55
  56 warning_is { $ret = $object->bork('bork') }
  57             "No method bork!",
  58             "Expected 'No method bork!' caught for setter.";
  59 ok( ! defined $ret, 'Bad setter returns undef' );
  60
  61 my $borrower = Koha::Borrower->new(
  62     {
  63         borrowernumber      => '12345',
  64         cardnumber          => '1234567890',
  65         surname             => 'mySurname',
  66         firstname           => 'myFirstname',
  67         title               => 'Mr.',
  68         othernames          => 'myOthernames',
  69         initials            => 'MM',
  70         streetnumber        => '100',
  71         streettype          => 'Blvd',
  72         address             => 'my personnal address',
  73         address2            => 'my adress2',
  74         city                => 'Marseille',
  75         state               => 'mystate',
  76         zipcode             => '13006',
  77         country             => 'France',
  78         email               => 'mySurname.myFirstname@email.com',
  79         phone               => '0402872934',
  80         mobile              => '0627884632',
  81         fax                 => '0402872935',
  82         emailpro            => 'myEmailPro@email.com',
  83         phonepro            => '0402873334',
  84         B_streetnumber      => '101',
  85         B_streettype        => 'myB_streettype',
  86         B_address           => 'myB_address',
  87         B_address2          => 'myB_address2',
  88         B_city              => 'myB_city',
  89         B_state             => 'myB_state',
  90         B_zipcode           => '23456',
  91         B_country           => 'myB_country',
  92         B_email             => 'myB_email',
  93         B_phone             => '0678353935',
  94         dateofbirth         => '1990-07-16',
  95         branchcode          => 'myBranCode',
  96         categorycode        => 'myCatCode',
  97         dateenrolled        => '2015-03-19',
  98         dateexpiry          => '2016-03-19',
  99         gonenoaddress       => '0',
 100         lost                => '0',
 101         debarred            => '2015-04-19',
 102         debarredcomment     => 'You are debarred',
 103         contactname         => 'myContactname',
 104         contactfirstname    => 'myContactfirstname',
 105         contacttitle        => 'myContacttitle',
 106         guarantorid         => '123454321',
 107         borrowernotes       => 'borrowernotes',
 108         relationship        => 'myRelationship',
 109         ethnicity           => undef,
 110         ethnotes            => undef,
 111         sex                 => 'M',
 112         password            => 'hfkurhfe976634èj!',
 113         flags               => '55555',
 114         userid              => '87987',
 115         opacnote            => 'myOpacnote',
 116         contactnote         => 'myContactnote',
 117         sort1               => 'mySort1',
 118         sort2               => 'mySort2',
 119         altcontactfirstname => 'myAltcontactfirstname',
 120         altcontactsurname   => 'myAltcontactsurname',
 121         altcontactaddress1  => 'myAltcontactaddress1',
 122         altcontactaddress2  => 'myAltcontactaddress2',
 123         altcontactaddress3  => 'myAltcontactaddress3',
 124         altcontactstate     => 'myAltcontactstate',
 125         altcontactzipcode   => '465843',
 126         altcontactcountry   => 'myOtherCountry',
 127         altcontactphone     => 'myOtherphone',
 128         smsalertnumber      => '0683027346',
 129         privacy             => '667788',
 130     }
 131 );
 132
 133 #borrower Accessor tests
 134 subtest 'Accessor tests' => sub {
 135     plan tests => 67;
 136     is( $borrower->borrowernumber, '12345',                           'borrowernumber accessor returns correct value' );
 137     is( $borrower->cardnumber,     '1234567890',                      'cardnumber accessor returns correct value' );
 138     is( $borrower->surname,        'mySurname',                       'surname accessor returns correct value' );
 139     is( $borrower->firstname,      'myFirstname',                     'firstname accessor returns correct value' );
 140     is( $borrower->title,          'Mr.',                             'title accessor returns correct value' );
 141     is( $borrower->othernames,     'myOthernames',                    'othernames accessor returns correct value' );
 142     is( $borrower->initials,       'MM',                              'initials accessor returns correct value' );
 143     is( $borrower->streetnumber,   '100',                             'streetnumber accessor returns correct value' );
 144     is( $borrower->streettype,     'Blvd',                            'streettype accessor returns correct value' );
 145     is( $borrower->address,        'my personnal address',            'address accessor returns correct value' );
 146     is( $borrower->address2,       'my adress2',                      'address2 accessor returns correct value' );
 147     is( $borrower->city,           'Marseille',                       'city accessor returns correct value' );
 148     is( $borrower->state,          'mystate',                         'state accessor returns correct value' );
 149     is( $borrower->zipcode,        '13006',                           'zipcode accessor returns correct value' );
 150     is( $borrower->country,        'France',                          'country accessor returns correct value' );
 151     is( $borrower->email,          'mySurname.myFirstname@email.com', 'email accessor returns correct value' );
 152     is( $borrower->phone,          '0402872934',                      'phone accessor returns correct value' );
 153     is( $borrower->mobile,         '0627884632',                      'mobile accessor returns correct value' );
 154     is( $borrower->fax,            '0402872935',                      'fax accessor returns correct value' );
 155     is( $borrower->emailpro,       'myEmailPro@email.com',            'emailpro accessor returns correct value' );
 156     is( $borrower->phonepro,       '0402873334',                      'phonepro accessor returns correct value' );
 157     is( $borrower->B_streetnumber, '101',                             'B_streetnumber accessor returns correct value' );
 158     is( $borrower->B_streettype,   'myB_streettype',                  'B_streettype accessor returns correct value' );
 159     is( $borrower->B_address,      'myB_address',                     'B_address accessor returns correct value' );
 160     is( $borrower->B_address2,     'myB_address2',                    'B_address2 accessor returns correct value' );
 161     is( $borrower->B_city,         'myB_city',                        'B_city accessor returns correct value' );
 162     is( $borrower->B_state,        'myB_state',                       'B_state accessor returns correct value' );
 163     is( $borrower->B_zipcode,      '23456',                           'B_zipcode accessor returns correct value' );
 164     is( $borrower->B_country,      'myB_country',                     'B_country accessor returns correct value' );
 165     is( $borrower->B_email,        'myB_email',                       'B_email accessor returns correct value' );
 166     is( $borrower->B_phone,        '0678353935',                      'B_phone accessor returns correct value' );
 167     is( $borrower->dateofbirth,    '1990-07-16',                      'dateofbirth accessor returns correct value' );
 168     is( $borrower->branchcode,     'myBranCode',                      'branchcode accessor returns correct value' );
 169     is( $borrower->categorycode,   'myCatCode',                       'categorycode accessor returns correct value' );
 170     is( $borrower->dateenrolled,   '2015-03-19',                      'dateenrolled accessor returns correct value' );
 171     is( $borrower->dateexpiry,     '2016-03-19',                      'dateexpiry accessor returns correct value' );
 172     is( $borrower->gonenoaddress,  '0',                               'gonenoaddress accessor returns correct value' );
 173     is( $borrower->lost,           '0',                               'lost accessor returns correct value' );
 174     is( $borrower->debarred,       '2015-04-19',                      'debarred accessor returns correct value' );
 175     is( $borrower->debarredcomment,     'You are debarred',      'debarredcomment accessor returns correct value' );
 176     is( $borrower->contactname,         'myContactname',         'contactname accessor returns correct value' );
 177     is( $borrower->contactfirstname,    'myContactfirstname',    'contactfirstname accessor returns correct value' );
 178     is( $borrower->contacttitle,        'myContacttitle',        'contacttitle accessor returns correct value' );
 179     is( $borrower->guarantorid,         '123454321',             'guarantorid accessor returns correct value' );
 180     is( $borrower->borrowernotes,       'borrowernotes',         'borrowernotes accessor returns correct value' );
 181     is( $borrower->relationship,        'myRelationship',        'relationship accessor returns correct value' );
 182     is( $borrower->ethnicity,           undef,                   'ethnicity accessor returns correct value' );
 183     is( $borrower->ethnotes,            undef,                   'ethnotes accessor returns correct value' );
 184     is( $borrower->sex,                 'M',                     'sex accessor returns correct value' );
 185     is( $borrower->password,            'hfkurhfe976634èj!',    'password accessor returns correct value' );
 186     is( $borrower->flags,               '55555',                 'flags accessor returns correct value' );
 187     is( $borrower->userid,              '87987',                 'userid accessor returns correct value' );
 188     is( $borrower->opacnote,            'myOpacnote',            'opacnote accessor returns correct value' );
 189     is( $borrower->contactnote,         'myContactnote',         'contactnote accessor returns correct value' );
 190     is( $borrower->sort1,               'mySort1',               'sort1 accessor returns correct value' );
 191     is( $borrower->sort2,               'mySort2',               'sort2 accessor returns correct value' );
 192     is( $borrower->altcontactfirstname, 'myAltcontactfirstname', 'altcontactfirstname accessor returns correct value' );
 193     is( $borrower->altcontactsurname,   'myAltcontactsurname',   'altcontactsurname accessor returns correct value' );
 194     is( $borrower->altcontactaddress1,  'myAltcontactaddress1',  'altcontactaddress1 accessor returns correct value' );
 195     is( $borrower->altcontactaddress2,  'myAltcontactaddress2',  'altcontactaddress2 accessor returns correct value' );
 196     is( $borrower->altcontactaddress3,  'myAltcontactaddress3',  'altcontactaddress3 accessor returns correct value' );
 197     is( $borrower->altcontactstate,     'myAltcontactstate',     'altcontactstate accessor returns correct value' );
 198     is( $borrower->altcontactzipcode,   '465843',                'altcontactzipcode accessor returns correct value' );
 199     is( $borrower->altcontactcountry,   'myOtherCountry',        'altcontactcountry accessor returns correct value' );
 200     is( $borrower->altcontactphone,     'myOtherphone',          'altcontactphone accessor returns correct value' );
 201     is( $borrower->smsalertnumber,      '0683027346',            'smsalertnumber accessor returns correct value' );
 202     is( $borrower->privacy,             '667788',                'privacy accessor returns correct value' );
 203 };
 204
 205 #borrower Set tests
 206 subtest 'Set tests' => sub {
 207     plan tests => 67;
 208
 209     $borrower->set(
 210         {
 211             borrowernumber      => '12346',
 212             cardnumber          => '1234567891',
 213             surname             => 'SmySurname',
 214             firstname           => 'SmyFirstname',
 215             title               => 'Mme.',
 216             othernames          => 'SmyOthernames',
 217             initials            => 'SS',
 218             streetnumber        => '200',
 219             streettype          => 'Rue',
 220             address             => 'Smy personnal address',
 221             address2            => 'Smy adress2',
 222             city                => 'Lyon',
 223             state               => 'Smystate',
 224             zipcode             => '69000',
 225             country             => 'France',
 226             email               => 'SmySurname.myFirstname@email.com',
 227             phone               => '0402872935',
 228             mobile              => '0627884633',
 229             fax                 => '0402872936',
 230             emailpro            => 'SmyEmailPro@email.com',
 231             phonepro            => '0402873335',
 232             B_streetnumber      => '102',
 233             B_streettype        => 'SmyB_streettype',
 234             B_address           => 'SmyB_address',
 235             B_address2          => 'SmyB_address2',
 236             B_city              => 'SmyB_city',
 237             B_state             => 'SmyB_state',
 238             B_zipcode           => '12333',
 239             B_country           => 'SmyB_country',
 240             B_email             => 'SmyB_email',
 241             B_phone             => '0678353936',
 242             dateofbirth         => '1991-07-16',
 243             branchcode          => 'SmyBranCode',
 244             categorycode        => 'SmyCatCode',
 245             dateenrolled        => '2014-03-19',
 246             dateexpiry          => '2017-03-19',
 247             gonenoaddress       => '1',
 248             lost                => '1',
 249             debarred            => '2016-04-19',
 250             debarredcomment     => 'You are still debarred',
 251             contactname         => 'SmyContactname',
 252             contactfirstname    => 'SmyContactfirstname',
 253             contacttitle        => 'SmyContacttitle',
 254             guarantorid         => '223454321',
 255             borrowernotes       => 'Sborrowernotes',
 256             relationship        => 'SmyRelationship',
 257             ethnicity           => undef,
 258             ethnotes            => undef,
 259             sex                 => 'F',
 260             password            => 'zerzerzer#',
 261             flags               => '666666',
 262             userid              => '98233',
 263             opacnote            => 'SmyOpacnote',
 264             contactnote         => 'SmyContactnote',
 265             sort1               => 'SmySort1',
 266             sort2               => 'SmySort2',
 267             altcontactfirstname => 'SmyAltcontactfirstname',
 268             altcontactsurname   => 'SmyAltcontactsurname',
 269             altcontactaddress1  => 'SmyAltcontactaddress1',
 270             altcontactaddress2  => 'SmyAltcontactaddress2',
 271             altcontactaddress3  => 'SmyAltcontactaddress3',
 272             altcontactstate     => 'SmyAltcontactstate',
 273             altcontactzipcode   => '565843',
 274             altcontactcountry   => 'SmyOtherCountry',
 275             altcontactphone     => 'SmyOtherphone',
 276             smsalertnumber      => '0683027347',
 277             privacy             => '667789'
 278         }
 279     );
 280
 281     is( $borrower->borrowernumber,      '12346',                            'borrowernumber field set ok' );
 282     is( $borrower->cardnumber,          '1234567891',                       'cardnumber field set ok' );
 283     is( $borrower->surname,             'SmySurname',                       'surname field set ok' );
 284     is( $borrower->firstname,           'SmyFirstname',                     'firstname field set ok' );
 285     is( $borrower->title,               'Mme.',                             'title field set ok' );
 286     is( $borrower->othernames,          'SmyOthernames',                    'othernames field set ok' );
 287     is( $borrower->initials,            'SS',                               'initials field set ok' );
 288     is( $borrower->streetnumber,        '200',                              'streetnumber field set ok' );
 289     is( $borrower->streettype,          'Rue',                              'streettype field set ok' );
 290     is( $borrower->address,             'Smy personnal address',            'address field set ok' );
 291     is( $borrower->address2,            'Smy adress2',                      'address2 field set ok' );
 292     is( $borrower->city,                'Lyon',                             'city field set ok' );
 293     is( $borrower->state,               'Smystate',                         'state field set ok' );
 294     is( $borrower->zipcode,             '69000',                            'zipcode field set ok' );
 295     is( $borrower->country,             'France',                           'country field set ok' );
 296     is( $borrower->email,               'SmySurname.myFirstname@email.com', 'email field set ok' );
 297     is( $borrower->phone,               '0402872935',                       'phone field set ok' );
 298     is( $borrower->mobile,              '0627884633',                       'mobile field set ok' );
 299     is( $borrower->fax,                 '0402872936',                       'fax field set ok' );
 300     is( $borrower->emailpro,            'SmyEmailPro@email.com',            'emailpro field set ok' );
 301     is( $borrower->phonepro,            '0402873335',                       'phonepro field set ok' );
 302     is( $borrower->B_streetnumber,      '102',                              'B_streetnumber field set ok' );
 303     is( $borrower->B_streettype,        'SmyB_streettype',                  'B_streettype field set ok' );
 304     is( $borrower->B_address,           'SmyB_address',                     'B_address field set ok' );
 305     is( $borrower->B_address2,          'SmyB_address2',                    'B_address2 field set ok' );
 306     is( $borrower->B_city,              'SmyB_city',                        'B_city field set ok' );
 307     is( $borrower->B_state,             'SmyB_state',                       'B_state field set ok' );
 308     is( $borrower->B_zipcode,           '12333',                            'B_zipcode field set ok' );
 309     is( $borrower->B_country,           'SmyB_country',                     'B_country field set ok' );
 310     is( $borrower->B_email,             'SmyB_email',                       'B_email field set ok' );
 311     is( $borrower->B_phone,             '0678353936',                       'B_phone field set ok' );
 312     is( $borrower->dateofbirth,         '1991-07-16',                       'dateofbirth field set ok' );
 313     is( $borrower->branchcode,          'SmyBranCode',                      'branchcode field set ok' );
 314     is( $borrower->categorycode,        'SmyCatCode',                       'categorycode field set ok' );
 315     is( $borrower->dateenrolled,        '2014-03-19',                       'dateenrolled field set ok' );
 316     is( $borrower->dateexpiry,          '2017-03-19',                       'dateexpiry field set ok' );
 317     is( $borrower->gonenoaddress,       '1',                                'gonenoaddress field set ok' );
 318     is( $borrower->lost,                '1',                                'lost field set ok' );
 319     is( $borrower->debarred,            '2016-04-19',                       'debarred field set ok' );
 320     is( $borrower->debarredcomment,     'You are still debarred',           'debarredcomment field set ok' );
 321     is( $borrower->contactname,         'SmyContactname',                   'contactname field set ok' );
 322     is( $borrower->contactfirstname,    'SmyContactfirstname',              'contactfirstname field set ok' );
 323     is( $borrower->contacttitle,        'SmyContacttitle',                  'contacttitle field set ok' );
 324     is( $borrower->guarantorid,         '223454321',                        'guarantorid field set ok' );
 325     is( $borrower->borrowernotes,       'Sborrowernotes',                   'borrowernotes field set ok' );
 326     is( $borrower->relationship,        'SmyRelationship',                  'relationship field set ok' );
 327     is( $borrower->ethnicity,           undef,                              'ethnicity field set ok' );
 328     is( $borrower->ethnotes,            undef,                              'ethnotes field set ok' );
 329     is( $borrower->sex,                 'F',                                'sex field set ok' );
 330     is( $borrower->password,            'zerzerzer#',                       'password field set ok' );
 331     is( $borrower->flags,               '666666',                           'flags field set ok' );
 332     is( $borrower->userid,              '98233',                            'userid field set ok' );
 333     is( $borrower->opacnote,            'SmyOpacnote',                      'opacnote field set ok' );
 334     is( $borrower->contactnote,         'SmyContactnote',                   'contactnote field set ok' );
 335     is( $borrower->sort1,               'SmySort1',                         'sort1 field set ok' );
 336     is( $borrower->sort2,               'SmySort2',                         'sort2 field set ok' );
 337     is( $borrower->altcontactfirstname, 'SmyAltcontactfirstname',           'altcontactfirstname field set ok' );
 338     is( $borrower->altcontactsurname,   'SmyAltcontactsurname',             'altcontactsurname field set ok' );
 339     is( $borrower->altcontactaddress1,  'SmyAltcontactaddress1',            'altcontactaddress1 field set ok' );
 340     is( $borrower->altcontactaddress2,  'SmyAltcontactaddress2',            'altcontactaddress2 field set ok' );
 341     is( $borrower->altcontactaddress3,  'SmyAltcontactaddress3',            'altcontactaddress3 field set ok' );
 342     is( $borrower->altcontactstate,     'SmyAltcontactstate',               'altcontactstate field set ok' );
 343     is( $borrower->altcontactzipcode,   '565843',                           'altcontactzipcode field set ok' );
 344     is( $borrower->altcontactcountry,   'SmyOtherCountry',                  'altcontactcountry field set ok' );
 345     is( $borrower->altcontactphone,     'SmyOtherphone',                    'altcontactphone field set ok' );
 346     is( $borrower->smsalertnumber,      '0683027347',                       'smsalertnumber field set ok' );
 347     is( $borrower->privacy,             '667789',                           'privacy field set ok' );
 348 };
 349
 350 1;