]> iEval git - gruntmaster-data.git/blob - t/tools.t
Fix rerun_job (twice)
[gruntmaster-data.git] / t / tools.t
1 #!/usr/bin/perl -w
2 use v5.14;
3
4 use Test::More skip_all => 'These tests are badly outdated and broken';
5
6 use Test::More tests => 13;
7 use File::Temp qw/tempdir/;
8 use Config;
9
10 use Gruntmaster::Data;
11
12 my $perl = $Config{perlpath} . $Config{_exe};
13 my $dir = tempdir CLEANUP => 1;
14 $ENV{GRUNTMASTER_DSN} = "dbi:SQLite:dbname=$dir/testdb";
15
16 our $db;
17
18 sub withdb (&) {
19 local $db = Gruntmaster::Data->connect($ENV{GRUNTMASTER_DSN});
20 shift->()
21 }
22
23 withdb { $db->deploy };
24
25 my $pipe;
26
27 open $pipe, "|$perl gruntmaster-contest add ct";
28 print $pipe <<'';
29 My cool contest
30 MGV
31 2014-01-01 00:00Z
32 2014-01-01 05:00Z
33
34 close $pipe;
35
36 withdb {
37 subtest 'gruntmaster-contest add' => sub {
38 plan tests => 5;
39 my $ct = $db->contest('ct');
40 ok $ct, 'contest exists';
41 is $ct->name, 'My cool contest', 'contest name';
42 is $ct->owner->id, 'MGV', 'contest owner';
43 is $ct->start, 1388534400, 'contest start';
44 is $ct->stop, 1388534400 + 5 * 60 * 60, 'contest stop';
45 }
46 };
47
48 is `$perl gruntmaster-contest get ct owner`, "MGV\n", 'gruntmaster-contest get';
49 system $perl, 'gruntmaster-contest', 'set', 'ct', 'owner', 'nobody';
50 withdb { is $db->contest('ct')->owner->id, 'nobody', 'gruntmaster-contest set' };
51
52 withdb { $db->contests->create({id => 'dummy', name => 'Dummy contest', owner => 'MGV', start => 0, stop => 1}) };
53 my @list = sort `$perl gruntmaster-contest list`;
54 chomp @list;
55 my @list2 = withdb { map { $_->id } $db->contests->all };
56 is_deeply \@list, [ sort @list2 ], 'gruntmaster-contest list';
57
58 system $perl, 'gruntmaster-contest', 'rm', 'dummy';
59 withdb { ok !$db->contest('dummy'), 'gruntmaster-contest rm' };
60
61 open $pipe, "|$perl gruntmaster-problem add pb";
62 print $pipe <<'';
63 Test problem
64 n
65 ct
66 Marius Gavrilescu
67 Smaranda Ciubotaru
68 MGV
69 b
70 gruntmaster-problem
71 c
72 a
73 a
74 3
75 1
76 100
77 Ok
78 Ok
79 Ok
80
81 close $pipe;
82
83 withdb {
84 subtest 'gruntmaster-problem add' => sub {
85 plan tests => 13;
86 my $pb = $db->problem('pb');
87 ok $pb, 'problem exists';
88 is $pb->name, 'Test problem', 'name';
89 is $pb->author, 'Marius Gavrilescu', 'author';
90 is $pb->writer, 'Smaranda Ciubotaru', 'statement writer';
91 is $pb->owner->id, 'MGV', 'owner';
92 is $pb->level, 'easy', 'level';
93 is $pb->generator, 'Undef', 'generator';
94 is $pb->runner, 'File', 'runner';
95 is $pb->judge, 'Absolute', 'judge';
96 is $pb->testcnt, 3, 'test count';
97 is $pb->timeout, 1, 'time limit';
98 is $pb->olimit, 100, 'output limit';
99 ok $db->contest_problems->find('ct', 'pb'), 'is in contest';
100 }
101 };
102
103 is `$perl gruntmaster-problem get pb author`, "Marius Gavrilescu\n", 'gruntmaster-problem get';
104 system $perl, 'gruntmaster-problem', 'set', 'pb', 'owner', 'nobody';
105 withdb { is $db->problem('pb')->owner->id, 'nobody', 'gruntmaster-problem set' };
106
107 withdb { $db->problems->create({id => 'dummy', name => 'Dummy', generator => 'Undef', runner => 'File', judge => 'Absolute', level => 'beginner', value => 100, owner => 'MGV', statement => '...', testcnt => 1, timeout => 1}) };
108
109 @list = sort `$perl gruntmaster-problem list`;
110 chomp @list;
111 @list2 = withdb { map { $_->id } $db->problems->all };
112 is_deeply \@list, [ sort @list2 ], 'gruntmaster-problem list';
113
114 system $perl, 'gruntmaster-problem', 'rm', 'dummy';
115 withdb { ok !$db->problem('dummy'), 'gruntmaster-problem rm' };
116
117 withdb { $db->jobs->create({id => 1, date => 1, extension => '.ext', format => 'CPP', problem => 'pb', source => '...', owner => 'MGV'}) };
118
119 is `$perl gruntmaster-job get 1 format`, "CPP\n", 'gruntmaster-job get';
120 system $perl, 'gruntmaster-job', 'set', 1, 'format', 'PERL';
121 withdb { is $db->job(1)->format, 'PERL', 'gruntmaster-job set' };
122
123 system $perl, 'gruntmaster-job', 'rm', 1;
124 withdb { ok !$db->job(1), 'gruntmaster-job rm' };
This page took 0.069194 seconds and 4 git commands to generate.