3 use Test::More tests => 16;
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 ');
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');
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');