Open-ILS/src/perlmods/live_t/27-lp1497322-patron-search-by-profile.t

   1 #!perl
   2 use strict; use warnings;
   3
   4 use Test::More tests => 4;
   5
   6 diag("Tests searching for patrons by profile");
   7
   8 use DateTime;
   9 use OpenILS::Utils::TestUtils;
  10 my $script = OpenILS::Utils::TestUtils->new();
  11 our $apputils = 'OpenILS::Application::AppUtils';
  12 $script->bootstrap;
  13
  14 $script->authenticate({
  15     username => 'admin',
  16     password => 'demo123',
  17     type => 'staff'
  18 });
  19
  20 ok($script->authtoken, 'Have an authtoken');
  21
  22 my $results = $apputils->simplereq(
  23     'open-ils.actor',
  24     'open-ils.actor.patron.search.advanced.fleshed.atomic',
  25     $script->authtoken,
  26     {"family_name" => {"value" => "smith", "group" =>  0}},
  27     10,
  28     [],
  29     undef,
  30     1,
  31     ["cards"]
  32 );
  33
  34 cmp_ok(@$results, '>=', 1, 'Patron search on "Smith" returns at least one result');
  35
  36 $results = $apputils->simplereq(
  37     'open-ils.actor',
  38     'open-ils.actor.patron.search.advanced.fleshed.atomic',
  39     $script->authtoken,
  40     {"profile" => {"value" => 3, "group" =>  0}},
  41     10,
  42     [],
  43     undef,
  44     1,
  45     ["cards"]
  46 );
  47
  48 cmp_ok(@$results, '==', 0, 'Patron search profile 3 (staff) in group 0 returns at zero results');
  49
  50 $results = $apputils->simplereq(
  51     'open-ils.actor',
  52     'open-ils.actor.patron.search.advanced.fleshed.atomic',
  53     $script->authtoken,
  54     {"profile" => {"value" => 3, "group" =>  5}},
  55     10,
  56     [],
  57     undef,
  58     1,
  59     ["cards"]
  60 );
  61
  62 cmp_ok(@$results, '>=', 1, 'Patron search profile 3 (staff) in group 5 returns at least one result');