xref: /openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/004_dwiw_encode.t (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)
1# copied over from JSON::XS and modified to use JSON::PP
2
3# copied over from JSON::DWIW and modified to use JSON::PP
4
5# Creation date: 2007-02-20 19:51:06
6# Authors: don
7
8use strict;
9use warnings;
10use Test::More tests => 5;
11
12# main
13{
14    BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
15
16use JSON::PP;
17
18    my $data;
19
20    #    my $expected_str = '{"var1":"val1","var2":["first_element",{"sub_element":"sub_val","sub_element2":"sub_val2"}],"var3":"val3"}';
21
22    my $expected_str1 = '{"var1":"val1","var2":["first_element",{"sub_element":"sub_val","sub_element2":"sub_val2"}]}';
23    my $expected_str2 = '{"var2":["first_element",{"sub_element":"sub_val","sub_element2":"sub_val2"}],"var1":"val1"}';
24    my $expected_str3 = '{"var2":["first_element",{"sub_element2":"sub_val2","sub_element":"sub_val"}],"var1":"val1"}';
25    my $expected_str4 = '{"var1":"val1","var2":["first_element",{"sub_element2":"sub_val2","sub_element":"sub_val"}]}';
26
27    my $json_obj = JSON::PP->new->allow_nonref (1);
28    my $json_str;
29    # print STDERR "\n" . $json_str . "\n\n";
30
31    my $expected_str;
32
33    $data = 'stuff';
34    $json_str = $json_obj->encode($data);
35    ok($json_str eq '"stuff"');
36
37    $data = "stu\nff";
38    $json_str = $json_obj->encode($data);
39    ok($json_str eq '"stu\nff"');
40
41    $data = [ 1, 2, 3 ];
42    $expected_str = '[1,2,3]';
43    $json_str = $json_obj->encode($data);
44
45    ok($json_str eq $expected_str);
46
47    $data = { var1 => 'val1', var2 => 'val2' };
48    $json_str = $json_obj->encode($data);
49
50    ok($json_str eq '{"var1":"val1","var2":"val2"}'
51       or $json_str eq '{"var2":"val2","var1":"val1"}');
52
53    $data = { var1 => 'val1',
54              var2 => [ 'first_element',
55                        { sub_element => 'sub_val', sub_element2 => 'sub_val2' },
56                      ],
57              #                 var3 => 'val3',
58            };
59
60    $json_str = $json_obj->encode($data);
61
62    ok($json_str eq $expected_str1 or $json_str eq $expected_str2
63       or $json_str eq $expected_str3 or $json_str eq $expected_str4);
64}
65
66exit 0;
67
68###############################################################################
69# Subroutines
70
71