e20270fec4
Signed-off-by: Paola Rossi <paola.rossi@cineca.it> Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com> Signed-off-by: Dobrica Pavlinusic <dpavlin@rot13.org> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
49 lines
1.4 KiB
Perl
49 lines
1.4 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 qw ( -utf8 );
|
|
use Test::More tests => 14;
|
|
|
|
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->set({ key1 => 'value1', key2 => 'value2' });
|
|
is ($background->get('key1'), 'value1', 'fetched extra value for key key1');
|
|
is ($background->get('key2'), 'value2', 'fetched extra value for key key2');
|
|
|
|
$background->set({ size => 666 });
|
|
is ($background->size, "56", '->set() does not scribble over private object data');
|
|
|
|
$background->finish("finished");
|
|
is ($background->status,'completed', "testing finished");
|
|
|
|
ok ($background->results); #Will return undef unless finished
|