From f7e6d484eec2513bab6d582faf99c9f6d2a7ef59 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 22 Jun 2021 17:45:36 -0300 Subject: [PATCH] Bug 28615: Add POD Signed-off-by: Tomas Cohen Arazi --- t/lib/Mocks.pm | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) diff --git a/t/lib/Mocks.pm b/t/lib/Mocks.pm index 4f3779795f..35c7da4cc8 100644 --- a/t/lib/Mocks.pm +++ b/t/lib/Mocks.pm @@ -21,7 +21,26 @@ use C4::Context; use Test::MockModule; use Test::MockObject; +=head1 NAME + +t::lib::Mocks - A library to mock things for testing + +=head1 API + +=head2 Methods + +=cut + my %configs; + +=head3 mock_config + + t::lib::Mocks::mock_config( $config_entry, $value ); + +Mock the configuration I<$config_entry> with the specified I<$value>. + +=cut + sub mock_config { my $context = Test::MockModule->new('C4::Context'); my ( $conf, $value ) = @_; @@ -38,6 +57,15 @@ sub mock_config { } my %preferences; + +=head3 mock_preference + + t::lib::Mocks::mock_preference( $preference, $value ); + +Mock the I<$preference> with the specified I. + +=cut + sub mock_preference { my ( $pref, $value ) = @_; @@ -56,6 +84,34 @@ sub mock_preference { }); } +=head3 mock_userenv + + t::lib::Mocks::mock_userenv( + { + [ patron => $patron, + borrowernumber => $borrowernumber, + userid => $userid, + cardnumber => $cardnumber, + firstname => $firstname, + surname => $surname, + branchcode => $branchcode, + branchname => $branchname, + flags => $flags, + emailaddress => $emailaddress, + desk_id => $desk_id, + desk_name => $desk_name, + register_id => $register_id, + register_name => $register_name, ] + } + ); + +Mock userenv in the context of tests. A I param is usually expected, but +some other session attributes might be passed as well, that will override the patron's. + +Also, some sane defaults are set if no parameters are passed. + +=cut + sub mock_userenv { my ( $params ) = @_; -- 2.32.0