### ----------------------------------------------------
### -- JsonC
### -- Licenses: 
### -- Authors: Salvador Ortiz <sortiz@cpan.com>
### -- File: t/03-unicode.t
### ----------------------------------------------------
use v6;

use JsonC;
use Test;


my @t =
    '{ "a" : "b\u00E5" }' => { 'a' => 'bå' },
    '[ "\u2685" ]' => [ '⚅' ];

my @out =
    "\{\"a\":\"bå\"}",
    '["⚅"]';

plan (+@t * 2);
my $i = 0;
for @t -> $p {
    my $json = from-json($p.key);
    is-deeply $json, $p.value, "Correct data structure for «{$p.key}»";
    is to-json($json, :pretty(False)).lc, @out[$i++].lc, 'to-json test';
}


