Lines 8-17
use Clone qw(clone);
Link Here
|
8 |
use Sip::Constants qw(:all); |
8 |
use Sip::Constants qw(:all); |
9 |
use SIPtest qw(:basic :user1 :item1); |
9 |
use SIPtest qw(:basic :user1 :item1); |
10 |
|
10 |
|
|
|
11 |
# Checkout response, format: |
12 |
# code: 12 |
13 |
# success: 0 or 1 |
14 |
# renewal ok: Y or N |
15 |
# magnetic media: Y, N or U |
16 |
# desensitize: Y or N |
17 |
# date |
18 |
|
19 |
# Checkin response, format: |
20 |
# code: 10 |
21 |
# success: 0 or 1 |
22 |
# resensitize: Y or N |
23 |
# magnetic media: Y, N or U |
24 |
# alert: Y or N |
25 |
# date |
26 |
|
27 |
my $checkout_template = { |
28 |
id => "Checkin: prep: check out item ($item_barcode)", |
29 |
msg => "11YN20060329 203000 AO$instid|AA$user_barcode|AB$item_barcode|AC|", |
30 |
pat => qr/^121N[NYU][NY]$datepat/, |
31 |
fields => [], |
32 |
}; |
33 |
|
11 |
my $checkin_test_template = { |
34 |
my $checkin_test_template = { |
12 |
id => "Checkin: Item ($item_barcode) is checked out", |
35 |
id => "Checkin: Item ($item_barcode) is checked out", |
13 |
msg => "09N20060102 08423620060113 084235AP$item_owner|AO$instid|AB$item_barcode|AC$password|", |
36 |
msg => "09N20060102 08423620060113 084235AP$item_owner|AO$instid|AB$item_barcode|AC$password|", |
14 |
pat => qr/^101YNN$datepat/, |
37 |
pat => qr/^101[NY][NYU]N$datepat/, |
15 |
fields => [ |
38 |
fields => [ |
16 |
$SIPtest::field_specs{(FID_INST_ID )}, |
39 |
$SIPtest::field_specs{(FID_INST_ID )}, |
17 |
$SIPtest::field_specs{(FID_SCREEN_MSG)}, |
40 |
$SIPtest::field_specs{(FID_SCREEN_MSG)}, |
Lines 33-45
my $checkin_test_template = {
Link Here
|
33 |
required => 0, }, # 3M Extension |
56 |
required => 0, }, # 3M Extension |
34 |
],}; |
57 |
],}; |
35 |
|
58 |
|
36 |
my $checkout_template = { |
|
|
37 |
id => "Checkin: prep: check out item ($item_barcode)", |
38 |
msg => "11YN20060329 203000 AO$instid|AA$user_barcode|AB$item_barcode|AC|", |
39 |
pat => qr/^121NNY$datepat/, |
40 |
fields => [], |
41 |
}; |
42 |
|
43 |
my @tests = ( |
59 |
my @tests = ( |
44 |
$SIPtest::login_test, |
60 |
$SIPtest::login_test, |
45 |
$SIPtest::sc_status_test, |
61 |
$SIPtest::sc_status_test, |
Lines 54-60
my $test;
Link Here
|
54 |
# the ILS didn't check the item in, and there's no patron id. |
70 |
# the ILS didn't check the item in, and there's no patron id. |
55 |
$test = clone($checkin_test_template); |
71 |
$test = clone($checkin_test_template); |
56 |
$test->{id} = 'Checkin: Item not checked out'; |
72 |
$test->{id} = 'Checkin: Item not checked out'; |
57 |
$test->{pat} = qr/^100YNN$datepat/o; |
73 |
$test->{pat} = qr/^100[NY][NYU][NY]$datepat/o; |
58 |
$test->{fields} = [grep $_->{field} ne FID_PATRON_ID, @{$test->{fields}}]; |
74 |
$test->{fields} = [grep $_->{field} ne FID_PATRON_ID, @{$test->{fields}}]; |
59 |
|
75 |
|
60 |
push @tests, $test; |
76 |
push @tests, $test; |
61 |
- |
|
|