LP#1482400: UT for OpenILS::Application::Acq::BatchManager changes
[working/Evergreen.git] / 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');