LP#1482400: UT for OpenILS::Application::Acq::BatchManager changes

This patch adds tests for the changes to how ::BatchManager()
calculates the request response freqency throttle.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t b/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t
index 2ef4035..5ba4ae8 100644 (file)
--- a/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t
+++ b/Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t
@@ -1,18 +1,25 @@
 #!perl -T
 
-use Test::More tests => 11;
+use Test::More tests => 16;
 
 BEGIN {
        use_ok( 'OpenILS::Application::Acq' );
+    use_ok( 'OpenILS::Application::Acq::Claims ');
+    use_ok( 'OpenILS::Application::Acq::EDI ');
+    use_ok( 'OpenILS::Application::Acq::EDI ');
+    use_ok( 'OpenILS::Application::Acq::Financials ');
+    use_ok( 'OpenILS::Application::Acq::Invoice ');
+    use_ok( 'OpenILS::Application::Acq::Lineitem ');
+    use_ok( 'OpenILS::Application::Acq::Order ');
+    use_ok( 'OpenILS::Application::Acq::Picklist ');
+    use_ok( 'OpenILS::Application::Acq::Provider ');
+    use_ok( 'OpenILS::Application::Acq::Search ');
 }
 
-use_ok( 'OpenILS::Application::Acq::Claims ');
-use_ok( 'OpenILS::Application::Acq::EDI ');
-use_ok( 'OpenILS::Application::Acq::EDI ');
-use_ok( 'OpenILS::Application::Acq::Financials ');
-use_ok( 'OpenILS::Application::Acq::Invoice ');
-use_ok( 'OpenILS::Application::Acq::Lineitem ');
-use_ok( 'OpenILS::Application::Acq::Order ');
-use_ok( 'OpenILS::Application::Acq::Picklist ');
-use_ok( 'OpenILS::Application::Acq::Provider ');
-use_ok( 'OpenILS::Application::Acq::Search ');
+my $mgr = OpenILS::Application::Acq::BatchManager->new();
+is($mgr->throttle(), 4, 'BatchManager throttle is 4 by default');
+ok($mgr->exponential_falloff(), 'BatchManager uses exponential falloff by default');
+$mgr->total(300);
+is($mgr->total(), 300, 'can set total size for BatchManager');
+is($mgr->throttle(), 15, 'after setting maximum, BatchManager recalculates throttle');
+ok(!($mgr->exponential_falloff()), 'BatchManager does not uses exponential falloff if total set');