From 9a699a60143780c87e0c5b8435bffb97d0c23225 Mon Sep 17 00:00:00 2001
From: Daniel Gempesaw <gempesaw@gmail.com>
Date: Thu, 25 May 2017 12:13:10 -0400
Subject: [PATCH] Add tests for absolute redirects

---
 t/Remote-Connection.t | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/t/Remote-Connection.t b/t/Remote-Connection.t
index 8400a2fd..02741540 100644
--- a/t/Remote-Connection.t
+++ b/t/Remote-Connection.t
@@ -11,6 +11,32 @@ BEGIN: {
     }
 }
 
+ABSOLUTE_PATH_REDIRECTS: {
+    my $tua = Test::LWP::UserAgent->new(max_redirect => 0);
+
+    $tua->map_response(qr/redirect/, HTTP::Response->new(303, undef, ['Location' => '/elsewhere']));
+    $tua->map_response(qr/^http:\/\/localhost:80\/elsewhere$/, HTTP::Response->new(
+        200,
+        'OK',
+        ['Content-Type' => 'application/json'],
+        ''
+    ));
+
+    my $conn = Selenium::Remote::RemoteConnection->new(
+        remote_server_addr => 'localhost',
+        port => '80',
+        ua => $tua
+    );
+
+    my $redirect_endpoint = {
+        method => 'GET',
+        url => 'http://localhost/redirect'
+    };
+
+    my $resp = $conn->request($redirect_endpoint);
+    is($resp->{cmd_status}, 'OK', 'can redirect to absolute path');
+}
+
 REDIRECT: {
     my $tua = Test::LWP::UserAgent->new(
         max_redirect => 0