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