]>
iEval git - gruntmaster-data.git/blob - tools.t
ab16348a974da5986ff0abf38d440bf7cc93bf51
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: $@";
17 open my $fakein, '<', \
$_[0];
22 my ($args, $out, $err) = @_;
23 my $ret = test_app
'Gruntmaster::App' => $args;
24 diag
'Error: ', $ret->error if defined $ret->error;
25 is
$ret->output, "$out\n", join ' ', gm
=> @
$args if defined $out;
38 subtest
'gm -c add ct' => sub {
40 my $ct = contest_entry
'ct';
41 is
$ct->{name
}, 'My cool contest', 'contest name';
42 is
$ct->{owner
}, 'MGV', 'contest owner';
43 is
$ct->{start
}, 1388534400, 'contest start';
44 is
$ct->{stop
}, 1388534400 + 5 * 60 * 60, 'contest stop';
48 my $out = ta
([qw
/-c show ct/])->output;
49 like
$out, qr/Name: My cool contest/, 'gm -c show ct contains Name'
52 ta
[qw
/-c get ct owner/], 'MGV';
53 ta
[qw
/-c set ct owner nobody/];
54 ta
[qw
/-c get ct owner/], 'nobody';
55 ta
[qw
/-c list/], join "\n", sort qw
/fc rc pc ct/;
57 ok
!defined contest_entry
('ct'), 'gm -c rm ct';
81 subtest
'gruntmaster-problem add' => sub {
83 my $pb = problem_entry
'pb';
84 ok
$pb, 'problem exists';
85 is
$pb->{name
}, 'Test problem', 'name';
86 ok
$pb->{private
}, 'private';
87 is
$pb->{author
}, 'Marius Gavrilescu', 'author';
88 is
$pb->{writer
}, 'Smaranda Ciubotaru', 'statement writer';
89 is
$pb->{owner
}, 'MGV', 'owner';
90 is
$pb->{level
}, 'easy', 'level';
91 is
$pb->{timeout
}, 1, 'time limit';
92 is
$pb->{olimit
}, 100, 'output limit';
93 ok contest_has_problem
('ct', 'pb'), 'is in contest';
96 ta
[qw
/-p get pb author/], 'Marius Gavrilescu';
97 ta
[qw
/-p set pb owner nobody/];
98 ta
[qw
/-p get pb owner/], 'nobody';
99 ta
[qw
/-p list/], join "\n", sort qw
/arc pca rca fca prv pb/;
101 ok
!defined problem_entry
('pb'), 'gm -p rm pb';
103 my $id = create_job extension
=> '.cpp', format
=> 'CPP', problem
=> 'arc', source
=> '...', owner
=> 'MGV';
104 ok
abs (time - user_entry
('MGV')->{lastjob
}) < 2, 'create_job - lastjob looks sane';
106 is job_entry
($id)->{result
}, -2, "gm rerun $id";
110 my ($args, $err) = @_;
111 my $ret = test_app
'Gruntmaster::App' => $args;
112 like
$ret->error, qr/$err/, join ' ', 'invalid:', gm
=> @
$args;
116 terr
[qw
/add/], 'No table selected';
117 terr
[qw
/-j add/], 'Don\'t know how to add to this table';
118 terr
[qw
/-c add/], 'Wrong number of arguments';
119 terr
[qw
/get/], 'No table selected';
120 terr
[qw
/-c get/], 'Wrong number of arguments';
121 terr
[qw
/list/], 'No table selected';
122 terr
[qw
/-p rerun/], 'This command only works on jobs';
123 terr
[qw
/-j rerun/], 'Wrong number of arguments';
124 terr
[qw
/rm/], 'No table selected';
125 terr
[qw
/-j rm/], 'Wrong number of arguments';
126 terr
[qw
/set/], 'No table selected';
127 terr
[qw
/-j set 1 owner/], 'Not enough arguments';
128 terr
[qw
/-j set 1 owner x name/], 'The number of arguments must be odd';
129 terr
[qw
/show/], 'No table selected';
130 terr
[qw
/-c show/], 'Wrong number of arguments';
This page took 0.060954 seconds and 3 git commands to generate.