my $pipe;
-open $pipe, '|$perl gruntmaster-contest add ct';
+open $pipe, "|$perl gruntmaster-contest add ct";
print $pipe <<'';
My cool contest
MGV
system $perl, 'gruntmaster-contest', 'rm', 'dummy';
withdb { ok !$db->contest('dummy'), 'gruntmaster-contest rm' };
-open $pipe, '|$perl gruntmaster-problem add pb';
+open $pipe, "|$perl gruntmaster-problem add pb";
print $pipe <<'';
Test problem
n
system $perl, 'gruntmaster-problem', 'set', 'pb', 'owner', 'nobody';
withdb { is $db->problem('pb')->owner->id, 'nobody', 'gruntmaster-problem set' };
-withdb { $db->problems->create({id => 'dummy', name => 'Dummy', generator => 'Undef', runner => 'File', judge => 'Absolute', level => 'beginner', owner => 'MGV', statement => '...', testcnt => 1, timeout => 1}) };
+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}) };
@list = sort `$perl gruntmaster-problem list`;
chomp @list;