database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-04-20 00:42:27 +03:00
Code

Tweak new jsonb_plperl test cases to work with old Perl versions.

Browse Source 
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
This commit is contained in:
Tom Lane 2018-04-30 23:58:48 -04:00
parent 23078689a9
commit 827eb4393c
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/jsonb_plperl/expected/jsonb_plperl.out
View File

@ -43,7 +43,7 @@ CREATE FUNCTION testInf() RETURNS jsonb
LANGUAGE plperl LANGUAGE plperl
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'Inf'; $val = 9**9**9; # we assume this will overflow to +Inf
return $val; return $val;
$$; $$;
SELECT testInf(); SELECT testInf();
@ -53,7 +53,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb
LANGUAGE plperl LANGUAGE plperl
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'NaN'; $val = sin(9**9**9); # we assume sin(inf) will yield NaN
return $val; return $val;
$$; $$;
SELECT testNaN(); SELECT testNaN();

4
contrib/jsonb_plperl/expected/jsonb_plperlu.out
View File

@ -43,7 +43,7 @@ CREATE FUNCTION testInf() RETURNS jsonb
LANGUAGE plperlu LANGUAGE plperlu
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'Inf'; $val = 9**9**9; # we assume this will overflow to +Inf
return $val; return $val;
$$; $$;
SELECT testInf(); SELECT testInf();
@ -53,7 +53,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb
LANGUAGE plperlu LANGUAGE plperlu
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'NaN'; $val = sin(9**9**9); # we assume sin(inf) will yield NaN
return $val; return $val;
$$; $$;
SELECT testNaN(); SELECT testNaN();

4
contrib/jsonb_plperl/sql/jsonb_plperl.sql
View File

@ -38,7 +38,7 @@ CREATE FUNCTION testInf() RETURNS jsonb
LANGUAGE plperl LANGUAGE plperl
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'Inf'; $val = 9**9**9; # we assume this will overflow to +Inf
return $val; return $val;
$$; $$;
@ -49,7 +49,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb
LANGUAGE plperl LANGUAGE plperl
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'NaN'; $val = sin(9**9**9); # we assume sin(inf) will yield NaN
return $val; return $val;
$$; $$;

4
contrib/jsonb_plperl/sql/jsonb_plperlu.sql
View File

@ -38,7 +38,7 @@ CREATE FUNCTION testInf() RETURNS jsonb
LANGUAGE plperlu LANGUAGE plperlu
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'Inf'; $val = 9**9**9; # we assume this will overflow to +Inf
return $val; return $val;
$$; $$;
@ -49,7 +49,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb
LANGUAGE plperlu LANGUAGE plperlu
TRANSFORM FOR TYPE jsonb TRANSFORM FOR TYPE jsonb
AS $$ AS $$
$val = 0 + 'NaN'; $val = sin(9**9**9); # we assume sin(inf) will yield NaN
return $val; return $val;
$$; $$;