4 use Test::More tests => 3;
6 use OpenILS::Utils::TestUtils;
7 use OpenILS::Utils::Fieldmapper;
8 our $U = "OpenILS::Application::AppUtils";
10 my $script = OpenILS::Utils::TestUtils->new();
13 $script->authenticate({
15 password => 'demo123',
19 my $authtoken = $script->authtoken;
20 ok($authtoken, 'was able to authenticate');
22 my $new_user = Fieldmapper::actor::user->new();
23 my $new_card = Fieldmapper::actor::card->new();
25 $new_card->barcode("felinity_$$");
26 $new_card->id(-1); # virtual ID
27 $new_card->usr(undef);
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(1);
41 my $resp = $U->simplereq(
43 'open-ils.actor.patron.update',
48 isa_ok($resp, 'Fieldmapper::actor::user', 'new patron');
50 $script->authenticate({
51 username => "felinity_$$",
52 password => 'catsrule',
55 my $opac_authtoken = $script->authtoken;
56 ok($opac_authtoken, 'was able to authenticate using new patron');
61 'open-ils.actor.user.delete',