t/Koha/Exceptions.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 => 6;
  21 use Test::MockObject;
  22 use Test::Exception;
  23
  24 subtest 'Koha::Exceptions::Hold tests' => sub {
  25
  26     plan tests => 5;
  27
  28     use_ok('Koha::Exceptions::Hold');
  29
  30     throws_ok
  31         { Koha::Exceptions::Hold::CannotSuspendFound->throw( status => 'W' ); }
  32         'Koha::Exceptions::Hold::CannotSuspendFound',
  33         'Exception is thrown :-D';
  34
  35     # stringify the exception
  36     is( "$@", 'Found hold cannot be suspended. Status=W', 'Exception stringified correctly' );
  37
  38     throws_ok
  39         { Koha::Exceptions::Hold::CannotSuspendFound->throw( "Manual message exception" ) }
  40         'Koha::Exceptions::Hold::CannotSuspendFound',
  41         'Exception is thrown :-D';
  42     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
  43 };
  44
  45 subtest 'Koha::Exceptions::Object::FKConstraint tests' => sub {
  46
  47     plan tests => 9;
  48
  49     use_ok('Koha::Exceptions::Object');
  50
  51     throws_ok
  52         { Koha::Exceptions::Object::FKConstraint->throw( broken_fk => 'nasty', value => 'fk' ); }
  53         'Koha::Exceptions::Object::FKConstraint',
  54         'Exception is thrown :-D';
  55
  56     # stringify the exception
  57     is( "$@", 'Invalid parameter passed, nasty=fk does not exist', 'Exception stringified correctly' );
  58
  59     throws_ok
  60         { Koha::Exceptions::Object::FKConstraint->throw( "Manual message exception" ) }
  61         'Koha::Exceptions::Object::FKConstraint',
  62         'Exception is thrown :-D';
  63     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
  64
  65     throws_ok {
  66         Koha::Exceptions::Object::BadValue->throw(
  67             type     => 'datetime',
  68             property => 'a_property',
  69             value    => 'a_value'
  70         );
  71     }
  72     'Koha::Exceptions::Object::BadValue',
  73         'Koha::Exceptions::Object::BadValue exception is thrown :-D';
  74
  75     # stringify the exception
  76     is( "$@", 'Invalid value passed, a_property=a_value expected type is datetime', 'Koha::Exceptions::Object::BadValue stringified correctly' );
  77
  78     throws_ok
  79         { Koha::Exceptions::Object::BadValue->throw( "Manual message exception" ) }
  80         'Koha::Exceptions::Object::BadValue',
  81         'Koha::Exceptions::Object::BadValue is thrown :-D';
  82     is( "$@", 'Manual message exception', 'Koha::Exceptions::Object::BadValue not stringified if manually passed' );
  83 };
  84
  85 subtest 'Koha::Exceptions::Password tests' => sub {
  86
  87     plan tests => 5;
  88
  89     use_ok('Koha::Exceptions::Password');
  90
  91     throws_ok
  92         { Koha::Exceptions::Password::TooShort->throw( length => 4, min_length => 5 ); }
  93         'Koha::Exceptions::Password::TooShort',
  94         'Exception is thrown :-D';
  95
  96     # stringify the exception
  97     is( "$@", 'Password length (4) is shorter than required (5)', 'Exception stringified correctly' );
  98
  99     throws_ok
 100         { Koha::Exceptions::Password::TooShort->throw( "Manual message exception" ) }
 101         'Koha::Exceptions::Password::TooShort',
 102         'Exception is thrown :-D';
 103     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
 104 };
 105
 106 subtest 'Koha::Exceptions::Metadata tests' => sub {
 107
 108     plan tests => 5;
 109
 110     use_ok('Koha::Exceptions::Metadata');
 111
 112     my $object = Test::MockObject->new;
 113     $object->mock( 'id', 'an_id' );
 114     $object->mock( 'biblionumber', 'a_biblionumber' );
 115     $object->mock( 'format', 'a_format' );
 116     $object->mock( 'schema', 'a_schema' );
 117
 118     throws_ok
 119         { Koha::Exceptions::Metadata::Invalid->throw(
 120             id => 'an_id', biblionumber => 'a_biblionumber', format => 'a_format',
 121             schema => 'a_schema', decoding_error => 'a_nasty_error' ); }
 122         'Koha::Exceptions::Metadata::Invalid',
 123         'Exception is thrown :-D';
 124
 125     # stringify the exception
 126     is( "$@", 'Invalid data, cannot decode metadata object (biblio_metadata.id=an_id, biblionumber=a_biblionumber, format=a_format, schema=a_schema, decoding_error=\'a_nasty_error\')', 'Exception stringified correctly' );
 127
 128     throws_ok
 129         { Koha::Exceptions::Metadata::Invalid->throw( "Manual message exception" ) }
 130         'Koha::Exceptions::Metadata::Invalid',
 131         'Exception is thrown :-D';
 132     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
 133 };
 134
 135 subtest 'Koha::Exceptions::Patron::Relationship tests' => sub {
 136
 137     plan tests => 9;
 138
 139     use_ok('Koha::Exceptions::Patron::Relationship');
 140
 141     throws_ok
 142         { Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw( no_relationship => 1 ); }
 143         'Koha::Exceptions::Patron::Relationship::InvalidRelationship',
 144         'Exception is thrown :-D';
 145
 146     # stringify the exception
 147     is( "$@", 'No relationship passed.', 'Exception stringified correctly' );
 148
 149     throws_ok
 150         { Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw( relationship => 'some' ); }
 151         'Koha::Exceptions::Patron::Relationship::InvalidRelationship',
 152         'Exception is thrown :-D';
 153
 154     # stringify the exception
 155     is( "$@", "Invalid relationship passed, 'some' is not defined.", 'Exception stringified correctly' );
 156
 157     my $guarantor_id = 1;
 158     my $guarantee_id = 2;
 159
 160     throws_ok {
 161         Koha::Exceptions::Patron::Relationship::DuplicateRelationship->throw(
 162             guarantor_id => $guarantor_id,
 163             guarantee_id => $guarantee_id
 164         );
 165     }
 166     'Koha::Exceptions::Patron::Relationship::DuplicateRelationship', 'Exception is thrown :-D';
 167
 168     # stringify the exception
 169     is( "$@",
 170         "There already exists a relationship for the same guarantor ($guarantor_id) and guarantee ($guarantee_id) combination",
 171         'Exception stringified correctly'
 172     );
 173
 174     throws_ok
 175         { Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw( "Manual message exception" ) }
 176         'Koha::Exceptions::Patron::Relationship::InvalidRelationship',
 177         'Exception is thrown :-D';
 178     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
 179 };
 180
 181 subtest 'Koha::Exceptions::Object::NotInstantiated tests' => sub {
 182
 183     plan tests => 4;
 184
 185     throws_ok
 186         { Koha::Exceptions::Object::NotInstantiated->throw(
 187             method => 'brain_explode', class => 'Koha::JD' ); }
 188         'Koha::Exceptions::Object::NotInstantiated',
 189         'Exception is thrown :-D';
 190
 191     # stringify the exception
 192     is( "$@", 'Tried to access the \'brain_explode\' method, but Koha::JD is not instantiated', 'Exception stringified correctly' );
 193
 194     throws_ok
 195         { Koha::Exceptions::Object::NotInstantiated->throw( "Manual message exception" ) }
 196         'Koha::Exceptions::Object::NotInstantiated',
 197         'Exception is thrown :-D';
 198     is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
 199 };