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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!raku
use v6;
use Test;
use JSON::Unmarshal;
subtest {
class VersionClassCode {
has Version $.version is unmarshalled-by(-> $v { Version.new($v) });
}
my $json = '{ "version" : "0.0.1" }';
my VersionClassCode $obj;
lives-ok { $obj = unmarshal($json, VersionClassCode) }, "unmarshall with attrbute strait (code)";
isa-ok $obj.version, Version, "the attribute is the right kind of thing";
ok $obj.version.defined, "and it's defined";
is $obj.version, Version.new("0.0.1"), "and has the right value";
}, "unmarshalled-by trait with Code";
subtest {
class VersionClassMethod {
has Version $.version is unmarshalled-by('new');
}
my $json = '{ "version" : "0.0.1" }';
my VersionClassMethod $obj;
lives-ok { $obj = unmarshal($json, VersionClassMethod) }, "unmarshall with attrbute trait (method name)";
isa-ok $obj.version, Version, "the attribute is the right kind of thing";
ok $obj.version.defined, "and it's defined";
is $obj.version, Version.new("0.0.1"), "and has the right value";
}, "unmarshalled-by trait with Method name";
subtest {
class Inner {
has Str $.name is required;
}
class OuterClass {
has Inner $.inner;
}
class OuterSubClass is OuterClass {
has Inner $.inner is unmarshalled-by(-> $name { Inner.new(:$name) });
}
my $json = '{ "inner" : "name" }';
my OuterSubClass $obj;
lives-ok { $obj = unmarshal($json, OuterSubClass) }, "unmarshall with attrbute trait on sub-class";
isa-ok $obj.inner, Inner, "the attribute is the right kind of thing";
ok $obj.inner.defined, "and it's defined";
is $obj.inner.name, "name", "and has the right value";
}, "unmarshalled-by trait with inheritance";
subtest {
class CustomArrayAttribute {
class Inner {
has Str $.name is required;
}
sub unmarshall-inners (@inners) {
@inners.map(-> $name { Inner.new(:$name) })
}
has Inner @.inners is unmarshalled-by(&unmarshall-inners);
}
my $json = '{ "inners" : [ "one", "two", "three" ] }';
my $obj;
lives-ok {
$obj = unmarshal $json, CustomArrayAttribute;
}, "unmarshal with custom marshaller on positional attribute";
ok all($obj.inners) ~~ CustomArrayAttribute::Inner, "and all the objects in the array are correct";
is-deeply $obj.inners.map( *.name), <one two three>, "and they have their names set correctly";
}, "unmarshalled-by on a positional attribute";
done-testing;
# vim: expandtab shiftwidth=4 ft=raku
|
