From 3e866d216db008e1ed8c8614f6758ad5118321df Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 18 Dec 2013 16:12:00 +0100 Subject: [PATCH] Bug 10277: Add UT for C4::Context::IsSuperLibrarian Note that I modify the return value. Before this patch, it returned an empty string or 1. Now it returns 0 or 1. Test plan: - same as the original patch - verify that unit tests pass: prove t/Context.t Signed-off-by: Kyle M Hall Signed-off-by: Katrin Fischer Passes all tests and QA script, including new tests. Checked the code and tested superlibrarian behaviour in some places: moremember.pl: With IndyBranches only superlibrarian can delete borrowers from other branches. Accessing the borrower with a direct link. OK C4/Members.pm With IndyBranches only superlibrarian can search for borrowres from other branches. OK tools/holidays.pl With IndyBranches only superlibrarian can edit holidays for other branches. Signed-off-by: Galen Charlton --- C4/Context.pm | 10 +++++++--- t/Context.t | 28 +++++++++++++++++++++++++--- 2 files changed, 32 insertions(+), 6 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index 4f6683e71e..9ff9352861 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -1242,10 +1242,14 @@ sub tz { =cut sub IsSuperLibrarian { - my $userenv = C4::Context->userenv - || carp("C4::Context->userenv not defined!"); + my $userenv = C4::Context->userenv; - return $userenv->{flags} % 2 == 1; + unless ( $userenv and exists $userenv->{flags} ) { + carp("C4::Context->userenv not defined!"); + return 0; + } + + return $userenv->{flags} % 2; } 1; diff --git a/t/Context.t b/t/Context.t index 12d1675781..9c561cb215 100755 --- a/t/Context.t +++ b/t/Context.t @@ -1,10 +1,32 @@ #!/usr/bin/perl -use strict; -use warnings; + +use Modern::Perl; use DBI; -use Test::More tests => 1; +use Test::More tests => 6; use Test::MockModule; BEGIN { use_ok('C4::Context'); } + +my $context = new Test::MockModule('C4::Context'); +my $userenv = {}; + +$context->mock('userenv', sub { + return $userenv; +}); + +local $SIG{__WARN__} = sub { die $_[0] }; + +eval { C4::Context::IsSuperLibrarian(); }; +like ( $@, qr/not defined/, "IsSuperLibrarian logs an error if no userenv is defined" ); + +$userenv->{flags} = 42; +my $is_super_librarian = eval{ C4::Context::IsSuperLibrarian() }; +is ( $@, q||, "IsSuperLibrarian does not log an error if userenv is defined" ); +is ( $is_super_librarian, 0, "With flag=42, it is not a super librarian" ); + +$userenv->{flags} = 421; +$is_super_librarian = eval{ C4::Context::IsSuperLibrarian() }; +is ( $@, q||, "IsSuperLibrarian does not log an error if userenv is defined" ); +is ( $is_super_librarian, 1, "With flag=1, it is a super librarian" ); -- 2.39.5