gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug 5327 add tests for C4/BackgroundJob.pm 

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
perl t/db_dependent/BackgroundJob.t
All tests complete successfully.

Note: Test 11 does not tell what it's about, but it has been there before.
This commit is contained in:
Sam Sanders 2012-01-17 15:37:59 +13:00 committed by Paul Poulain
parent e96c92d077
commit dbb29b4042
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
t/db_dependent/BackgroundJob.t
View File

@ -7,7 +7,7 @@ use strict;
use warnings;
use C4::Auth;
use CGI;
use Test::More tests => 10;
use Test::More tests => 11;
BEGIN {
use_ok('C4::BackgroundJob');
@ -17,8 +17,8 @@ my ($userid, $cookie, $sessionID) = &checkauth($query, 1);
#my ($sessionID, $job_name, $job_invoker, $num_work_units) = @_;
my $background;
diag $sessionID;
ok ($background=C4::BackgroundJob->new($sessionID));
ok ($background->id);
ok ($background=C4::BackgroundJob->new($sessionID), "making job");
ok ($background->id, "fetching id number");
$background->name("George");
is ($background->name, "George", "testing name");
@ -29,12 +29,15 @@ is ($background->invoker, "enjoys", "testing invoker");
$background->progress("testing");
is ($background->progress, "testing", "testing progress");
ok ($background->status);
ok ($background->status, "testing status");
$background->size("56");
is ($background->size, "56", "testing size");
ok (!$background->fetch($sessionID, $background->id), "testing fetch");
$background->finish("finished");
is ($background->status,'completed', "testing finished");
ok ($background->results); # Will return undef unless finished
ok ($background->results); #Will return undef unless finished