|
Lines 98-104
subtest 'Test renew desensitize' => sub {
Link Here
|
| 98 |
subtest 'Checkin V2' => sub { |
98 |
subtest 'Checkin V2' => sub { |
| 99 |
my $schema = Koha::Database->new->schema; |
99 |
my $schema = Koha::Database->new->schema; |
| 100 |
$schema->storage->txn_begin; |
100 |
$schema->storage->txn_begin; |
| 101 |
plan tests => 39; |
101 |
plan tests => 40; |
| 102 |
$C4::SIP::Sip::protocol_version = 2; |
102 |
$C4::SIP::Sip::protocol_version = 2; |
| 103 |
test_checkin_v2(); |
103 |
test_checkin_v2(); |
| 104 |
$schema->storage->txn_rollback; |
104 |
$schema->storage->txn_rollback; |
|
Lines 897-902
sub test_checkin_v2 {
Link Here
|
| 897 |
is( substr($response,2,1), '0', 'OK flag is false' ); |
897 |
is( substr($response,2,1), '0', 'OK flag is false' ); |
| 898 |
is( substr($response,5,1), 'Y', 'Alert flag is set' ); |
898 |
is( substr($response,5,1), 'Y', 'Alert flag is set' ); |
| 899 |
check_field( $respcode, $response, FID_SCREEN_MSG, 'Invalid Item', 'Check screen msg', 'regex' ); |
899 |
check_field( $respcode, $response, FID_SCREEN_MSG, 'Invalid Item', 'Check screen msg', 'regex' ); |
|
|
900 |
check_field( $respcode, $response, FID_PERM_LOCN, '', 'Check that AQ is in the response'); |
| 900 |
|
901 |
|
| 901 |
# Not checked out, toggle option checked_in_ok |
902 |
# Not checked out, toggle option checked_in_ok |
| 902 |
$siprequest = CHECKIN . 'N' . 'YYYYMMDDZZZZHHMMSS' . |
903 |
$siprequest = CHECKIN . 'N' . 'YYYYMMDDZZZZHHMMSS' . |
| 903 |
- |
|
|