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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
use 5.0001;
use strict;
use warnings;
use Test::More 0.96;
use Math::BigInt;
use lib 't/lib';
use lib 't/pvtlib';
use CleanEnv;
use TestUtils;
use JSON::MaybeXS;
use BSON qw/encode decode/;
use BSON::Types ':all';
my ($hash, $bson, $expect);
my $bigpos = Math::BigInt->new("2147483648");
my $bigneg = Math::BigInt->new("-2147483649");
# test constructor
packed_is( INT32, bson_int32(), 0, "empty bson_int32() is 0" );
packed_is( INT32, BSON::Int32->new, 0, "empty constructor is 0" );
# test constructor errors; these will wind up doubles on 32-bit platforms
eval { bson_int32(2**31) };
like( $@, qr/can't fit/, "bson_int32(2**31) fails" );
eval { bson_int32(-2**31-1) };
like( $@, qr/can't fit/, "bson_int32(-2**31-1) fails" );
# test constructor errors with Math::BigInt
eval { bson_int32($bigpos) };
like( $@, qr/can't fit/, "bson_int32(big BigInt) fails" );
eval { bson_int32($bigneg) };
like( $@, qr/can't fit/, "bson_int32(-big BigInt) fails" );
# test overloading
packed_is( INT32, bson_int32(314159), 314159, "overloading correct" );
subtest 'native' => sub {
# int32 -> int32
$bson = $expect = encode( { A => 314159 } );
$hash = decode( $bson );
is( sv_type( $hash->{A} ), 'IV', "int32->int32" );
packed_is( INT32, $hash->{A}, 314159, "value correct" );
# BSON::Int32 -> int32
$bson = encode( { A => bson_int32(314159) } );
$hash = decode( $bson );
is( sv_type( $hash->{A} ), 'IV', "BSON::Int32->int32" );
packed_is( INT32, $hash->{A}, 314159, "value correct" );
is( $bson, $expect, "BSON correct" );
# BSON::Int32(string) -> int32
$bson = encode( { A => bson_int32("314159") } );
$hash = decode( $bson );
is( sv_type( $hash->{A} ), 'IV', "BSON::Int32->int32" );
packed_is( INT32, $hash->{A}, 314159, "value correct" );
is( $bson, $expect, "BSON correct" );
};
subtest 'wrapped' => sub {
# int32 -> BSON::Int32
$bson = $expect = encode( { A => 314159 } );
$hash = decode( $bson, wrap_numbers => 1 );
is( ref( $hash->{A} ), 'BSON::Int32', "int32->BSON::Int32" );
packed_is( INT32, $hash->{A}, 314159, "value correct" );
# BSON::Int32 -> BSON::Int32
$bson = encode( { A => bson_int32(314159) } );
$hash = decode( $bson, wrap_numbers => 1 );
is( ref( $hash->{A} ), 'BSON::Int32', "int32->BSON::Int32" );
packed_is( INT32, $hash->{A}, 314159, "value correct" );
is( $bson, $expect, "BSON correct" );
# BSON::Int32(string) -> BSON::Int32
$bson = encode( { A => bson_int32("314159") } );
$hash = decode( $bson, wrap_numbers => 1 );
is( ref( $hash->{A} ), 'BSON::Int32', "int32->BSON::Int32" );
packed_is( INT32, $hash->{A}, 314159, "value correct" );
is( $bson, $expect, "BSON correct" );
};
# to JSON
SKIP: {
skip "JSON::PP has trouble with TO_JSON being false", 1
if ref JSON::MaybeXS->new eq 'JSON::PP';
is( to_myjson({a=>bson_int32(0)}), q[{"a":0}], 'bson_int32(0)' );
}
is( to_myjson({a=>bson_int32(42)}), q[{"a":42}], 'bson_int32(42)' );
# to extended JSON
SKIP: {
skip "JSON::PP has trouble with TO_JSON being false", 1
if ref JSON::MaybeXS->new eq 'JSON::PP';
is( to_extjson({a=>bson_int32(0)}), q[{"a":{"$numberInt":"0"}}], 'extjson: bson_int32(0)' );
}
is( to_extjson({a=>bson_int32(42)}), q[{"a":{"$numberInt":"42"}}], 'extjson: bson_int32(42)' );
done_testing;
#
# This file is part of BSON
#
# This software is Copyright (c) 2020 by Stefan G. and MongoDB, Inc.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
#
# vim: set ts=4 sts=4 sw=4 et tw=75:
|
