New test for credentials with detach.

[catagits/Catalyst-Plugin-Authentication.git] / t / lib / AuthRealmTestAppProgressive / Controller / Root.pm

diff --git a/t/lib/AuthRealmTestAppProgressive/Controller/Root.pm b/t/lib/AuthRealmTestAppProgressive/Controller/Root.pm
index 4e9037f..6c6e5ab 100644 (file)
--- a/t/lib/AuthRealmTestAppProgressive/Controller/Root.pm
+++ b/t/lib/AuthRealmTestAppProgressive/Controller/Root.pm
@@ -30,5 +30,21 @@ sub progressive : Local {
     $c->res->body("ok");
 }
 
+sub progressive_detach : Local {
+    my ( $self, $c ) = @_;
+
+    my $realm = $AuthRealmTestAppProgressive::detach_test_info->{realm_to_pass};
+    my $user  = $AuthRealmTestAppProgressive::detach_test_info->{user};
+    my $pass  = $AuthRealmTestAppProgressive::detach_test_info->{password};
+    my $res;
+    my $ok = eval {
+        $res = $c->authenticate( { username => $user, password => $pass }, );
+        1;
+    };
+    ok( !$@,                       "authentication passed skipping detach." );
+    ok( $ok,                       "user authenticated skipping detach" );
+    ok( $c->user_in_realm($realm), "user in proper realm" );
+    $c->res->body("ok");
+}
 1;