t/Scheduler.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 => 6;
  10
  11 BEGIN {
  12         use_ok('C4::Scheduler');
  13 }
  14
  15 ok(C4::Scheduler::get_jobs(), "testing get_jobs with no arguments");
  16 ok(C4::Scheduler::get_at_jobs(), "testing get_at_jobs with no arguments");
  17 is(C4::Scheduler::get_at_job(), "0", "testing get_at_job returns '0' when given no arguments");
  18 is(C4::Scheduler::add_at_job(), "", "testing add_at_job with no arguments");
  19 is(C4::Scheduler::remove_at_job(), undef , "testing remove_at_job returns undef when given no arguments");