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.

diff --git a/contrib/jsonb_plperl/expected/jsonb_plperlu.out b/contrib/jsonb_plperl/expected/jsonb_plperlu.out
index 3f5c5c681ddb82072f2203d93665f533d81a5ce8..fe8ca19a719dcff0686c414bff3745adf7b02548 100644 (file)
--- 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 49c71fbc441645b4c6aaef0ff74b37585fb9af00..907dd4f73c8f989c53f6d43be07d6eb9cafdc954 100644 (file)
--- 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');