3 # This file is part of Koha.
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.
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.
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>.
20 use Test::More tests => 12;
24 subtest 'Koha::Exceptions::Hold tests' => sub {
28 use_ok('Koha::Exceptions::Hold');
31 { Koha::Exceptions::Hold::CannotSuspendFound->throw( status => 'W' ); }
32 'Koha::Exceptions::Hold::CannotSuspendFound',
33 'Exception is thrown :-D';
35 # stringify the exception
36 is( "$@", 'Found hold cannot be suspended. Status=W', 'Exception stringified correctly' );
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' );
45 subtest 'Koha::Exceptions::Object::FKConstraint tests' => sub {
49 use_ok('Koha::Exceptions::Object');
52 { Koha::Exceptions::Object::FKConstraint->throw( broken_fk => 'nasty', value => 'fk' ); }
53 'Koha::Exceptions::Object::FKConstraint',
54 'Exception is thrown :-D';
56 # stringify the exception
57 is( "$@", 'Invalid parameter passed, nasty=fk does not exist', 'Exception stringified correctly' );
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' );
66 Koha::Exceptions::Object::BadValue->throw(
68 property => 'a_property',
72 'Koha::Exceptions::Object::BadValue',
73 'Koha::Exceptions::Object::BadValue exception is thrown :-D';
75 # stringify the exception
76 is( "$@", 'Invalid value passed, a_property=a_value expected type is datetime', 'Koha::Exceptions::Object::BadValue stringified correctly' );
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' );
85 subtest 'Koha::Exceptions::Password tests' => sub {
89 use_ok('Koha::Exceptions::Password');
92 { Koha::Exceptions::Password::TooShort->throw( length => 4, min_length => 5 ); }
93 'Koha::Exceptions::Password::TooShort',
94 'Exception is thrown :-D';
96 # stringify the exception
97 is( "$@", 'Password length (4) is shorter than required (5)', 'Exception stringified correctly' );
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' );
106 subtest 'Koha::Exceptions::Metadata tests' => sub {
110 use_ok('Koha::Exceptions::Metadata');
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' );
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';
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' );
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' );
135 subtest 'Koha::Exceptions::Patron::Relationship tests' => sub {
139 use_ok('Koha::Exceptions::Patron::Relationship');
142 { Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw( no_relationship => 1 ); }
143 'Koha::Exceptions::Patron::Relationship::InvalidRelationship',
144 'Exception is thrown :-D';
146 # stringify the exception
147 is( "$@", 'No relationship passed.', 'Exception stringified correctly' );
150 { Koha::Exceptions::Patron::Relationship::InvalidRelationship->throw( relationship => 'some' ); }
151 'Koha::Exceptions::Patron::Relationship::InvalidRelationship',
152 'Exception is thrown :-D';
154 # stringify the exception
155 is( "$@", "Invalid relationship passed, 'some' is not defined.", 'Exception stringified correctly' );
157 my $guarantor_id = 1;
158 my $guarantee_id = 2;
161 Koha::Exceptions::Patron::Relationship::DuplicateRelationship->throw(
162 guarantor_id => $guarantor_id,
163 guarantee_id => $guarantee_id
166 'Koha::Exceptions::Patron::Relationship::DuplicateRelationship', 'Exception is thrown :-D';
168 # stringify the exception
170 "There already exists a relationship for the same guarantor ($guarantor_id) and guarantee ($guarantee_id) combination",
171 'Exception stringified correctly'
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' );
181 subtest 'Koha::Exceptions::Object::NotInstantiated tests' => sub {
186 { Koha::Exceptions::Object::NotInstantiated->throw(
187 method => 'brain_explode', class => 'Koha::JD' ); }
188 'Koha::Exceptions::Object::NotInstantiated',
189 'Exception is thrown :-D';
191 # stringify the exception
192 is( "$@", 'Tried to access the \'brain_explode\' method, but Koha::JD is not instantiated', 'Exception stringified correctly' );
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' );
201 subtest 'Koha::Exceptions::Patron::Attribute::* tests' => sub {
205 use_ok("Koha::Exceptions::Patron::Attribute");
208 my $attribute = 'ATTRIBUTE';
210 my $mocked_attribute = Test::MockObject->new();
211 $mocked_attribute->mock('code', sub { return $code } );
212 $mocked_attribute->mock('attribute', sub { return $attribute } );
215 { Koha::Exceptions::Patron::Attribute::NonRepeatable->throw(
216 attribute => $mocked_attribute ); }
217 'Koha::Exceptions::Patron::Attribute::NonRepeatable',
218 'Exception is thrown :-D';
220 # stringify the exception
223 "Tried to add more than one non-repeatable attributes. type=$code value=$attribute",
224 'Exception stringified correctly'
228 { Koha::Exceptions::Patron::Attribute::NonRepeatable->throw( "Manual message exception" ) }
229 'Koha::Exceptions::Patron::Attribute::NonRepeatable',
230 'Exception is thrown :-D';
234 'Manual message exception',
235 'Exception not stringified if manually passed'
239 { Koha::Exceptions::Patron::Attribute::UniqueIDConstraint->throw(
240 attribute => $mocked_attribute ); }
241 'Koha::Exceptions::Patron::Attribute::UniqueIDConstraint',
242 'Exception is thrown :-D';
244 # stringify the exception
247 "Your action breaks a unique constraint on the attribute. type=$code value=$attribute",
248 'Exception stringified correctly'
252 { Koha::Exceptions::Patron::Attribute::UniqueIDConstraint->throw( "Manual message exception" ) }
253 'Koha::Exceptions::Patron::Attribute::UniqueIDConstraint',
254 'Exception is thrown :-D';
258 'Manual message exception',
259 'Exception not stringified if manually passed'
262 my $type = "SOME_TYPE";
265 { Koha::Exceptions::Patron::Attribute::InvalidType->throw(
267 'Koha::Exceptions::Patron::Attribute::InvalidType',
268 'Exception is thrown :-D';
270 # stringify the exception
273 "Tried to use an invalid attribute type. type=$type",
274 'Exception stringified correctly'
278 { Koha::Exceptions::Patron::Attribute::InvalidType->throw( "Manual message exception" ) }
279 'Koha::Exceptions::Patron::Attribute::InvalidType',
280 'Exception is thrown :-D';
284 'Manual message exception',
285 'Exception not stringified if manually passed'
289 subtest 'Koha::Exceptions::Patron tests' => sub {
293 use_ok("Koha::Exceptions::Patron");
298 { Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute->throw(
300 'Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute',
301 'Exception is thrown :-D';
303 # stringify the exception
304 is( "$@", "Missing mandatory extended attribute (type=$type)", 'Exception stringified correctly' );
307 { Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute->throw( "Manual message exception" ) }
308 'Koha::Exceptions::Patron::MissingMandatoryExtendedAttribute',
309 'Exception is thrown :-D';
310 is( "$@", 'Manual message exception', 'Exception not stringified if manually passed' );
313 subtest 'Koha::Exceptions::Plugin tests' => sub {
317 use_ok("Koha::Exceptions::Plugin");
319 my $plugin_class = 'yahey';
322 { Koha::Exceptions::Plugin::InstallDied->throw(
323 plugin_class => $plugin_class ); }
324 'Koha::Exceptions::Plugin::InstallDied',
325 'Exception is thrown :-D';
327 # stringify the exception
328 is( "$@", "Calling 'install' died for plugin $plugin_class", 'Exception stringified correctly' );
331 { Koha::Exceptions::Plugin::UpgradeDied->throw(
332 plugin_class => $plugin_class ); }
333 'Koha::Exceptions::Plugin::UpgradeDied',
334 'Exception is thrown :-D';
336 # stringify the exception
337 is( "$@", "Calling 'upgrade' died for plugin $plugin_class", 'Exception stringified correctly' );
340 subtest 'Koha::Exceptions::Booking tests' => sub {
344 use_ok('Koha::Exceptions::Booking');
346 throws_ok { Koha::Exceptions::Booking::Clash->throw() }
347 'Koha::Exceptions::Booking::Clash',
348 'Exception is thrown :-D';
350 # stringify the exception
351 is( "$@", '[Adding or updating the booking would result in a clash]', 'Exception stringified correctly' );
352 # FIXME: I don't understand why the stringified message here gets wrapped in square brackets...
355 subtest 'Koha::Exception tests' => sub {
361 use Exception::Class (
362 'Koha::Exceptions::Weird' => {
363 isa => 'Koha::Exception',
364 description => 'Weird exception!',
365 fields => [ 'a', 'b' ]
369 my $exception_message = "This is a message";
372 { Koha::Exceptions::Weird->throw( $exception_message ) }
374 'Exception is thrown :-D';
378 "Exception 'Koha::Exceptions::Weird' thrown '$exception_message'\n",
379 'Exception not stringified if manually passed'
383 { Koha::Exceptions::Weird->throw( a => "A", b => "B" ) }
385 'Exception is thrown :-D';
389 "Exception 'Koha::Exceptions::Weird' thrown 'Weird exception!' with a => A, b => B\n",
390 'Exception stringified correctly'
394 { Koha::Exceptions::Weird->throw( a => "A" ) }
396 'Exception is thrown :-D';
400 "Exception 'Koha::Exceptions::Weird' thrown 'Weird exception!' with a => A\n",
401 'Exception stringified correctly, b skipped entirely'
405 { Koha::Exceptions::Weird->throw() }
407 'Exception is thrown :-D';
411 "Exception 'Koha::Exceptions::Weird' thrown 'Weird exception!'\n",
412 'Exception stringified correctly'
416 subtest 'Passing parameters when throwing exception' => sub {
419 use Koha::Exceptions;
421 throws_ok { Koha::Exceptions::WrongParameter->throw( name => 'wrong1', type => 'ARRAY', value => [ 1, 2 ] ) } qr/Koha::Exceptions::WrongParameter/, 'Exception thrown';
423 like( $desc, qr/name => wrong1/, 'Found name' );
424 like( $desc, qr/type => ARRAY/, 'Found type' );
425 like( $desc, qr/value => ARRAY\(\w+\)/, 'Found value' );