1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
use FindBin '$Bin';
use lib "$Bin";
use JPT;
use JSON::Whitespace ':all';
my $in = <<EOF;
{
"animals":{
"elephant":"🐘",
"goat":"🐐",
"kingkong":"🦍"
},
"baka":{
"あ":"ほ",
"ば":"か",
"ま":"ぬけ"
},
"fruit":{
"grape":"🍇",
"melon":"🍈",
"watermelon":"🍉"
},
"moons":{
"🌑":0,
"🌒":1,
"🌓":2,
"🌔":3,
"🌕":4,
"🌖":5,
"🌗":6,
"🌘":7
}
}
EOF
my $minify = json_minify ($in);
is ($minify, '{"animals":{"elephant":"🐘","goat":"🐐","kingkong":"🦍"},"baka":{"あ":"ほ","ば":"か","ま":"ぬけ"},"fruit":{"grape":"🍇","melon":"🍈","watermelon":"🍉"},"moons":{"🌑":0,"🌒":1,"🌓":2,"🌔":3,"🌕":4,"🌖":5,"🌗":6,"🌘":7}}', "Removed whitespace from JSON");
done_testing ();
|
