BEGIN {
eval {
- Gruntmaster::Data::init 'dbi:Pg:dbname=gmtest'; 1;
+ dbinit 'dbi:Pg:dbname=gmtest'; 1;
} or plan skip_all => 'Cannot connect to test database. Create it by running make_test_db.sh before running this test. '. "Error: $@";
- plan tests => 28;
+ no warnings 'redefine';
+ *Gruntmaster::App::dbinit = sub {}; # Prevent reinit in Gruntmaster::App->run
+ plan tests => 30;
}
sub fakein {
ta [qw/-p add pb/];
+{
+ my $out = ta([qw/-p show pb/])->output;
+ like $out, qr/Value \(points\): 250/, 'gm -p show pb contains Value'
+}
+
subtest 'gruntmaster-problem add' => sub {
plan tests => 10;
my $pb = problem_entry 'pb';
ta [qw/-p get pb author/], 'Marius Gavrilescu';
ta [qw/-p set pb owner nobody/];
ta [qw/-p get pb owner/], 'nobody';
+ta [qw/-p set --file pb statement README/];
+like problem_entry('pb')->{statement}, qr/Gruntmaster-Data/, 'gm -p set --file pb statement README';
ta [qw/-p list/], join "\n", sort qw/arc pca rca fca prv pb/;
ta [qw/-p rm pb/];
ok !defined problem_entry ('pb'), 'gm -p rm pb';