2 use strict; use warnings;
3 use Test::More tests => 4;
4 use OpenILS::Utils::TestUtils;
5 use OpenILS::Utils::CStoreEditor qw/:funcs/;
7 diag("Tests safe auth token user activity tracking");
9 my $script = OpenILS::Utils::TestUtils->new();
15 $script->authenticate({
17 password => 'demo123',
21 ok($script->authtoken, 'Have an authtoken');
23 my $actor_ses = $script->session('open-ils.actor');
24 my $req = $actor_ses->request(
25 'open-ils.actor.session.safe_token', $script->authtoken);
27 my $safe_token = $req->recv->content;
29 ok($safe_token, 'Have safe token');
31 my $act_count = scalar(@{$e->search_actor_usr_activity({usr => 1})});
33 $req = $actor_ses->request(
34 'open-ils.actor.safe_token.home_lib.shortname', $safe_token);
36 my $home_ou = $req->recv->content;
38 ok($home_ou, 'Retrieved home org unit');
40 my $act_count2 = scalar(@{$e->search_actor_usr_activity({usr => 1})});
42 is($act_count2, $act_count + 1, 'User activity entry created');