Bug 24830: Add tests

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

diff --git a/t/Koha/REST/Plugin/Query.t b/t/Koha/REST/Plugin/Query.t
index 0ddd6fc..8a27577 100644 (file)
--- a/t/Koha/REST/Plugin/Query.t
+++ b/t/Koha/REST/Plugin/Query.t
@@ -24,6 +24,7 @@ use Try::Tiny;
 use Koha::Cities;
 use Koha::Holds;
 use Koha::Biblios;
+use Koha::Patron::Relationship;
 
 app->log->level('error');
 
@@ -135,6 +136,50 @@ get '/dbic_merge_prefetch' => sub {
     $c->render( json => $attributes, status => 200 );
 };
 
+get '/dbic_merge_prefetch_recursive' => sub {
+    my $c = shift;
+    my $attributes = {};
+    my $result_set = Koha::Patron::Relationship->new;
+    $c->stash('koha.embed', {
+      "guarantee" => {
+        "children" => {
+          "article_requests" => {},
+          "housebound_profile" => {
+            "children" => {
+              "housebound_visits" => {}
+            }
+          },
+          "housebound_role" => {}
+        }
+      }
+    });
+
+    $c->dbic_merge_prefetch({
+        attributes => $attributes,
+        result_set => $result_set
+    });
+
+    $c->render( json => $attributes, status => 200 );
+};
+
+get '/dbic_merge_prefetch_count' => sub {
+    my $c = shift;
+    my $attributes = {};
+    my $result_set = Koha::Patron::Relationship->new;
+    $c->stash('koha.embed', {
+            "guarantee_count" => {
+              "is_count" => 1
+            }
+        });
+
+    $c->dbic_merge_prefetch({
+        attributes => $attributes,
+        result_set => $result_set
+    });
+
+    $c->render( json => $attributes, status => 200 );
+};
+
 get '/merge_q_params' => sub {
   my $c = shift;
   my $filtered_params = {'biblio_id' => 1};
@@ -298,13 +343,25 @@ subtest 'dbic_merge_sorting() tests' => sub {
 };
 
 subtest '/dbic_merge_prefetch' => sub {
-    plan tests => 4;
+    plan tests => 10;
 
     my $t = Test::Mojo->new;
 
     $t->get_ok('/dbic_merge_prefetch')->status_is(200)
-      ->json_like( '/prefetch/0' => qr/item|biblio/ )
-      ->json_like( '/prefetch/1' => qr/item|biblio/ );
+      ->json_is( '/prefetch/0' => 'biblio' )
+      ->json_is( '/prefetch/1' => 'item' );
+
+    $t->get_ok('/dbic_merge_prefetch_recursive')->status_is(200)
+      ->json_is('/prefetch/0' => {
+        guarantee => [
+          'article_requests',
+          {housebound_profile => 'housebound_visits'},
+          'housebound_role'
+        ]
+      });
+
+    $t->get_ok('/dbic_merge_prefetch_count')->status_is(200)
+      ->json_is('/prefetch/0' => 'guarantee');
 };
 
 subtest '/merge_q_params' => sub {