Index: trunk/src/third_party/JSON/JSON-2.59/t/09_pc_extra_number.t |
=================================================================== |
--- trunk/src/third_party/JSON/JSON-2.59/t/09_pc_extra_number.t (revision 205060) |
+++ trunk/src/third_party/JSON/JSON-2.59/t/09_pc_extra_number.t (working copy) |
@@ -1,39 +0,0 @@ |
-# copied over from JSON::PC and modified to use JSON |
-# copied over from JSON::XS and modified to use JSON |
- |
-use Test::More; |
-use strict; |
-BEGIN { plan tests => 6 }; |
- |
-BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } |
- |
-use JSON; |
- |
- |
-######################### |
-my ($js,$obj); |
-my $pc = new JSON; |
- |
-$js = '{"foo":0}'; |
-$obj = $pc->decode($js); |
-is($obj->{foo}, 0, "normal 0"); |
- |
-$js = '{"foo":0.1}'; |
-$obj = $pc->decode($js); |
-is($obj->{foo}, 0.1, "normal 0.1"); |
- |
- |
-$js = '{"foo":10}'; |
-$obj = $pc->decode($js); |
-is($obj->{foo}, 10, "normal 10"); |
- |
-$js = '{"foo":-10}'; |
-$obj = $pc->decode($js); |
-is($obj->{foo}, -10, "normal -10"); |
- |
- |
-$js = '{"foo":0, "bar":0.1}'; |
-$obj = $pc->decode($js); |
-is($obj->{foo},0, "normal 0"); |
-is($obj->{bar},0.1,"normal 0.1"); |
- |