1#!perl -T 2use strict; 3use Test::More; 4 5eval "use JSON::Any qw(DWIW)"; 6if ($@) { 7 plan skip_all => "JSON::DWIW not installed: $@"; 8} 9else { 10 plan tests => 6; 11} 12 13diag("Testing JSON::DWIW backend"); 14my ( $json, $js, $obj ); 15 16# encoding bare keys 17ok( $json = JSON::Any->new( bare_keys => 1 ) ); 18$js = $json->to_json( { var1 => "val2" } ); 19is( $js, '{var1:"val2"}' ); 20 21# testing the truth 22$obj = { foo => JSON::Any->true }; 23$js = JSON::Any->objToJson($obj); 24is($js,'{"foo":true}'); 25 26$obj = { foo => JSON::Any->false }; 27$js = JSON::Any->objToJson($obj); 28is($js,'{"foo":false}'); 29 30$obj = { foo => $json->true }; 31$js = $json->objToJson($obj); 32is($js,'{foo:true}'); 33 34$obj = { foo => $json->false }; 35$js = $json->objToJson($obj); 36is($js,'{foo:false}'); 37