3 use Test::More tests => 5;
5 diag("Tests Anonymous PCRUD personality for CStoreEditor");
7 use strict; use warnings;
9 use OpenILS::Utils::TestUtils;
10 use OpenILS::Utils::CStoreEditor (':funcs', personality => 'open-ils.pcrud');
11 my $script = OpenILS::Utils::TestUtils->new();
17 is ($e->personality, 'open-ils.pcrud', 'Confirm personality');
19 my $org = $e->retrieve_actor_org_unit(1);
20 is($org->id, 1, 'Anon org unit retrieved');
22 my $user = $e->retrieve_actor_user(1);
23 is($user, undef, 'Anon user not retrieved');
25 $org = $e->search_actor_org_unit({id => 1})->[0];
26 is($org->id, 1, 'Anon org unit searched');
28 $user = $e->search_actor_user({id => 1})->[0];
29 is($user, undef, 'Anon user not searched');