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
|
use Mojo::Base -strict;
use Test::More;
use JSON::Validator::Ref;
use Mojo::JSON qw(false true);
test('without fqn', {foo => 42}, '#bar', undef);
test('with fqn', {foo => 42}, '#/bar', 'https://example.com#/bar');
test('false', false, '#/false');
test('true', false, '#/true');
test('ref hash', false, {'$ref' => '#/true'});
test(
'ref siblings',
{'$ref' => '#/inner', b => 2, foo => 44},
{'$ref' => '#/main', a => 1, foo => 42},
undef,
sub {
my ($ref, $tied) = @_;
ok exists $ref->{a}, 'a exists';
ok exists $ref->{b}, 'b exists';
is $ref->{a}, 1, 'ref a';
is $ref->{b}, 2, 'ref b';
is $ref->{foo}, 42, 'ref foo';
is_deeply $tied->schema, {a => 1, b => 2, foo => 42, '$ref' => '#/inner'}, 'schema()';
}
);
test(
'ref clear',
{'$ref' => '#/inner', b => 2, foo => 44},
{'$ref' => '#/main', a => 1, foo => 42},
undef,
sub {
my ($ref, $tied) = @_;
%$ref = ();
pass 'still alive';
}
);
done_testing;
sub test {
my ($desc, $schema, $ref, $fqn, $cb) = @_;
my $tied = tie my %ref, 'JSON::Validator::Ref', $schema, $ref, $fqn;
$ref = {'$ref' => $ref} unless ref $ref eq 'HASH';
subtest $desc, sub {
ok exists $ref{'$ref'}, '$ref exists';
is $tied->ref, $ref->{'$ref'}, 'ref()';
is $tied->fqn, $fqn || $ref->{'$ref'}, 'fqn()';
is scalar(%ref), scalar(%$ref), 'scalar';
is_deeply $tied->schema, $schema, 'schema()' unless $cb;
is_deeply [sort keys %ref], [sort keys %$ref], 'keys';
my %kv;
while (my ($k, $v) = each %ref) { $kv{$k} = $v }
is_deeply \%kv, $ref, 'each';
$cb->(\%ref, $tied) if $cb;
};
}
|
