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
|
use Mojo::Base -strict;
use JSON::Validator;
use Mojo::File 'path';
use Mojo::JSON qw(encode_json false decode_json true);
use Test::Mojo;
use Test::More;
use JSON::Validator 'validate_json';
my $test_suite = path(qw(t draft4-tests));
my $remotes = path(qw(t remotes));
plan skip_all => 'Cannot find test files in t/draft4-tests'
unless -d $test_suite;
use Mojolicious::Lite;
app->static->paths(["$remotes"]);
my $t = Test::Mojo->new;
$t->get_ok('/integer.json')->status_is(200);
my $host_port = $t->ua->server->url->host_port;
my $test_only_re = $ENV{TEST_ONLY} || '';
my $todo_re = join('|',
'dependencies',
'change resolution scope - changed scope ref valid',
$ENV{TEST_ONLINE} ? () : ('remote ref'),
);
for my $file (sort $test_suite->list->each) {
for my $group (@{decode_json($file->slurp)}) {
for my $test (@{$group->{tests}}) {
my $schema = encode_json $group->{schema};
my $descr = "$group->{description} - $test->{description}";
next if $test_only_re and $descr !~ /$test_only_re/;
diag <<"HERE" if $test_only_re;
---
description: $descr
schema: $schema
data: @{[encode_json $test->{data}]}
expect_valid: @{[$test->{valid} ? 'Yes' : 'No']}
HERE
$schema =~ s!http\W+localhost:1234\b!http://$host_port!g;
$schema = decode_json $schema;
my @errors = eval {
JSON::Validator->new->ua($t->ua)->load_and_validate_schema($schema)
->validate($test->{data});
};
my $e = $@ || join ', ', @errors;
local $TODO = $descr =~ /$todo_re/ ? 'TODO' : undef;
note "ERROR: $e" if $e;
is $e ? 'invalid' : 'valid', $test->{valid} ? 'valid' : 'invalid', $descr;
}
}
}
done_testing();
|
