--- JSON-XS/t/08_pc_base.t 2007/03/23 15:10:56 1.1 +++ JSON-XS/t/08_pc_base.t 2007/03/24 19:42:14 1.2 @@ -3,7 +3,7 @@ # copied over from JSON::PC and modified to use JSON::XS use strict; -BEGIN { plan tests => 22 }; +BEGIN { plan tests => 21 }; use JSON::XS; my ($js,$obj); @@ -85,11 +85,6 @@ eval q{ $js = $pc->encode($obj) }; like($@, qr/JSON can only/i, 'invalid value (coderef)'); - -$obj = { foo => *STDERR }; -$js = $pc->encode($obj); -is($js, '{"foo":"*main::STDERR"}', "type blog"); - $obj = { foo => \*STDERR }; eval q{ $js = $pc->encode($obj) }; like($@, qr/JSON can only/i, 'invalid value (ref of type blog)');