1use Test::More; 2use strict; 3BEGIN { plan tests => 8 }; 4use JSON; 5 6######################### 7my ($js,$obj); 8 9use Data::Dumper; 10#print Dumper($obj); 11 12$js = q|[-12.34]|; 13$obj = jsonToObj($js); 14is($obj->[0], -12.34, 'digit -12.34'); 15$js = objToJson($obj); 16is($js,'[-12.34]', 'digit -12.34'); 17 18$js = q|[-1.234e5]|; 19$obj = jsonToObj($js); 20is($obj->[0], -123400, 'digit -1.234e5'); 21$js = objToJson($obj); 22is($js,'[-123400]', 'digit -1.234e5'); 23 24$js = q|[1.23E-4]|; 25$obj = jsonToObj($js); 26is($obj->[0], 0.000123, 'digit 1.23E-4'); 27$js = objToJson($obj); 28ok(($js eq '[0.000123]' or $js eq '[1.23e-04]'), 'digit 1.23E-4'); 29# [1.23e-04] for Perl 5.6.2 with darwin-thread-multi 8.10.0 30 31$js = q|[1.01e+30]|; 32$obj = jsonToObj($js); 33is($obj->[0], 1.01e+30, 'digit 1.01e+30'); 34$js = objToJson($obj); 35like($js,qr/\[1.01[Ee]\+0?30\]/, 'digit 1.01e+30'); 36 37