use Test::More;
use strict;
BEGIN { plan tests => 6 };
use JSON;
#########################
my ($js,$obj);
local $JSON::SingleQuote = 1;
$obj = { foo => "bar" };
$js = objToJson($obj);
is($js, q|{'foo':'bar'}|);
$JSON::SingleQuote = 0;
$js = objToJson($obj);
is($js, q|{"foo":"bar"}|);
$js = objToJson($obj, {singlequote => 1});
is($js, q|{'foo':'bar'}|);
my $json = new JSON (singlequote => 1);
is($json->to_json($obj), q|{'foo':'bar'}|);
$json->singlequote(1);
is($json->to_json($obj), q|{'foo':'bar'}|);
$json->singlequote(0);
is($json->to_json($obj), q|{"foo":"bar"}|);