Open-ILS/src/perlmods/live_t/00-simple.t

   1 #!perl
   2
   3 use Test::More tests => 2;
   4
   5 diag("Simple tests against the open-ils.storage service and the stock test data.");
   6
   7 use strict; use warnings;
   8
   9 use OpenILS::Utils::TestUtils;
  10 my $script = OpenILS::Utils::TestUtils->new();
  11
  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) {
  16         is(
  17             ref $user,
  18             'Fieldmapper::actor::user',
  19             'open-ils.storage.direct.actor.user.retrieve returned aou object'
  20         );
  21         is(
  22             $user->usrname,
  23             'admin',
  24             'User with id = 1 is admin user'
  25         );
  26     }
  27 }
  28