postgres.git / summary / log / commit / refs
commit e4300a3552b104f54ec781dd23cfcf96252ec5c1
Author: Tom Lane <tgl@sss.pgh.pa.us>
Date: Mon Jun 18 18:53:21 2018 +0000
Avoid platform-dependent output from Data::Dumper.
Per buildfarm, the output from Data::Dumper for an IEEE infinity
is platform-dependent (e.g. "inf" vs "Inf"). Just skip that one
test case in the plperlu test; testing it on the plperl side is
coverage enough. Fixes issue in commit 1731e3741.
contrib/jsonb_plperl/expected/jsonb_plperlu.out | 6 ++----
contrib/jsonb_plperl/sql/jsonb_plperlu.sql | 3 ++-
2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/contrib/jsonb_plperl/expected/jsonb_plperlu.out b/contrib/jsonb_plperl/expected/jsonb_plperlu.out
index 3f5c5c681dd..fe8ca19a719 100644
--- a/contrib/jsonb_plperl/expected/jsonb_plperlu.out
+++ b/contrib/jsonb_plperl/expected/jsonb_plperlu.out
@@ -78,10 +78,8 @@ INFO: $VAR1 = '1';
1
(1 row)
-SELECT roundtrip('1E+131071');
-INFO: $VAR1 = 'inf';
-ERROR: cannot convert infinity to jsonb
-CONTEXT: PL/Perl function "roundtrip"
+-- skip because Data::Dumper produces a platform-dependent spelling of infinity
+-- SELECT roundtrip('1E+131071');
SELECT roundtrip('-1');
INFO: $VAR1 = '-1';
roundtrip
diff --git a/contrib/jsonb_plperl/sql/jsonb_plperlu.sql b/contrib/jsonb_plperl/sql/jsonb_plperlu.sql
index 49c71fbc441..907dd4f73c8 100644
--- a/contrib/jsonb_plperl/sql/jsonb_plperlu.sql
+++ b/contrib/jsonb_plperl/sql/jsonb_plperlu.sql
@@ -61,7 +61,8 @@ $$;
SELECT roundtrip('null') is null;
SELECT roundtrip('1');
-SELECT roundtrip('1E+131071');
+-- skip because Data::Dumper produces a platform-dependent spelling of infinity
+-- SELECT roundtrip('1E+131071');
SELECT roundtrip('-1');
SELECT roundtrip('1.2');
SELECT roundtrip('-1.2');
[parent: 1731e3741cbb]