Open-ILS/src/perlmods/live_t/29-lp1817645-remoteauth-patron-api.t

   1 #!perl
   2
   3 use Test::More tests => 9; # XXX
   4
   5 diag("Tests RemoteAuth patron auth/retrieval");
   6
   7 use strict; use warnings;
   8 use OpenILS::Utils::TestUtils;
   9 use MIME::Base64;
  10 use HTTP::Request;
  11 use LWP::UserAgent;
  12 use OpenILS::Utils::CStoreEditor qw/:funcs/;
  13 use OpenILS::Application::AppUtils;
  14 our $U = "OpenILS::Application::AppUtils";
  15
  16 OpenILS::Utils::TestUtils->new->bootstrap;
  17
  18 my $not_found = { barcode => '99999393000', password => 'nonexistentbarcode' };
  19 my $expired = { barcode => '99999393001', password => 'marges1234' };
  20 my $deleted = { barcode => '99999393002', password => 'homers1234' };
  21 my $barred = { barcode => '99999393003', password => 'barts1234' };
  22 my $valid = { barcode => '99999393004', password => 'lisas1234' };
  23 my $inactive = { barcode => '99999393005', password => 'maggies1234' };
  24 my $external = { barcode => '99999393100', password => 'shelbyvillem1234' };
  25
  26 # context org is SYS1, test user's home OU is BR1;
  27 # use BR3 (under SYS2) to test external users
  28 my $external_org = 6; # BR3
  29
  30 my $staff_login = $U->simplereq(
  31     'open-ils.auth',
  32     'open-ils.auth.login', {
  33         username => 'admin',
  34         password => 'demo123',
  35         type => 'staff'
  36     }
  37 );
  38 is($staff_login->{textcode}, 'SUCCESS', 'Staff login OK');
  39 my $e = new_editor( authtoken => $staff_login->{payload}->{authtoken} );
  40
  41 my $client = LWP::UserAgent->new;
  42 $client->ssl_opts( verify_hostname => 0 );
  43
  44 # my $res = $client->request( $method, $uri, $headers, $content, $request_timeout );
  45
  46
  47 ######################################################################
  48
  49 # requests:
  50 # - validate barcode only?
  51 # - validate barcode + PIN
  52 # - retrieve user and check for required fields in response
  53
  54 # test cases:
  55 # - valid user with username or barcode (opac.barcode_regex)
  56 # - valid user with barcode prefix
  57 # - valid user with barcode
  58 # - invalid password
  59 # - barcode not found
  60 # - user is deleted
  61 # - user is expired
  62 # - user is barred
  63 # - user has non-blocking penalties, auth/retrieval succeeds
  64 # - user has blocking penalties
  65 # - user exists, but home OU is not in scope
  66
  67 # not currently supported:
  68 # - AuthProxy: services should use the remote auth server directly
  69 # - opted-in patrons: these are external patrons and thus not auth'd
  70
  71 ######################################################################
  72
  73 #---------------------------------------------------------------------
  74 # Basic access authentication (RFC 7617)
  75 #---------------------------------------------------------------------
  76 # - endpoint: /api/basicauth
  77 # - client auth: none
  78 # - request: includes "Authorization: Basic <credentials>" header,
  79 #   credentials = Base64-encoded "id:password" string
  80 # - response: HTTP 200 on success, 401 with WWW-Authenticate header
  81 #   field on failure
  82 # - does not return patron info
  83 #---------------------------------------------------------------------
  84 sub basic_request {
  85     my ($u, $password) = @_;
  86     my $barcode = $u->{barcode};
  87     $password ||= $u->{password};
  88     my $resp = $client->get(
  89         "https://localhost/api/basicauth",
  90         'Authorization' => 'Basic ' . encode_base64("$barcode:$password")
  91     );
  92     return $resp->code;
  93 }
  94
  95 my $basic_not_found = basic_request($not_found);
  96 is ( $basic_not_found, '403', 'Basic request for nonexistent barcode correctly returned 403' );
  97
  98 my $basic_success = basic_request($valid);
  99 is( $basic_success, '200', 'Basic request for valid patron OK' );
 100
 101 # invalid password
 102 my $basic_invalid_pw = basic_request($valid, 'badpassword');
 103 is( $basic_invalid_pw, '403', 'Basic request with invalid password correctly returned 403' );
 104
 105 # user is deleted
 106 my $basic_deleted = basic_request($deleted);
 107 is( $basic_deleted, '403', 'Basic request for deleted user correctly returned 403' );
 108
 109 # user is expired
 110 my $basic_expired = basic_request($expired);
 111 is( $basic_expired, '403', 'Basic request for expired user correctly returned 403' );
 112
 113 # user is inactive
 114 my $basic_inactive = basic_request($inactive);
 115 is( $basic_inactive, '403', 'Basic request for inactive user correctly returned 403' );
 116
 117 # user is barred
 118 my $basic_barred = basic_request($barred);
 119 is( $basic_barred, '403', 'Basic request for barred user correctly returned 403' );
 120
 121 # home OU is not in scope
 122 my $basic_external = basic_request($external);
 123 is( $basic_external, '403', 'Basic request for external user correctly returned 403' );
 124
 125 # TODO: user has blocking penalties
 126
 127 # TODO: user has non-blocking penalties, auth/retrieval succeeds
 128
 129
 130
 131 # TODO: EZProxy external script authentication:
 132 # - endpoint: /remoteauth/ezproxy/<shortname>/<id>/<password>
 133 # - client auth: none
 134 # - request: GET with user and pass params, as above
 135 # - response: "+VALID" if auth succeeds
 136
 137
 138 # TODO: verify user activity based on the above tests
 139
 140