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
|
BEGIN { $ENV{JSON_VALIDATOR_WARN_MISSING_FORMAT} = 0 }
use Mojo::Base -strict;
use Benchmark qw(cmpthese timeit :hireswallclock);
use JSON::Validator::Schema::Draft7;
use List::Util qw(sum);
use Test::More;
use Time::HiRes qw(time);
plan skip_all => 'TEST_BENCHMARK=500' unless my $n = $ENV{TEST_BENCHMARK};
diag sprintf "\n%s", scalar localtime;
diag "n_times=$n";
my %bm;
time_schema('defaults' => {});
time_schema('resolve_before' => {resolve_before => 1});
cmpthese \%bm if $ENV{HARNESS_IS_VERBOSE};
done_testing;
sub time_schema {
my ($desc, $attrs) = @_;
my (@errors, @resolve_t, @validate_t, @total_t);
my $resolve_before = delete $attrs->{resolve_before};
my $resolved_schema
= $resolve_before && JSON::Validator::Schema::Draft7->new('http://json-schema.org/draft-07/schema#', %$attrs);
$bm{$desc} = timeit 1 => sub {
for (1 ... $n) {
my $schema = $resolved_schema || JSON::Validator::Schema::Draft7->new(%$attrs);
my $t0 = time;
delete $schema->{errors};
$schema->resolve('http://json-schema.org/draft-07/schema#') unless $resolve_before;
push @resolve_t, (my $t1 = time) - $t0;
push @errors, @{$schema->errors};
push @validate_t, (my $t2 = time) - $t1;
push @total_t, $t2 - $t0;
}
};
ok !@errors, 'valid schema' or diag "@errors";
my $rt = sprintf '%.3f', sum @resolve_t;
ok $rt < 2, "$desc - resolve ${rt}s" unless $resolve_before;
my $vt = sprintf '%.3f', sum @validate_t;
ok $vt < 2, "$desc - validate ${vt}s";
my $tt = sprintf '%.3f', sum @total_t;
ok $tt < 2, "$desc - total ${tt}s";
}
__DATA__
# Tue Jul 20 07:25:46 2021
# n_times=200
ok 1 - valid schema
ok 2 - defaults - resolve 0.560s
ok 3 - defaults - validate 1.053s
ok 4 - defaults - total 1.613s
ok 5 - valid schema
ok 6 - resolve_before - validate 1.030s
ok 7 - resolve_before - total 1.030s
s/iter defaults resolve_before
defaults 1.61 -- -37%
resolve_before 1.02 58% --
|
