Bug 21832: add unit test

[srvgit] / t / db_dependent / ILSDI_Services.t

diff --git a/t/db_dependent/ILSDI_Services.t b/t/db_dependent/ILSDI_Services.t
index 4ec7f81..f3efde8 100644 (file)
--- a/t/db_dependent/ILSDI_Services.t
+++ b/t/db_dependent/ILSDI_Services.t
@@ -103,7 +103,7 @@ subtest 'AuthenticatePatron test' => sub {
 
 subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes' => sub {
 
-    plan tests => 4;
+    plan tests => 5;
 
     $schema->storage->txn_begin;
 
@@ -237,6 +237,8 @@ subtest 'GetPatronInfo/GetBorrowerAttributes test for extended patron attributes
     # Check results:
     is_deeply( $reply->{'attributes'}, [ $cmp ], 'Test GetPatronInfo - show_attributes parameter' );
 
+    ok( exists $reply->{is_expired}, 'There should be the is_expired information');
+
     # Cleanup
     $schema->storage->txn_rollback;
 };