105 lines
3.3 KiB
Perl
105 lines
3.3 KiB
Perl
#!/usr/bin/perl
|
|
# renew_all: test Renew All Response
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Clone qw(clone);
|
|
|
|
use Sip::Constants qw(:all);
|
|
|
|
use SIPtest qw(:basic :user1 :item1 :item2);
|
|
|
|
my $enable_template = {
|
|
id => 'Renew All: prep: enable patron permissions',
|
|
msg => "2520060102 084238AO$instid|AA$user_barcode|",
|
|
pat => qr/^26 {4}[ Y]{10}000$datepat/,
|
|
fields => [],
|
|
};
|
|
|
|
my @checkout_templates = (
|
|
{ id => "Renew All: prep: check out $item_barcode to $user_barcode",
|
|
msg => "11YN20060329 203000 AO$instid|AA$user_barcode|AB$item_barcode|AC$password|",
|
|
pat => qr/^121NNY$datepat/,
|
|
fields => [],},
|
|
{ id => "Renew All: prep: check out $item2_barcode to $user_barcode",
|
|
msg => "11YN20060329 203000 AO$instid|AA$user_barcode|AB$item2_barcode|AC$password|",
|
|
pat => qr/^121NNY$datepat/,
|
|
fields => [],}
|
|
);
|
|
|
|
my @checkin_templates = (
|
|
{ id => "Renew All: prep: check in $item_barcode",
|
|
msg => "09N20060102 08423620060113 084235APUnder the bed|AO$instid|AB$item_barcode|AC$password|",
|
|
pat => qr/^101YNN$datepat/,
|
|
fields => [],},
|
|
{ id => "Renew All: prep: check in $item2_barcode",
|
|
msg => "09N20060102 08423620060113 084235APUnder the bed|AO$instid|AB$item2_barcode|AC$password|",
|
|
pat => qr/^101YNN$datepat/,
|
|
fields => [],}
|
|
);
|
|
|
|
my $renew_all_test_template = {
|
|
id => "Renew All: patron ($user_barcode) with 1 item ($item_barcode) checked out, no patron password",
|
|
msg => "6520060102 084236AO$instid|AA$user_barcode|",
|
|
pat => qr/^66100010000$datepat/,
|
|
fields => [
|
|
$SIPtest::field_specs{(FID_INST_ID)},
|
|
$SIPtest::field_specs{(FID_SCREEN_MSG)},
|
|
$SIPtest::field_specs{(FID_PRINT_LINE)},
|
|
{ field => FID_RENEWED_ITEMS,
|
|
pat => qr/^$item_barcode$/,
|
|
required => 1, },
|
|
]
|
|
};
|
|
|
|
my @tests = (
|
|
$SIPtest::login_test,
|
|
$SIPtest::sc_status_test,
|
|
# $enable_template,
|
|
$checkout_templates[0],
|
|
$renew_all_test_template,
|
|
$checkin_templates[0], # check the book in, when done testing
|
|
);
|
|
|
|
my $test;
|
|
|
|
$test = clone($renew_all_test_template);
|
|
$test->{id} = 'Renew All: Valid patron, two items checked out';
|
|
$test->{pat} = qr/^66100020000$datepat/;
|
|
foreach my $i (0 .. (scalar @{$test->{fields}})-1) {
|
|
my $field = $test->{fields}[$i];
|
|
if ($field->{field} eq FID_RENEWED_ITEMS) {
|
|
$field->{pat} = qr/^$item_barcode\|$item2_barcode$/;
|
|
}
|
|
}
|
|
|
|
#push @tests, @checkout_templates[0..1], $renew_all_test_template, @checkin_templates[0..1];
|
|
|
|
$test = clone($renew_all_test_template);
|
|
$test->{id} = 'Renew All: valid patron, invalid patron password';
|
|
$test->{msg} .= (FID_PATRON_PWD) . 'bad_pwd|';
|
|
$test->{pat} = qr/^66000000000$datepat/;
|
|
delete $test->{fields};
|
|
$test->{fields} = [
|
|
$SIPtest::field_specs{(FID_INST_ID)},
|
|
$SIPtest::field_specs{(FID_SCREEN_MSG)},
|
|
$SIPtest::field_specs{(FID_PRINT_LINE)},
|
|
];
|
|
|
|
push @tests, $checkout_templates[0], $test, $checkin_templates[0];
|
|
|
|
$test = clone($renew_all_test_template);
|
|
$test->{id} = 'Renew All: invalid patron';
|
|
$test->{msg} =~ s/AA$user_barcode/AAbad_barcode/;
|
|
$test->{pat} = qr/^66000000000$datepat/;
|
|
delete $test->{fields};
|
|
$test->{fields} = [
|
|
$SIPtest::field_specs{(FID_INST_ID)},
|
|
$SIPtest::field_specs{(FID_SCREEN_MSG)},
|
|
$SIPtest::field_specs{(FID_PRINT_LINE)},
|
|
];
|
|
push @tests, $test;
|
|
|
|
SIPtest::run_sip_tests(@tests);
|
|
|
|
1;
|