3 use Test::More tests => 2;
5 diag("Simple tests against the open-ils.storage service and the stock test data.");
7 use strict; use warnings;
9 use OpenILS::Utils::TestUtils;
10 my $script = OpenILS::Utils::TestUtils->new();
12 my $ses = $script->session('open-ils.storage');
13 my $req = $ses->request('open-ils.storage.direct.actor.user.retrieve', 1);
14 if (my $resp = $req->recv) {
15 if (my $user = $resp->content) {
18 'Fieldmapper::actor::user',
19 'open-ils.storage.direct.actor.user.retrieve returned aou object'
24 'User with id = 1 is admin user'