Commit827eb43

committed

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

The previous coding here didn't actually produce Inf or NaN doublevalues in Perl versions 5.8.x. Adopt a suggestion from stackoverflow.Discussion:https://postgr.es/m/28585.1525131438@sss.pgh.pa.us

1 parent2307868 commit827eb43Copy full SHA for 827eb43

File tree

-8

lines changed

-8

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -43,7 +43,7 @@ CREATE FUNCTION testInf() RETURNS jsonb`
`43`	`43`	`LANGUAGE plperl`
`44`	`44`	`TRANSFORM FOR TYPE jsonb`
`45`	`45`	`AS $$`
`46`		`-$val =0 + 'Inf';`
	`46`	`+$val =999; # we assume this will overflow to +Inf`
`47`	`47`	`return $val;`
`48`	`48`	`$$;`
`49`	`49`	`SELECT testInf();`
`@@ -53,7 +53,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb`
`53`	`53`	`LANGUAGE plperl`
`54`	`54`	`TRANSFORM FOR TYPE jsonb`
`55`	`55`	`AS $$`
`56`		`-$val =0 + 'NaN';`
	`56`	`+$val =sin(999); # we assume sin(inf) will yieldNaN`
`57`	`57`	`return $val;`
`58`	`58`	`$$;`
`59`	`59`	`SELECT testNaN();`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -43,7 +43,7 @@ CREATE FUNCTION testInf() RETURNS jsonb`
`43`	`43`	`LANGUAGE plperlu`
`44`	`44`	`TRANSFORM FOR TYPE jsonb`
`45`	`45`	`AS $$`
`46`		`-$val =0 + 'Inf';`
	`46`	`+$val =999; # we assume this will overflow to +Inf`
`47`	`47`	`return $val;`
`48`	`48`	`$$;`
`49`	`49`	`SELECT testInf();`
`@@ -53,7 +53,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb`
`53`	`53`	`LANGUAGE plperlu`
`54`	`54`	`TRANSFORM FOR TYPE jsonb`
`55`	`55`	`AS $$`
`56`		`-$val =0 + 'NaN';`
	`56`	`+$val =sin(999); # we assume sin(inf) will yieldNaN`
`57`	`57`	`return $val;`
`58`	`58`	`$$;`
`59`	`59`	`SELECT testNaN();`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ CREATE FUNCTION testInf() RETURNS jsonb`
`38`	`38`	`LANGUAGE plperl`
`39`	`39`	`TRANSFORM FOR TYPE jsonb`
`40`	`40`	`AS $$`
`41`		`-$val=0+'Inf';`
	`41`	`+$val=999;# we assume this will overflow to +Inf`
`42`	`42`	`return $val;`
`43`	`43`	`$$;`
`44`	`44`
`@@ -49,7 +49,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb`
`49`	`49`	`LANGUAGE plperl`
`50`	`50`	`TRANSFORM FOR TYPE jsonb`
`51`	`51`	`AS $$`
`52`		`-$val=0+'NaN';`
	`52`	`+$val=sin(999);# we assume sin(inf) will yieldNaN`
`53`	`53`	`return $val;`
`54`	`54`	`$$;`
`55`	`55`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ CREATE FUNCTION testInf() RETURNS jsonb`
`38`	`38`	`LANGUAGE plperlu`
`39`	`39`	`TRANSFORM FOR TYPE jsonb`
`40`	`40`	`AS $$`
`41`		`-$val=0+'Inf';`
	`41`	`+$val=999;# we assume this will overflow to +Inf`
`42`	`42`	`return $val;`
`43`	`43`	`$$;`
`44`	`44`
`@@ -49,7 +49,7 @@ CREATE FUNCTION testNaN() RETURNS jsonb`
`49`	`49`	`LANGUAGE plperlu`
`50`	`50`	`TRANSFORM FOR TYPE jsonb`
`51`	`51`	`AS $$`
`52`		`-$val=0+'NaN';`
	`52`	`+$val=sin(999);# we assume sin(inf) will yieldNaN`
`53`	`53`	`return $val;`
`54`	`54`	`$$;`
`55`	`55`

Comments

(0)