Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t

   1 #!perl -T
   2
   3 use Test::More tests => 16;
   4
   5 BEGIN {
   6         use_ok( 'OpenILS::Application::Acq' );
   7     use_ok( 'OpenILS::Application::Acq::Claims ');
   8     use_ok( 'OpenILS::Application::Acq::EDI ');
   9     use_ok( 'OpenILS::Application::Acq::EDI ');
  10     use_ok( 'OpenILS::Application::Acq::Financials ');
  11     use_ok( 'OpenILS::Application::Acq::Invoice ');
  12     use_ok( 'OpenILS::Application::Acq::Lineitem ');
  13     use_ok( 'OpenILS::Application::Acq::Order ');
  14     use_ok( 'OpenILS::Application::Acq::Picklist ');
  15     use_ok( 'OpenILS::Application::Acq::Provider ');
  16     use_ok( 'OpenILS::Application::Acq::Search ');
  17 }
  18
  19 my $mgr = OpenILS::Application::Acq::BatchManager->new();
  20 is($mgr->throttle(), 4, 'BatchManager throttle is 4 by default');
  21 ok($mgr->exponential_falloff(), 'BatchManager uses exponential falloff by default');
  22 $mgr->total(300);
  23 is($mgr->total(), 300, 'can set total size for BatchManager');
  24 is($mgr->throttle(), 15, 'after setting maximum, BatchManager recalculates throttle');
  25 ok(!($mgr->exponential_falloff()), 'BatchManager does not uses exponential falloff if total set');