From 4661d6cb8deb1b9d8f9d9e8abc9b9231c5843648 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 18 Aug 2015 01:18:28 +0000 Subject: [PATCH] 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 Signed-off-by: Mike Rylander --- .../perlmods/t/02-OpenILS-Application-Acq.t | 29 ++++++++++++------- 1 file changed, 18 insertions(+), 11 deletions(-) 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 2ef4035b67..5ba4ae8043 100644 --- 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'); -- 2.43.2