]>
Commit | Line | Data |
---|---|---|
4623c9f2 | 1 | #!/usr/bin/perl |
1ce4e27c | 2 | use v5.14; |
4623c9f2 | 3 | use warnings; |
bbf8209c | 4 | |
4623c9f2 MG |
5 | use Gruntmaster::Data; |
6 | use Test::Deep; | |
7 | use Test::More; | |
bbf8209c | 8 | |
4623c9f2 MG |
9 | BEGIN { |
10 | eval { | |
11 | Gruntmaster::Data::init 'dbi:Pg:dbname=gmtest'; 1; | |
12 | } or plan skip_all => 'Cannot connect to test database. Create it by running make_test_db.sh before running this test. '. "Error: $@"; | |
13 | plan tests => 37; | |
14 | } | |
15 | ||
16 | note 'Running update_status'; | |
17 | update_status; | |
18 | ||
19 | my $x = user_list->{us}; | |
20 | is @$x, 2, 'user_list has two elements'; | |
21 | is_deeply $x->[0], {id => 'nobody', admin => 0, name => undef, town => undef, university => undef, country => undef, level => undef, lastjob => undef, contests => 1, solved => 2, attempted => 0}, 'user_list first element is correct'; | |
22 | is $x->[1]{admin}, 1, 'user_list second user is admin'; | |
23 | ||
24 | $x = user_entry 'nobody'; | |
25 | cmp_bag $x->{problems}, [ | |
26 | {problem => 'arc', problem_name => 'Problem in archive', solved => bool 1}, | |
27 | {problem => 'fca', problem_name => 'FC problem A', solved => bool 1}, | |
28 | ], 'user_entry problems'; | |
29 | ||
30 | is_deeply $x->{contests}, [ | |
31 | {contest => 'fc', contest_name => 'Finished contest', rank => 2, score => 40}, | |
32 | ], 'user_entry contests'; | |
33 | ||
34 | sub pbids { [map { $_->{id} } @{$x->{beginner}}] } | |
35 | ||
36 | $x = problem_list; | |
37 | cmp_bag pbids, [qw/arc fca/], 'problem_list'; | |
38 | ||
39 | $x = problem_list private => 1; | |
40 | cmp_bag pbids, [qw/arc fca rca pca prv/], 'problem_list private => 1'; | |
41 | ||
42 | $x = problem_list contest => 'rc'; | |
43 | cmp_bag pbids, [qw/rca/], q/problem_list contest => 'rc'/; | |
44 | ||
45 | $x = problem_list contest => 'rc', solution => 1; | |
46 | ok exists $x->{beginner}[0]{solution}, q/problem_list contest => 'rc', solution => 1 has solution/; | |
47 | ||
48 | $x = problem_list owner => 'nobody'; | |
49 | cmp_bag pbids, [], q/problem_list owner => 'nobody'/; | |
50 | ||
51 | $x = problem_entry 'arc'; | |
52 | cmp_bag $x->{limits}, [{format => 'C', timeout => 0.1}, {format => 'CPP', timeout => 0.1}], 'problem_entry limits'; | |
53 | is $x->{solution}, 'Sample Text', 'problem_entry has solution'; | |
54 | ||
55 | $x = problem_entry 'rca', 'rc'; | |
56 | ok !exists $x->{solution}, 'problem_entry during contest does not have solution'; | |
57 | ok exists $x->{contest_start}, 'problem_entry during contest has contest_start '; | |
58 | ||
59 | $x = contest_list; | |
60 | is $x->{finished}[0]{id}, 'fc', 'contest_list fc is finished'; | |
61 | is $x->{running}[0]{id}, 'rc', 'contest_list rc is running'; | |
62 | is $x->{pending}[0]{id}, 'pc', 'contest_list pc is pending'; | |
63 | ||
64 | $x = contest_entry 'fc'; | |
65 | cmp_deeply $x, {id => 'fc', name => 'Finished contest', start => ignore, stop => ignore, owner => 'MGV', owner_name => undef, finished => bool (1), started => bool (1), description => undef}, 'contest_entry fc'; | |
66 | ||
67 | $x = contest_full 'fc'; | |
68 | ok exists $x->{editorial}, 'contest_full fc has editorial'; | |
69 | ||
70 | ok contest_has_problem('rc', 'rca'), 'contest rc has problem rca'; | |
71 | ok contest_has_problem('rc', 'arc'), 'contest rc does not have problem arc'; | |
72 | ||
73 | sub jobids { [ map { $_->{id} } @{$x->{log}} ] } | |
74 | ||
75 | $x = job_list; | |
76 | cmp_bag jobids, [1..5], 'job_list'; | |
77 | is $x->{current_page}, 1, 'current page is 1'; | |
78 | is $x->{last_page}, 1, 'last page is 1'; | |
79 | ok !exists $x->{previous_page}, 'there is no previous page'; | |
80 | ok !exists $x->{next_page}, 'there is no next page'; | |
81 | ||
82 | $x = job_list private => 1; | |
83 | cmp_bag jobids, [1..7], 'job_list private => 1'; | |
84 | ||
85 | $x = job_list contest => 'fc'; | |
86 | cmp_bag jobids, [1..3], 'job_list contest => fc'; | |
87 | ||
88 | $x = job_list owner => 'MGV'; | |
89 | cmp_bag jobids, [1], 'job_ids owner => MGV'; | |
90 | ||
91 | $x = job_list problem => 'fca'; | |
92 | cmp_bag jobids, [1..4], 'job_ids problem => fca'; | |
93 | ||
94 | $x = job_list problem => 'fca', result => 1; | |
95 | cmp_bag jobids, [2], 'job_ids problem => fca, result => 1'; | |
96 | ||
97 | $x = job_entry 1; | |
98 | is $x->{size}, 21, 'job_entry size'; | |
99 | ok !exists $x->{source}, 'job_entry does not have source'; | |
100 | is_deeply $x->{results}, [], 'job_entry results'; | |
101 | ||
102 | $x = job_entry 7; | |
103 | ok !defined $x->{result}, 'job_entry 7 has NULL result'; | |
104 | ||
105 | $x = job_full 1; | |
106 | ok exists $x->{source}, 'job_full has source'; | |
107 | ||
108 | $x = standings 'fc'; | |
109 | is_deeply $x, { | |
110 | problems => [[fca => 'FC problem A']], | |
111 | st => [ | |
112 | {rank => 1, user => 'MGV', user_name => undef, score => 50, scores => [50]}, | |
113 | {rank => 2, user => 'nobody', user_name => undef, score => 40, scores => [40]}, | |
114 | ] | |
115 | }, 'standings fc'; |