From 6b9e3dfae1311a475dc7258a2e3e65a55b694ec4 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Tue, 19 Nov 2019 13:22:18 -0300
Subject: [PATCH] Bug 23634: Add tests for is_superlibrarian

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Aleisha Amohia <aleishaamohia@hotmail.com>

Signed-off-by: Aleisha Amohia <aleishaamohia@hotmail.com>
---
 t/db_dependent/Koha/Patron.t | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Koha/Patron.t b/t/db_dependent/Koha/Patron.t
index adfcb60898..127e6848c8 100644
--- a/t/db_dependent/Koha/Patron.t
+++ b/t/db_dependent/Koha/Patron.t
@@ -19,7 +19,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 use Test::Exception;
 
 use Koha::Database;
@@ -154,3 +154,26 @@ subtest 'add_enrolment_fee_if_needed() tests' => sub {
         $schema->storage->txn_rollback;
     };
 };
+
+subtest 'is_superlibrarian() tests' => sub {
+
+    plan tests => 2;
+
+    $schema->storage->txn_begin;
+
+    my $patron = $builder->build_object(
+        {
+            class => 'Koha::Patrons',
+            value => {
+                flags => 16
+            }
+        }
+    );
+
+    ok( !$patron->is_superlibrarian, 'Patron is not a superlibrarian and the method returns the correct value' );
+
+    $patron->flags(1)->store->discard_changes;
+    ok( $patron->is_superlibrarian, 'Patron is a superlibrarian and the method returns the correct value' );
+
+    $schema->storage->txn_rollback;
+};
-- 
2.11.4.GIT