From 3010e79b0e4476db065316b27d7fea1ff2d952d3 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Tue, 22 Jun 2010 15:21:06 -0400
Subject: [PATCH] add test for multi-auth

---
 t/Operation/Auth.t | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/t/Operation/Auth.t b/t/Operation/Auth.t
index cbe1e5a6d..f1105acd3 100644
--- a/t/Operation/Auth.t
+++ b/t/Operation/Auth.t
@@ -27,26 +27,26 @@ my $session         = WebGUI::Test->session;
 
 #----------------------------------------------------------------------------
 # Test package for method dispatch
-BEGIN {
-    package WebGUI::Auth::TestAuth;
+BEGIN { $INC{'WebGUI/Auth/TestAuth.pm'} = __FILE__; }
 
-    use base 'WebGUI::Auth';
+package WebGUI::Auth::TestAuth;
 
-    sub new {
-        my $self    = $_[0]->SUPER::new(@_);
-        $self->setCallable( ['callable'] );
-        return bless $self, 'WebGUI::Auth::TestAuth'; # Auth requires rebless
-    }
+use base 'WebGUI::Auth';
 
-    sub callable {
-        return "callable";
-    }
-
-    sub www_verify {
-        return "verify";
-    }
+sub new {
+    my $self    = shift->SUPER::new(@_);
+    $self->setCallable( ['callable'] );
+    return bless $self, 'WebGUI::Auth::TestAuth'; # Auth requires rebless
 }
-$INC{'WebGUI/Auth/TestAuth.pm'} = __FILE__;
+
+sub callable {
+    return "callable";
+}
+
+sub www_verify {
+    return "verify";
+}
+
 package main;
 
 #----------------------------------------------------------------------------
@@ -74,7 +74,7 @@ isa_ok(
 $session->config->addToArray( 'authMethods', 'TestAuth' );
 isa_ok( 
     WebGUI::Operation::Auth::getInstance( $session ),
-    'WebGUI::Auth::' . $session->setting->get('authMethod'),
+    'WebGUI::Auth::TestAuth',
     'AuthType in config file, so return instance of authType',
 );