Bug 7688: (follow-up) add unit tests for C4::Serials::Frequency

[koha.git] / t / db_dependent / BackgroundJob.t

diff --git a/t/db_dependent/BackgroundJob.t b/t/db_dependent/BackgroundJob.t
index 2726eb3..668e1ca 100644 (file)
--- a/t/db_dependent/BackgroundJob.t
+++ b/t/db_dependent/BackgroundJob.t
@@ -7,7 +7,7 @@ use strict;
 use warnings;
 use C4::Auth;
 use CGI;
-use Test::More tests => 8;
+use Test::More tests => 14;
 
 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,8 +29,21 @@ 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->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