r15710@andreas-marienborgs-computer: andreas | 2007-07-18 13:20:54 +0200
[catagits/Catalyst-Authentication-Credential-HTTP-Proxy.git] / t / basic.t
index 3164863..f0c70bb 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -43,7 +43,7 @@ $tk->mock(
 
 my $store = Test::MockObject->new;
 $store->mock( get_user =>
-      sub { shift; Catalyst::Plugin::Authentication::User::Hash->new(@_) } );
+      sub { shift; Catalyst::Plugin::Authentication::User::Hash->new($_[2]) } );
 
 my $c = Test::MockObject::Extends->new($m);
 $c->set_always( config => {} );
@@ -55,6 +55,7 @@ $c->set_false("debug");
 
 my $authenticated;
 $c->mock( set_authenticated => sub { $authenticated = $_[1] } );
+$c->mock( logout => sub { undef $authenticated } );
 
 can_ok( $m, "setup" );