View | Details | Raw Unified | Return to bug 26171
Collapse All | Expand All

(-)a/t/Koha/Exceptions.t (-3 / +3 lines)
Lines 111-128 subtest 'Koha::Exceptions::Metadata tests' => sub { Link Here
111
111
112
    my $object = Test::MockObject->new;
112
    my $object = Test::MockObject->new;
113
    $object->mock( 'id', 'an_id' );
113
    $object->mock( 'id', 'an_id' );
114
    $object->mock( 'biblionumber', 'a_biblionumber' );
114
    $object->mock( 'format', 'a_format' );
115
    $object->mock( 'format', 'a_format' );
115
    $object->mock( 'schema', 'a_schema' );
116
    $object->mock( 'schema', 'a_schema' );
116
117
117
    throws_ok
118
    throws_ok
118
        { Koha::Exceptions::Metadata::Invalid->throw(
119
        { Koha::Exceptions::Metadata::Invalid->throw(
119
            id => 'an_id', format => 'a_format',
120
            id => 'an_id', biblionumber => 'a_biblionumber', format => 'a_format',
120
            schema => 'a_schema', decoding_error => 'a_nasty_error' ); }
121
            schema => 'a_schema', decoding_error => 'a_nasty_error' ); }
121
        'Koha::Exceptions::Metadata::Invalid',
122
        'Koha::Exceptions::Metadata::Invalid',
122
        'Exception is thrown :-D';
123
        'Exception is thrown :-D';
123
124
124
    # stringify the exception
125
    # stringify the exception
125
    is( "$@", 'Invalid data, cannot decode object (id=an_id, format=a_format, schema=a_schema, decoding_error=\'a_nasty_error\')', 'Exception stringified correctly' );
126
    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' );
126
127
127
    throws_ok
128
    throws_ok
128
        { Koha::Exceptions::Metadata::Invalid->throw( "Manual message exception" ) }
129
        { Koha::Exceptions::Metadata::Invalid->throw( "Manual message exception" ) }
129
- 

Return to bug 26171