1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
# Copyright 2014 - present MongoDB, Inc.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
use strict;
use warnings;
use Test::More 0.88;
use Test::Fatal;
use MongoDB::Error;
use MongoDB::BulkWriteResult;
# check if FIRST->throw give object that isa SECOND
my @isa_checks = qw(
MongoDB::Error MongoDB::Error
MongoDB::ConnectionError MongoDB::Error
);
while (@isa_checks) {
my ( $error, $isa ) = splice( @isa_checks, 0, 2 );
isa_ok( exception { $error->throw }, $isa );
}
my $result = MongoDB::BulkWriteResult->new(
acknowledged => 1,
write_errors => [],
write_concern_errors => [],
modified_count => 0,
inserted_count => 0,
upserted_count => 0,
matched_count => 0,
deleted_count => 0,
upserted => [],
inserted => [],
batch_count => 0,
op_count => 0,
);
my $error = exception {
MongoDB::WriteError->throw(
message => "whoops",
result => $result,
);
};
isa_ok( $error, 'MongoDB::DatabaseError', "MongoDB::WriteError" );
isa_ok( $error, 'MongoDB::Error', "MongoDB::WriteError" );
is( $error->message, "whoops", "object message captured" );
is_deeply( $error->result, $result, "object details captured" );
is( "$error", "MongoDB::WriteError: whoops", "object stringifies to class plus error message" );
done_testing;
# vim: ts=4 sts=4 sw=4 et:
|
