mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-08-14 10:53:23 +02:00
827eb4393c
The previous coding here didn't actually produce Inf or NaN double values in Perl versions 5.8.x. Adopt a suggestion from stackoverflow. Discussion: https://postgr.es/m/28585.1525131438@sss.pgh.pa.us
111 lines
2.1 KiB
PL/PgSQL
111 lines
2.1 KiB
PL/PgSQL
CREATE EXTENSION jsonb_plperl CASCADE;
|
|
|
|
|
|
CREATE FUNCTION testHVToJsonb() RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
$val = {a => 1, b => 'boo', c => undef};
|
|
return $val;
|
|
$$;
|
|
|
|
SELECT testHVToJsonb();
|
|
|
|
|
|
CREATE FUNCTION testAVToJsonb() RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
$val = [{a => 1, b => 'boo', c => undef}, {d => 2}];
|
|
return $val;
|
|
$$;
|
|
|
|
SELECT testAVToJsonb();
|
|
|
|
|
|
CREATE FUNCTION testSVToJsonb() RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
$val = 1;
|
|
return $val;
|
|
$$;
|
|
|
|
SELECT testSVToJsonb();
|
|
|
|
|
|
CREATE FUNCTION testInf() RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
$val = 9**9**9; # we assume this will overflow to +Inf
|
|
return $val;
|
|
$$;
|
|
|
|
SELECT testInf();
|
|
|
|
|
|
CREATE FUNCTION testNaN() RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
$val = sin(9**9**9); # we assume sin(inf) will yield NaN
|
|
return $val;
|
|
$$;
|
|
|
|
SELECT testNaN();
|
|
|
|
|
|
-- this revealed a bug in the original implementation
|
|
CREATE FUNCTION testRegexpResultToJsonb() RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
return ('1' =~ m(0\t2));
|
|
$$;
|
|
|
|
SELECT testRegexpResultToJsonb();
|
|
|
|
|
|
CREATE FUNCTION roundtrip(val jsonb) RETURNS jsonb
|
|
LANGUAGE plperl
|
|
TRANSFORM FOR TYPE jsonb
|
|
AS $$
|
|
return $_[0];
|
|
$$;
|
|
|
|
|
|
SELECT roundtrip('null');
|
|
SELECT roundtrip('1');
|
|
SELECT roundtrip('1E+131071');
|
|
SELECT roundtrip('-1');
|
|
SELECT roundtrip('1.2');
|
|
SELECT roundtrip('-1.2');
|
|
SELECT roundtrip('"string"');
|
|
SELECT roundtrip('"NaN"');
|
|
|
|
SELECT roundtrip('true');
|
|
SELECT roundtrip('false');
|
|
|
|
SELECT roundtrip('[]');
|
|
SELECT roundtrip('[null, null]');
|
|
SELECT roundtrip('[1, 2, 3]');
|
|
SELECT roundtrip('[-1, 2, -3]');
|
|
SELECT roundtrip('[1.2, 2.3, 3.4]');
|
|
SELECT roundtrip('[-1.2, 2.3, -3.4]');
|
|
SELECT roundtrip('["string1", "string2"]');
|
|
|
|
SELECT roundtrip('{}');
|
|
SELECT roundtrip('{"1": null}');
|
|
SELECT roundtrip('{"1": 1}');
|
|
SELECT roundtrip('{"1": -1}');
|
|
SELECT roundtrip('{"1": 1.1}');
|
|
SELECT roundtrip('{"1": -1.1}');
|
|
SELECT roundtrip('{"1": "string1"}');
|
|
|
|
SELECT roundtrip('{"1": {"2": [3, 4, 5]}, "2": 3}');
|
|
|
|
|
|
\set VERBOSITY terse \\ -- suppress cascade details
|
|
DROP EXTENSION plperl CASCADE;
|