Attachment 123217 Details for Bug 27945 – Bug 27945: Add tests

[patch] Bug 27945: Add tests

Bug-27945-Add-tests.patch (text/plain), 3.72 KB, created by Agustín Moyano on 2021-07-27 15:38:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Agustín Moyano

Created: 2021-07-27 15:38:09 UTC

Size: 3.72 KB

patch

obsolete

>From 27a407aa1d87798a33f9df757d75fd233e340e42 Mon Sep 17 00:00:00 2001
>From: Agustin Moyano <agustinmoyano@theke.io>
>Date: Thu, 22 Jul 2021 00:54:41 +0000
>Subject: [PATCH] Bug 27945: Add tests
>
>---
> t/db_dependent/ArticleRequests.t | 94 +++++++++++++++++++++++++++++++-
> 1 file changed, 93 insertions(+), 1 deletion(-)
> mode change 100755 => 100644 t/db_dependent/ArticleRequests.t
>
>diff --git a/t/db_dependent/ArticleRequests.t b/t/db_dependent/ArticleRequests.t
>old mode 100755
>new mode 100644
>index f27ef8bf48..120b3c075b
>--- a/t/db_dependent/ArticleRequests.t
>+++ b/t/db_dependent/ArticleRequests.t
>@@ -19,7 +19,7 @@ use Modern::Perl;
> 
> use POSIX qw(strftime);
> 
>-use Test::More tests => 55;
>+use Test::More tests => 56;
> 
> use t::lib::TestBuilder;
> use t::lib::Mocks;
>@@ -31,6 +31,8 @@ use Koha::Patron;
> use Koha::Library::Group;
> use Koha::CirculationRules;
> use Koha::Caches;
>+use Koha::DateUtils qw( dt_from_string );
>+use Try::Tiny;
> 
> BEGIN {
>     use_ok('Koha::ArticleRequest');
>@@ -329,4 +331,94 @@ subtest 'article request fee' => sub {
> 
> };
> 
>+subtest 'article request limit' => sub {
>+  plan tests => 12;
>+
>+  t::lib::Mocks::mock_preference('ArticleRequests', 1);
>+
>+  my $item = $builder->build_sample_item;
>+
>+  my $category = $builder->build_object(
>+    {
>+      class => 'Koha::Patron::Categories',
>+      value => {
>+        article_request_limit => 1
>+      }
>+    }
>+  );
>+  my $patron   = $builder->build_object(
>+    {
>+      class => 'Koha::Patrons',
>+      value => {
>+        categorycode => $category->categorycode
>+      },
>+    }
>+  );
>+  $patron->article_requests->delete();
>+
>+  is($patron->can_request_article, 1, 'Patron can request more articles');
>+
>+  my $article_request_1 = Koha::ArticleRequest->new(
>+    {
>+      borrowernumber => $patron->id,
>+      biblionumber   => $item->biblionumber,
>+      itemnumber     => $item->itemnumber,
>+      title          => 'an article request',
>+    }
>+  )->store();
>+
>+  is($patron->can_request_article, 0, 'Patron cannot request more articles');
>+  is($patron->article_requests->count, 1, 'There is one current article request');
>+
>+  try {
>+    Koha::ArticleRequest->new(
>+      {
>+        borrowernumber => $patron->id,
>+        biblionumber   => $item->biblionumber,
>+        itemnumber     => $item->itemnumber,
>+        title          => 'an second article request',
>+      }
>+    )->store();
>+  }
>+  catch {
>+    is(ref($_), 'Koha::Exceptions::ArticleRequest::LimitReached', 'Limit reached thrown');
>+  };
>+
>+  is($patron->can_request_article, 0, 'Patron cannot request more articles');
>+  is($patron->article_requests->count, 1, 'There is still one article request');
>+
>+  $article_request_1->created_on(dt_from_string->add(days => -1))->store();
>+
>+  is($patron->can_request_article, 1, 'Patron can request more articles');
>+
>+  my $article_request_3 = Koha::ArticleRequest->new(
>+    {
>+      borrowernumber => $patron->id,
>+      biblionumber   => $item->biblionumber,
>+      itemnumber     => $item->itemnumber,
>+      title          => 'an third article request',
>+    }
>+  )->store();
>+
>+  is($patron->can_request_article, 0, 'Patron cannot request more articles');
>+  is($patron->article_requests->count, 2, 'There are 2 article requests');
>+
>+  $article_request_3->cancel();
>+
>+  is($patron->can_request_article, 1, 'Patron can request more articles');
>+
>+  Koha::ArticleRequest->new(
>+    {
>+      borrowernumber => $patron->id,
>+      biblionumber   => $item->biblionumber,
>+      itemnumber     => $item->itemnumber,
>+      title          => 'an fourth article request',
>+    }
>+  )->store();
>+
>+  is($patron->can_request_article, 0, 'Patron cannot request more articles');
>+  is($patron->article_requests->count, 3, 'There are 3 current article requests');
>+
>+};
>+
> $schema->storage->txn_rollback();
>-- 
>2.25.1

Actions: View | Diff | Splinter Review

Attachments on bug 27945: 123217 | 123218 | 123219 | 123220 | 123714 | 123715 | 123774 | 123775 | 123776 | 123777 | 123778 | 123820 | 124066 | 124067 | 124068 | 124069 | 124070 | 124071 | 124072 | 124073 | 124074 | 124075 | 124076 | 124077 | 124078 | 124079 | 124284 | 124285 | 124633 | 124673 | 124674 | 124675 | 124676 | 124677 | 124678 | 124679 | 124680 | 124681 | 124682 | 125140 | 125142 | 125143 | 125144 | 125145 | 125146 | 125147 | 125148 | 125149 | 125150 | 125151 | 125152 | 125178 | 125179 | 125569 | 125571 | 125638 | 125690 | 125702 | 125703 | 125704 | 125705 | 125706 | 125707 | 125726 | 125741 | 125761