LP#1482400: UT for OpenILS::Application::Acq::BatchManager changes
authorGalen Charlton <gmc@esilibrary.com>
Tue, 18 Aug 2015 01:18:28 +0000 (01:18 +0000)
committerMike Rylander <mrylander@gmail.com>
Tue, 18 Aug 2015 15:33:27 +0000 (11:33 -0400)
This patch adds tests for the changes to how ::BatchManager()
calculates the request response freqency throttle.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
Open-ILS/src/perlmods/t/02-OpenILS-Application-Acq.t

index 2ef4035..5ba4ae8 100644 (file)
@@ -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');