|
Lines 303-319
subtest 'decoded_data() and set_encoded_data() tests' => sub {
Link Here
|
| 303 |
$schema->storage->txn_rollback; |
303 |
$schema->storage->txn_rollback; |
| 304 |
}; |
304 |
}; |
| 305 |
|
305 |
|
| 306 |
subtest 'decoded_data() and set_encoded_data() tests' => sub { |
306 |
subtest 'connect' => sub { |
| 307 |
plan tests => 3; |
307 |
plan tests => 2; |
|
|
308 |
|
| 309 |
subtest 'JobsNotificationMethod' => sub { |
| 310 |
plan tests => 3; |
| 311 |
t::lib::Mocks::mock_config( 'message_broker', { hostname => 'not_localhost', port => '99999' } ); |
| 312 |
|
| 313 |
t::lib::Mocks::mock_preference( 'JobsNotificationMethod', 'STOMP' ); |
| 314 |
my $job; |
| 315 |
warning_like { $job = Koha::BackgroundJob->connect() } qr{Cannot connect to broker}; |
| 316 |
is( $job, undef, "Return undef if unable to connect when using stomp" ); |
| 308 |
|
317 |
|
| 309 |
t::lib::Mocks::mock_config( 'message_broker', { hostname => 'not_localhost', port => '99999' } ); |
318 |
t::lib::Mocks::mock_preference( 'JobsNotificationMethod', 'polling' ); |
|
|
319 |
$job = Koha::BackgroundJob->connect(); |
| 320 |
is( $job, undef, "Return undef if using polling" ); |
| 321 |
}; |
| 322 |
|
| 323 |
subtest 'wrong credentials' => sub { |
| 324 |
plan tests => 2; |
| 325 |
t::lib::Mocks::mock_preference( 'JobsNotificationMethod', 'STOMP' ); |
| 310 |
|
326 |
|
| 311 |
t::lib::Mocks::mock_preference( 'JobsNotificationMethod', 'STOMP' ); |
327 |
t::lib::Mocks::mock_config( |
| 312 |
my $job; |
328 |
'message_broker', |
| 313 |
warning_like { $job = Koha::BackgroundJob->connect() } qr{Cannot connect to broker}; |
329 |
{ hostname => 'localhost', port => '61613', username => 'guest', password => 'wrong_password' } |
| 314 |
is( $job, undef, "Return undef if unable to connect when using stomp" ); |
330 |
); |
| 315 |
|
331 |
|
| 316 |
t::lib::Mocks::mock_preference( 'JobsNotificationMethod', 'polling' ); |
332 |
my $job; |
| 317 |
$job = Koha::BackgroundJob->connect(); |
333 |
warning_is { $job = Koha::BackgroundJob->connect() } |
| 318 |
is( $job, undef, "Return undef if using polling" ); |
334 |
q{Cannot connect to broker (Access refused for user 'guest')}; |
|
|
335 |
is( $job, undef, "Return undef if unable to connect when using stomp" ); |
| 336 |
|
| 337 |
}; |
| 319 |
}; |
338 |
}; |
| 320 |
- |
|
|