3 use Test::More tests => 4;
5 diag("Tests barcode completion");
7 use strict; use warnings;
8 use OpenILS::Utils::TestUtils;
9 use OpenILS::Utils::CStoreEditor (':funcs');
10 use OpenILS::Utils::Fieldmapper;
11 our $U = "OpenILS::Application::AppUtils";
13 my $script = OpenILS::Utils::TestUtils->new();
17 my $org = 5; # test org: BR2
18 my $bc_base = 'bc_complete_user';
19 my $bc_prefix = 'JUSTATEST_';
20 my $bc = $bc_prefix . $bc_base;
22 # get authtoken for future use
23 $script->authenticate({
25 password => 'demo123',
29 my $authtoken = $script->authtoken;
30 ok($authtoken, 'was able to authenticate');
33 my $new_user = Fieldmapper::actor::user->new();
34 my $new_card = Fieldmapper::actor::card->new();
36 $new_card->barcode($bc);
37 $new_card->id(-1); # virtual ID
38 $new_card->usr(undef);
41 $new_user->cards([ $new_card ]);
42 $new_user->card($new_card);
43 $new_user->usrname($bc);
44 $new_user->passwd('dummypwd');
45 $new_user->family_name('Doe');
46 $new_user->first_given_name('Jane');
47 $new_user->profile(2);
48 $new_user->home_ou($org);
49 $new_user->ident_type(1);
52 my $user = $U->simplereq(
54 'open-ils.actor.patron.update',
58 isa_ok($user, 'Fieldmapper::actor::user', 'new patron');
60 # create barcode completion rule
61 my $new_rule = Fieldmapper::config::barcode_completion->new();
64 $new_rule->active('t');
65 $new_rule->org_unit($org);
66 $new_rule->prefix($bc_prefix);
67 $new_rule->actor('t');
68 $new_rule->asset('f'); # TODO test item barcodes too
70 my $e = new_editor(xact => 1);
74 $e->create_config_barcode_completion($new_rule);
77 my $bc_rule = $e->search_config_barcode_completion({
78 org_unit => 5, actor => 't', prefix => $bc_prefix
80 isa_ok($bc_rule, 'Fieldmapper::config::barcode_completion', 'Created and retrieved new barcode completion rule');
82 my $get_barcodes = $U->simplereq(
84 'open-ils.actor.get_barcodes',
85 $authtoken, $org, 'actor', $bc_base
87 is($get_barcodes->[0]->{barcode}, $bc, 'Retrieved correct user with barcode completion');
92 'open-ils.actor.user.delete',
97 $e->delete_config_barcode_completion($bc_rule);