t/background_job/known_jobs.t

   1 use Test::More tests => 4;
   2
   3 use lib 't';
   4
   5 use Support::TestSetup;
   6
   7 use_ok 'SL::BackgroundJob::Base';
   8
   9 my @expected_known_job_classes = qw(BackgroundJobCleanup CleanAuthSessions CleanBackgroundJobHistory CreatePeriodicInvoices CsvImport FailedBackgroundJobsReport
  10                                       MassRecordCreationAndPrinting SelfTest Test);
  11 is_deeply [ SL::BackgroundJob::Base->get_known_job_classes ], \@expected_known_job_classes, 'get_known_job_classes called as class method';
  12
  13 my $job = new_ok 'SL::BackgroundJob::Base';
  14 is_deeply [ $job->get_known_job_classes ], \@expected_known_job_classes, 'get_known_job_classes called as instance method';