Checking in changes prior to tagging of version 0.10018.

[catagits/Catalyst-Plugin-Authentication.git] / t / lib / RemoteTestEngineRole.pm

diff --git a/t/lib/RemoteTestEngineRole.pm b/t/lib/RemoteTestEngineRole.pm
new file mode 100644 (file)
index 0000000..50a28e3
--- /dev/null
+++ b/t/lib/RemoteTestEngineRole.pm
@@ -0,0 +1,15 @@
+package RemoteTestEngineRole;
+use Moose::Role;
+require Catalyst;
+
+around env => sub {
+    my ($orig, $self, @args) = @_;
+    my $e = $self->$orig(@args);
+
+    $e->{REMOTE_USER} = $RemoteTestEngine::REMOTE_USER;
+    $e->{SSL_CLIENT_S_DN} = $RemoteTestEngine::SSL_CLIENT_S_DN;
+    return $e;
+};
+
+1;
+