dbb29b4042
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.
43 lines
1.1 KiB
Perl
43 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# This Koha test module is a stub!
|
|
# Add more tests here!!!
|
|
|
|
use strict;
|
|
use warnings;
|
|
use C4::Auth;
|
|
use CGI;
|
|
use Test::More tests => 11;
|
|
|
|
BEGIN {
|
|
use_ok('C4::BackgroundJob');
|
|
}
|
|
my $query = new CGI;
|
|
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), "making job");
|
|
ok ($background->id, "fetching id number");
|
|
|
|
$background->name("George");
|
|
is ($background->name, "George", "testing name");
|
|
|
|
$background->invoker("enjoys");
|
|
is ($background->invoker, "enjoys", "testing invoker");
|
|
|
|
$background->progress("testing");
|
|
is ($background->progress, "testing", "testing progress");
|
|
|
|
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
|