Open-ILS/src/perlmods/live_t/24-lp1710949-login-api.t

   1 #!perl
   2
   3 use Test::More tests => 6;
   4
   5 diag("Tests open-ils.auth.login");
   6
   7 use strict; use warnings;
   8 use OpenILS::Utils::TestUtils;
   9 use OpenILS::Application::AppUtils;
  10 our $U = "OpenILS::Application::AppUtils";
  11
  12 OpenILS::Utils::TestUtils->new->bootstrap;
  13
  14 my $resp = $U->simplereq(
  15     'open-ils.auth',
  16     'open-ils.auth.login', {
  17         username => 'admin',
  18         password => 'demo123',
  19         type => 'staff'
  20     }
  21 );
  22
  23 is($resp->{textcode}, 'SUCCESS', 'Admin username login OK');
  24
  25 my $authtoken = $resp->{payload}->{authtoken};
  26 ok($authtoken, 'Have an authtoken');
  27
  28 $resp = $U->simplereq(
  29     'open-ils.auth',
  30     'open-ils.auth.session.retrieve', $authtoken);
  31
  32 ok(
  33     (ref($resp) && !$U->event_code($resp) && $resp->usrname eq 'admin'),
  34     'Able to retrieve session'
  35 );
  36
  37 $resp = $U->simplereq(
  38     'open-ils.auth',
  39     'open-ils.auth.login', {
  40         username => 'admin',
  41         password => 'demo123x', # bad password
  42         type => 'staff'
  43     }
  44 );
  45
  46 isnt($resp->{textcode}, 'SUCCESS', 'Admin bad password rejected');
  47
  48 $resp = $U->simplereq(
  49     'open-ils.auth',
  50     'open-ils.auth.login', {
  51         barcode => '99999381970',
  52         password => 'montyc1234',
  53         type => 'staff'
  54     }
  55 );
  56
  57 is($resp->{textcode}, 'SUCCESS', '99999381970 login OK');
  58
  59 $resp = $U->simplereq(
  60     'open-ils.auth',
  61     'open-ils.auth.login', {
  62         identifier => 'br1mclark',
  63         password => 'montyc1234',
  64         type => 'staff'
  65     }
  66 );
  67
  68 is($resp->{textcode}, 'SUCCESS', 'Identifier check for br1mclark OK');
  69