]>
Commit | Line | Data |
---|---|---|
52172a1a MG |
1 | #!/usr/bin/perl |
2 | use v5.14; | |
3 | use warnings; | |
4 | ||
5 | use lib 'lib'; | |
6 | ||
7 | use Benchmark; | |
8 | use Gruntmaster::Data; | |
9 | ||
10 | my $db = Gruntmaster::Data->connect('dbi:Pg:'); | |
11 | ||
12 | timethese(-1, { | |
13 | orig => sub { $db->user_list_orig }, | |
14 | new => sub { $db->user_entry }, | |
15 | }); | |
16 | ||
17 | timethese(-1, { | |
18 | orig => sub { $db->user_entry_orig('PlayLikeNeverB4') }, | |
19 | new => sub { $db->user_entry('PlayLikeNeverB4') }, | |
20 | }); | |
21 | ||
22 | timethese(-1, { | |
23 | orig => sub { $db->contest_list_orig }, | |
24 | new => sub { $db->contest_entry }, | |
25 | }); | |
26 | ||
27 | timethese(-1, { | |
28 | orig => sub { $db->contest_entry_orig('mc2015r4') }, | |
29 | new => sub { $db->contest_entry('mc2015r4') }, | |
30 | }); | |
31 | ||
32 | timethese(-1, { | |
33 | orig => sub { $db->problem_list_orig }, | |
34 | new => sub { $db->problem_list }, | |
35 | }); | |
36 | ||
37 | timethese(-1, { | |
38 | orig => sub { $db->problem_entry_orig('aplusb') }, | |
39 | new => sub { $db->problem_entry('aplusb') }, | |
40 | }); | |
41 | ||
42 | timethese(50, { | |
43 | orig => sub { $db->job_list_orig }, | |
44 | new => sub { $db->job_list }, | |
45 | }); | |
46 | ||
47 | timethese(-1, { | |
48 | orig => sub { $db->job_entry_orig(9000) }, | |
49 | new => sub { $db->job_entry(9000) }, | |
50 | }); | |
51 | ||
52 | timethese(10, { | |
53 | orig => sub { $db->update_status_orig }, | |
54 | new => sub { $db->update_status }, | |
55 | }); |