70 lines
2.0 KiB
Perl
70 lines
2.0 KiB
Perl
|
#! perl
|
||
|
|
|
||
|
|
# copied over from JSON::DWIW and modified to use JSON::XS
|
||
|
|
|
||
|
|
# Creation date: 2007-02-20 19:51:06
|
||
|
|
# Authors: don
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Test;
|
||
|
|
|
||
|
|
# main
|
||
|
|
{
|
||
|
|
BEGIN { plan tests => 5 }
|
||
|
|
|
||
|
|
use JSON::XS;
|
||
|
|
|
||
|
|
my $data;
|
||
|
|
|
||
|
|
# my $expected_str = '{"var1":"val1","var2":["first_element",{"sub_element":"sub_val","sub_element2":"sub_val2"}],"var3":"val3"}';
|
||
|
|
|
||
|
|
my $expected_str1 = '{"var1":"val1","var2":["first_element",{"sub_element":"sub_val","sub_element2":"sub_val2"}]}';
|
||
|
|
my $expected_str2 = '{"var2":["first_element",{"sub_element":"sub_val","sub_element2":"sub_val2"}],"var1":"val1"}';
|
||
|
|
my $expected_str3 = '{"var2":["first_element",{"sub_element2":"sub_val2","sub_element":"sub_val"}],"var1":"val1"}';
|
||
|
|
my $expected_str4 = '{"var1":"val1","var2":["first_element",{"sub_element2":"sub_val2","sub_element":"sub_val"}]}';
|
||
|
|
|
||
|
|
my $json_obj = JSON::XS->new->allow_nonref (1);
|
||
|
|
my $json_str;
|
||
|
|
# print STDERR "\n" . $json_str . "\n\n";
|
||
|
|
|
||
|
|
my $expected_str;
|
||
|
|
|
||
|
|
$data = 'stuff';
|
||
|
|
$json_str = $json_obj->encode($data);
|
||
|
|
ok($json_str eq '"stuff"');
|
||
|
|
|
||
|
|
$data = "stu\nff";
|
||
|
|
$json_str = $json_obj->encode($data);
|
||
|
|
ok($json_str eq '"stu\nff"');
|
||
|
|
|
||
|
|
$data = [ 1, 2, 3 ];
|
||
|
|
$expected_str = '[1,2,3]';
|
||
|
|
$json_str = $json_obj->encode($data);
|
||
|
|
|
||
|
|
ok($json_str eq $expected_str);
|
||
|
|
|
||
|
|
$data = { var1 => 'val1', var2 => 'val2' };
|
||
|
|
$json_str = $json_obj->encode($data);
|
||
|
|
|
||
|
|
ok($json_str eq '{"var1":"val1","var2":"val2"}'
|
||
|
|
or $json_str eq '{"var2":"val2","var1":"val1"}');
|
||
|
|
|
||
|
|
$data = { var1 => 'val1',
|
||
|
|
var2 => [ 'first_element',
|
||
|
|
{ sub_element => 'sub_val', sub_element2 => 'sub_val2' },
|
||
|
|
],
|
||
|
|
# var3 => 'val3',
|
||
|
|
};
|
||
|
|
|
||
|
|
$json_str = $json_obj->encode($data);
|
||
|
|
|
||
|
|
ok($json_str eq $expected_str1 or $json_str eq $expected_str2
|
||
|
|
or $json_str eq $expected_str3 or $json_str eq $expected_str4);
|
||
|
|
}
|
||
|
|
|
||
|
|
exit 0;
|
||
|
|
|
||
|
|
###############################################################################
|
||
|
|
# Subroutines
|
||
|
|
|