X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Ftools.t;h=077185d99944ba06d910baef43ce437ea75cc97d;hb=d68b9d2003fc0e28f9ae52508c16f0d1a0a6560c;hp=f871ad07c39a7a221c7062a33b0ed85dbdd4b699;hpb=f2005eb5cd6724b2001750178f752e18d8bb6452;p=gruntmaster-data.git diff --git a/t/tools.t b/t/tools.t index f871ad0..077185d 100644 --- a/t/tools.t +++ b/t/tools.t @@ -8,8 +8,10 @@ use App::Cmd::Tester; 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: $@"; + no warnings 'redefine'; + *Gruntmaster::App::dbinit = sub {}; # Prevent reinit in Gruntmaster::App->run plan tests => 30; } @@ -113,6 +115,10 @@ ta [rerun => $id]; is job_entry($id)->{result}, -2, "gm rerun $id"; ta [qw/rm -j/, $id]; +ta [rerun => 'fca']; +my @fca_jobs = grep { $_->{problem} eq 'fca' } @{job_list()}; +ok ((!grep { $_->{result} != -2 } @fca_jobs), "gm rerun fca"); + sub terr { my ($args, $err) = @_; my $ret = test_app 'Gruntmaster::App' => $args; @@ -126,8 +132,7 @@ terr [qw/-c add/], 'Wrong number of arguments'; terr [qw/get/], 'No table selected'; terr [qw/-c get/], 'Wrong number of arguments'; terr [qw/list/], 'No table selected'; -terr [qw/-p rerun/], 'This command only works on jobs'; -terr [qw/-j rerun/], 'Wrong number of arguments'; +terr [qw/-j rerun/], 'Not enough arguments'; terr [qw/rm/], 'No table selected'; terr [qw/-j rm/], 'Wrong number of arguments'; terr [qw/set/], 'No table selected';