t/BackgroundJob.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 8;
  10
  11 BEGIN {
  12         use_ok('C4::BackgroundJob');
  13 }
  14
  15 #my ($sessionID, $job_name, $job_invoker, $num_work_units) = @_;
  16 my $background;
  17 ok ($background=C4::BackgroundJob->new);
  18 ok ($background->id);
  19
  20 $background->name("George");
  21 is ($background->name, "George", "testing name");
  22
  23 $background->invoker("enjoys");
  24 is ($background->invoker, "enjoys", "testing invoker");
  25
  26 $background->progress("testing");
  27 is ($background->progress, "testing", "testing progress");
  28
  29 ok ($background->status);
  30
  31 $background->size("56");
  32 is ($background->size, "56", "testing size");
  33