Checking in changes prior to tagging of version 0.10018.

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

diff --git a/t/lib/RemoteTestApp1.pm b/t/lib/RemoteTestApp1.pm
index dbba67c..30c3831 100644 (file)
--- a/t/lib/RemoteTestApp1.pm
+++ b/t/lib/RemoteTestApp1.pm
@@ -1,11 +1,14 @@
 package RemoteTestApp1;
-
+use strict;
+use warnings;
 use Catalyst qw/
    Authentication
 /;
 
 use base qw/Catalyst/;
-__PACKAGE__->engine_class('RemoteTestEngine');
+unless ($Catalyst::VERSION >= 5.89000) {
+    __PACKAGE__->engine_class('RemoteTestEngine');
+}
 __PACKAGE__->config(
     'Plugin::Authentication' => {
         default_realm => 'remote',
@@ -24,22 +27,11 @@ __PACKAGE__->config(
         },
     },
 );
-
-sub default : Local {
-    my ( $self, $c ) = @_;
-    if ($c->authenticate()) {
-        $c->res->body('User:' . $c->user->{username});
-    }
-    else {
-        $c->res->body('FAIL');
-        $c->res->status(403);
-    }
-}
-
-sub public : Local {
-    my ( $self, $c ) = @_;
-    $c->res->body('OK');
+__PACKAGE__->setup;
+if ($Catalyst::VERSION >= 5.89000) {
+    require RemoteTestEngineRole;
+    RemoteTestEngineRole->meta->apply(__PACKAGE__->engine);
 }
 
-__PACKAGE__->setup;
+1;