12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- use strict;
- use warnings;
- use Test::More;
- use Test::Fatal;
- use Test::LWP::UserAgent;
- use IO::Socket::INET;
- BEGIN: {
- unless (use_ok('Selenium::Remote::Driver')) {
- BAIL_OUT("Couldn't load Selenium::Remote::Driver");
- exit;
- }
- }
- UNAVAILABLE_BROWSER: {
- my $tua = Test::LWP::UserAgent->new;
- $tua->map_response(qr{status}, HTTP::Response->new(200, 'OK'));
- $tua->map_response(qr{session}, HTTP::Response->new(
- 500,
- 'Internal Server Error',
- ['Content-Type' => 'application/json'],
- '{"status":13,"sessionId":null,"value":{"message":"The path to..."} }'
- ));
- like( exception {
- Selenium::Remote::Driver->new_from_caps(
- ua => $tua,
- desired_capabilities => {
- browserName => 'chrome'
- }
- );
- }, qr/Could not create new session.*path to/,
- 'Errors in browser configuration are passed to user' );
- }
- LOCAL: {
- like( exception {
- Selenium::Remote::Driver->new_from_caps(
- port => 80
- );
- }, qr/Selenium server did not return proper status/,
- 'Error message for not finding a selenium server is helpful' );
- }
- done_testing;
|