Open-ILS/src/perlmods/live_t/11-lp1240119-safe-token-activity.t

   1 #!perl
   2 use strict; use warnings;
   3 use Test::More tests => 4;
   4 use OpenILS::Utils::TestUtils;
   5 use OpenILS::Utils::CStoreEditor qw/:funcs/;
   6
   7 diag("Tests safe auth token user activity tracking");
   8
   9 my $script = OpenILS::Utils::TestUtils->new();
  10 $script->bootstrap;
  11
  12 my $e = new_editor();
  13 $e->init;
  14
  15 $script->authenticate({
  16     username => 'admin',
  17     password => 'demo123',
  18     type => 'staff'
  19 });
  20
  21 ok($script->authtoken, 'Have an authtoken');
  22
  23 my $actor_ses = $script->session('open-ils.actor');
  24 my $req = $actor_ses->request(
  25     'open-ils.actor.session.safe_token', $script->authtoken);
  26
  27 my $safe_token = $req->recv->content;
  28
  29 ok($safe_token, 'Have safe token');
  30
  31 my $act_count = scalar(@{$e->search_actor_usr_activity({usr => 1})});
  32
  33 $req = $actor_ses->request(
  34     'open-ils.actor.safe_token.home_lib.shortname', $safe_token);
  35
  36 my $home_ou = $req->recv->content;
  37
  38 ok($home_ou, 'Retrieved home org unit');
  39
  40 my $act_count2 = scalar(@{$e->search_actor_usr_activity({usr => 1})});
  41
  42 is($act_count2, $act_count + 1, 'User activity entry created');
  43