#!perl6

use Test;
use JSON::Unmarshal;

class C {
	has Str %.bla{subset :: of Str where any("ble", "blob")}
}; 

my $res;

lives-ok { 
    $res = unmarshal( ｢{"bla": {"ble": "bli"}}｣, C);
}, "unmarshal class with hash with subset constrained values";

is $res.bla<ble> , 'bli', "and the result is what is expected";

# vim: expandtab shiftwidth=4 ft=perl6

Add test for fully shaped associative
Add test for fully shaped associative

This was fixed with https://github.com/rakudo/rakudo/pull/1048

Closes https://github.com/jonathanstowe/JSON-Class/issues/3
Closes #24
