Open-ILS/src/perlmods/live_t/17-lp1579225_new_patron_passwords.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More tests => 3;
   5
   6 use OpenILS::Utils::TestUtils;
   7 use OpenILS::Utils::Fieldmapper;
   8 our $U = "OpenILS::Application::AppUtils";
   9
  10 my $script = OpenILS::Utils::TestUtils->new();
  11 $script->bootstrap();
  12
  13 $script->authenticate({
  14     username => 'admin',
  15     password => 'demo123',
  16     type => 'staff'
  17 });
  18
  19 my $authtoken = $script->authtoken;
  20 ok($authtoken, 'was able to authenticate');
  21
  22 my $new_user = Fieldmapper::actor::user->new();
  23 my $new_card = Fieldmapper::actor::card->new();
  24
  25 $new_card->barcode("felinity_$$");
  26 $new_card->id(-1); # virtual ID
  27 $new_card->usr(undef);
  28 $new_card->isnew(1);
  29
  30 $new_user->cards([ $new_card ]);
  31 $new_user->card($new_card);
  32 $new_user->usrname("felinity_$$");
  33 $new_user->passwd('catsrule');
  34 $new_user->family_name('Doe');
  35 $new_user->first_given_name('Jane');
  36 $new_user->profile(2);
  37 $new_user->home_ou(4);
  38 $new_user->ident_type(2);
  39 $new_user->isnew(1);
  40
  41 my $resp = $U->simplereq(
  42     'open-ils.actor',
  43     'open-ils.actor.patron.update',
  44     $authtoken,
  45     $new_user
  46 );
  47
  48 isa_ok($resp, 'Fieldmapper::actor::user', 'new patron');
  49
  50 $script->authenticate({
  51     username => "felinity_$$",
  52     password => 'catsrule',
  53     type => 'opac',
  54 });
  55 my $opac_authtoken = $script->authtoken;
  56 ok($opac_authtoken, 'was able to authenticate using new patron');
  57
  58 # clean up
  59 $U->simplereq(
  60     'open-ils.actor',
  61     'open-ils.actor.user.delete',
  62     $authtoken,
  63     $resp->id()
  64 );