Selenium-Remote-Driver/t/error.t

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;