From 0af995a638561ddad6c034733c7fccdf0598d36a Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Fri, 7 Aug 2020 10:30:55 +0200 Subject: [PATCH] Bug 26171: adapt Koha/Exceptions.t Signed-off-by: Victor Grousset/tuxayo Signed-off-by: Nick Clemens --- t/Koha/Exceptions.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/Koha/Exceptions.t b/t/Koha/Exceptions.t index 13f83049ab..1a98779429 100755 --- a/t/Koha/Exceptions.t +++ b/t/Koha/Exceptions.t @@ -111,18 +111,19 @@ subtest 'Koha::Exceptions::Metadata tests' => sub { my $object = Test::MockObject->new; $object->mock( 'id', 'an_id' ); + $object->mock( 'biblionumber', 'a_biblionumber' ); $object->mock( 'format', 'a_format' ); $object->mock( 'schema', 'a_schema' ); throws_ok { Koha::Exceptions::Metadata::Invalid->throw( - id => 'an_id', format => 'a_format', + id => 'an_id', biblionumber => 'a_biblionumber', format => 'a_format', schema => 'a_schema', decoding_error => 'a_nasty_error' ); } 'Koha::Exceptions::Metadata::Invalid', 'Exception is thrown :-D'; # stringify the exception - is( "$@", 'Invalid data, cannot decode object (id=an_id, format=a_format, schema=a_schema, decoding_error=\'a_nasty_error\')', 'Exception stringified correctly' ); + is( "$@", 'Invalid data, cannot decode object (id=an_id, biblionumber=a_biblionumber, format=a_format, schema=a_schema, decoding_error=\'a_nasty_error\')', 'Exception stringified correctly' ); throws_ok { Koha::Exceptions::Metadata::Invalid->throw( "Manual message exception" ) } -- 2.11.0