1 files changed, 106 insertions, 0 deletions
diff --git a/rt/t/web/redirect.t b/rt/t/web/redirect.t
new file mode 100644
index 000000000..d92386bb8
--- /dev/null
+++ b/rt/t/web/redirect.t
@@ -0,0 +1,106 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use RT::Test tests => 13;
+
+my $r = $HTML::Mason::Commands::r = bless {}, 'R';
+my $m = $HTML::Mason::Commands::m = bless {}, 'M';
+
+set_config(
+    CanonicalizeRedirectURLs => 0,
+    WebDomain => 'localhost',
+    WebPort => 80,
+    WebPath => '',
+);
+is( RT->Config->Get('WebBaseURL'), 'http://localhost' );
+is( RT->Config->Get('WebURL'), 'http://localhost/' );
+
+redirect_ok(
+    'http://localhost/Ticket/', 'http://localhost/Ticket/',
+    { SERVER_NAME => 'localhost', SERVER_PORT => 80 },
+);
+redirect_ok(
+    '/Ticket/', 'http://localhost/Ticket/',
+    { SERVER_NAME => 'localhost', SERVER_PORT => 80 },
+);
+redirect_ok(
+    'http://localhost/Ticket/', 'http://example.com/Ticket/',
+    { SERVER_NAME => 'example.com', SERVER_PORT => 80 },
+);
+
+set_config(
+    CanonicalizeRedirectURLs => 0,
+    WebDomain => 'localhost',
+    WebPort => 443,
+    WebPath => '',
+);
+is( RT->Config->Get('WebBaseURL'), 'https://localhost' );
+is( RT->Config->Get('WebURL'), 'https://localhost/' );
+
+redirect_ok(
+    'https://localhost/Ticket/', 'https://localhost/Ticket/',
+    { SERVER_NAME => 'localhost', SERVER_PORT => 443, HTTPS => 'on' },
+);
+redirect_ok(
+    '/Ticket/', 'https://localhost/Ticket/',
+    { SERVER_NAME => 'localhost', SERVER_PORT => 443, HTTPS => 'on' },
+);
+redirect_ok(
+    'https://localhost/Ticket/', 'http://localhost/Ticket/',
+    { SERVER_NAME => 'localhost', SERVER_PORT => 80 },
+);
+redirect_ok(
+    '/Ticket/', 'http://localhost/Ticket/',
+    { SERVER_NAME => 'localhost', SERVER_PORT => 80 },
+);
+redirect_ok(
+    'https://localhost/Ticket/', 'http://example.com/Ticket/',
+    { SERVER_NAME => 'example.com', SERVER_PORT => 80 },
+);
+redirect_ok(
+    'https://localhost/Ticket/', 'https://example.com/Ticket/',
+    { SERVER_NAME => 'example.com', SERVER_PORT => 443, HTTPS => 'on' },
+);
+
+sub set_config {
+    my %values = @_;
+    while ( my ($k, $v) = each %values ) {
+        RT->Config->Set( $k => $v );
+    }
+
+    unless ( $values{'WebBaseURL'} ) {
+        my $port = RT->Config->Get('WebPort');
+        RT->Config->Set(
+            WebBaseURL => 
+                ($port == 443? 'https': 'http') .'://'
+                . RT->Config->Get('WebDomain')
+                . ($port != 80 && $port != 443? ":$port" : '')
+        );
+    }
+    unless ( $values{'WebURL'} ) {
+        RT->Config->Set(
+            WebURL => RT->Config->Get('WebBaseURL') . RT->Config->Get('WebPath') . "/"
+        );
+    }
+}
+
+sub redirect_ok {
+    my ($to, $expected, $env, $details) = @_;
+
+    local %ENV = %ENV;
+    while ( my ($k, $v) = each %{ $env || {} } ) {
+        $ENV{ $k } = $v;
+    }
+    RT::Interface::Web::Redirect( $to );
+    is($m->redirect, $expected, $details || "correct for '$to'");
+}
+
+package R;
+sub status {};
+
+package M;
+sub redirect { $_[0]{'last'} = $_[1] if @_ > 1; return $_[0]{'last'} }
+sub abort {}
+